نجوم المشاركات

السلام عليكم اعتذر على التقصير فى المتابعة على ارض الواقع للجميع ، و نظرا لعدم توجدي بشكل تفصيلي فى كافة الاقسام ، فالترقيات تتم بناء على ترشيحات من الاخوة القائمين على الافسام المختلفة و المراقبين ، و تناقش فى قسم فريق الموقع قبل التنفيذ ، و هذا يحدث الان ، و سيتم التواصل مع من سيتم ترشيحهم من الاخوة خلال ايام. الانضمام الي فريق الموقع هو تطوع و مشاركة فى جهد اداري اضافي ، و عن نفسي اعبره تطوع اضافي بشكل اكبر من كونه ترقية، حيث ان بقاء صلاحيات المشرف مرهون برغبته فى الاستمرار فى المشاركة فى الجهد الاداري. و فى الحقيقة حين لا يتمكن المشرف من القيام به يتم نقله من مجموعة المشرفين الي مجموعة اخرى تضم فريق الموقع السابق جتى لا تتواجد صلاحيات ادارية مع عدد كبير فى نفس التوقيت مما قد يحدث نوع من التضارب فى تثبيت المواضيع و خلافه. و قد حدث اكثر من مرة ان ترك احد الاخوة الاشراف ثم عاد للمشاركة به حين سمحت ظروفه و ذلك بحسب الية الترقيات المتفق عليها و المثبتة فى القسم المفتوح. العناوين الغير واضحة هي مسؤولية مشتركة، فالحالة المثالية يندر حدوثها و هي ان يقرأ العضو الجديد القواعد جيدا قبل المشاركة. و طبعا هذا نادرا ما يحدث و عليه فيتم التنبيه من المشرف مرة او اثنان مع التعديل، فليس من المفترض ان يستمر عضو نفس الخطأ عدة مرات بعد تنبيهه و تعديل العنوان ، و فى بعض الاقسام الاخرى يتم اغلاق الموضوع مع كتابة السبب اذا تكرر نفس الخطأ. أخي ابو تامر ، أرحب بعودتك للمشاركة ، و اذا تُفضل ضم الحساب القديم للحساب الحالي ، ارجو اخباري. (هل رقم الهاتف القديم مازال كما هو ؟) و اذا غيرت رأيك مستقبلا فى أي وقت بخصوص الاشراف و رغبت فى المساهمة مرة أخرى فارجو اخباري.

أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير بينما كنت تقدم الحل لأخونا محمد السباعي كنت منهمك في الكود التالي (الذي تعدى معي حد الجنون ..!! أكثر من ساعة ونصف وربما ساعتين في هذا الكود) هو كود مجنون بحق .. حاولت فيه بقدر المستطاع أن أجعله كون مرن يصلح لأي موضوع شبيه بهذا الموضوع (خصوصاً أن هذا الموضوع يتكرر في كثير من الأحيان) وهو أن يكون هناك ورقة عمل رئيسية بها عمودوالمطلوب ترحيل القيم في هذا العمود إلى الورقة المناسبة ، وأضفنا إليه من قبل إمكانية إنشاء ورقة عمل إذا لم تكن موجودة .. الكود المجنون من العيار الثقيل وأرجو أن يبدي الأعضاء أي ملاحظات عليه لتطويره بحيث يصلح لهذه المشكلة أياً كان شكلها وحجمها وأبعادها ... الكود بالشكل التالي Sub Transfer_Data_Using_Filter_By_List() 'Author : YasserKhalil 'Release : 01 - 09 - 2016 '------------------------ Dim dictPerson As Object, dictSheet As Object, mtx(), isFound As Boolean Dim I As Long, v1 As Variant, v2 As Variant, arr As Variant, arrCol As Variant Dim rng As Range, arrHeader As Variant Dim cnt As Integer, counter As Integer Dim Rc As Long, Gc As Long, Bc As Long '=========================================================================================== 'Column Number To Be Filtered Const iCol As Integer = 5 'Sheet Name (The Source Sheet) Const sSheet As String = "DATA" 'Data Range Including Header Set rng = Sheets(sSheet).Range("A5:E" & Sheets(sSheet).Cells(Rows.Count, iCol).End(xlUp).Row) 'Row Number For Destination Sheets (5 = Row 5) Const destRow As Integer = 5 'Column Number For Destination Sheets (1 = Column A) Const destCol As Integer = 1 'Column Widths For Output Sheets arr = Array(14, 50, 15, 14) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrCol = Array(4, 3, 1, 2) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrHeader = Array("القيمة", "البيان", "التوجيه المحاسبي", "التاريخ") '=========================================================================================== Application.ScreenUpdating = False mtx = rng.Value Set dictPerson = CreateObject("Scripting.Dictionary") For I = 2 To UBound(mtx, 1) If Not dictPerson.Exists(mtx(I, iCol)) Then dictPerson.Add mtx(I, iCol), mtx(I, iCol) Next I Set dictSheet = CreateObject("Scripting.Dictionary") For I = 1 To Worksheets.Count If Not dictSheet.Exists(Worksheets(I).Name) Then dictSheet.Add Worksheets(I).Name, Worksheets(I).Name Next I dictSheet.Remove (sSheet) For Each v1 In dictPerson isFound = False For Each v2 In dictSheet If v1 = v2 Then isFound = True Exit For End If Next v2 If Not isFound Then If MsgBox(v1 & " Does Not Exist." & vbCrLf & "Create This Sheet ? ", vbOKCancel) = vbOK Then Worksheets.Add After:=Sheets(sSheet) ActiveSheet.Name = v1 ActiveSheet.DisplayRightToLeft = True Else dictPerson.Remove v1 End If End If Next v1 For Each v1 In dictPerson Sheets(v1).Cells.Clear rng.AutoFilter Field:=iCol, Criteria1:=v1 With rng.Offset(1) For counter = LBound(arrCol) To UBound(arrCol) .Columns(arrCol(counter)).SpecialCells(xlCellTypeVisible).Copy Sheets(v1).Cells(destRow + 1, destCol + counter).PasteSpecial xlPasteValues Sheets(v1).Columns(destCol + counter).NumberFormat = .Columns(arrCol(counter)).NumberFormat Next counter Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Value = arrHeader End With With rng(1, 1) Rc = .Interior.Color Mod 256 Gc = Int(.Interior.Color / 256) Mod 256 Bc = Int(Int(.Interior.Color / 256) / 256) Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Interior.Color = RGB(Rc, Gc, Bc) End With With Sheets(v1) With .Cells .ReadingOrder = xlRTL .Font.Name = "Arial" .Font.Size = 11 .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter .RowHeight = 19 .ColumnWidth = 9 End With With .Cells(destRow - 1, destCol) .Offset(1).CurrentRegion.Borders.Value = 1 .Value = v1 .Resize(1, UBound(arrHeader) + 1).Interior.Color = vbYellow .Resize(1, UBound(arrHeader) + 1).HorizontalAlignment = xlCenterAcrossSelection End With With .Rows(destRow - 1).Resize(2) .RowHeight = 25 .Font.Bold = True .Font.Size = 13 End With For cnt = LBound(arr) To UBound(arr) .Columns(destCol + cnt).ColumnWidth = arr(cnt) Next cnt Application.Goto .Range("A1") End With Next v1 Application.Goto Sheets(sSheet).Range("A1") rng.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub فمت بوضع التعليقات باللغة الإنجليزية (معلش تعود مش أكتر) سأقوم بشرحها لمن يهمه الأمر أول سطر في التعليق يتعلق برقم العمود الذي يحتوي على القيم التي سيتم فلترتها السطر التالي يكتب اسم ورقة العمل التي تحتوي على البيانات (الورقة الرئيسية) السطر التالي نطاق البيانات المراد العمل عليها السطر التالي رقم الصف المراد وضع البيانات فيه السطر التالي رقم العمود المراد وضع البيانات فيه .. مثال لو أردنا وضع البيانات في الخلية H3 هذا يعني أن رقم الصف هو 3 ورقم العمود هو 8 السطر التالي عرض الأعمدة في المخرجات ..بما أننا تعاملنا في المخرجات مع 4 أعمدة فيكتب 4 أرقام ..يمكنك ببساطة زيادة أو نقصان العدد السطر التالي ترتيب الأعمدة وهذا السطر مهم للغاية ..فقد لاحظت أن الترتيب ليس بالضبط كترتيب الورقة الرئيسية وهذا ما دفعني إلى كتابة الكود في الحقيقة .. المهم هنا الرقم 4 هو رابع عمود في ورقة البيانات ، والرقم 3 هو ثالث عمود في ورقة البيانات ، والرقم 1 أول عمود في ورقة البيانات ، والرقم 2 هو ثاني عمود في ورقة البيانات ، وسيتم ترحيلهم بنفس الترتيب إلى الأوراق الجديدة السطر التالي هو خاص بالعناوين التي ستوضع في الأوراق الأخرى والتي سيتم ترحيل البيانات إليها ، وقد قمت بذلك أيضاً لأنني لاحظت أن هناك تغيير في العناوين (العمود "مدين" يسمى في المخرجات باسم "القيمة") المهم الأربعة سطور الأخيرة يجب أن يكون كل منها محتوي على 4 عناصر حسب عدد الأعمدة المطلوبة في المخرجات أسأل الله العظيم أن يكون الكود مفيد لكم وأعتذر عن الإطالة .. ولكن كان لابد من التوضيح التام لما هو مهم في الكود لتتمكنوا من استخدامه بسهولة ويسر .. لتجربة الكود بشكل أعمق اختر في الخلية E12 ايصال تسوية ، وهي ورقة عمل غير موجودة لتشاهد ورقة العمل وهي تنشأ وتوضع فيها البيانات .. ولك الحرية في تلك النقطة (لك أن تنشيء ورقة العمل أو تلغي ... لابد أن يكون هناك مرونة) تقبلوا وافر تقديري واحترامي رابط الملف المرفق من هنا

الرجاء المساعدة في جمع الارقام في تقرير اكسس بحسب لون الرقم مرفق المثال وشكراً لكم الجمع حسب لون الرقم في التقرير.rar

السلام عليكم ورحمة الله وبركاته اكتب هذه المعادلة فى الخلية H3 =IF(OR($D3:$G3="ح");"ح";IF(OR($D3:$G3="غ");"غ";SUM($D3:$G3))) ثم اضغط على CRTL + ALT + SHIFT ثم اسحب نزولا

هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . Sub RemoveCarriageReturns() Dim MyRange As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each MyRange In ActiveSheet.UsedRange If 0 < InStr(MyRange, Chr(10)) Then MyRange = Replace(MyRange, Chr(10), "") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub هذا الكود للفائدة . فقط .. وخلاصة الكود ( داخل الشرط If ) . الكود منسوخ من موقع غير عربي .

الحمد لله أن تم المطلوب على خير أخي الكريم حسين55 ما تغير الرقم وخليه لقب .. عشان نقفشك ونبلغ عنك

بارك الله في الجميع الاستعلام يكون للعرض فقط فهل يمكننا الاستفادة من المعادلة السابقة في الاستعلام-استعلام1- وبناء نمودج يظهر المطلوب فيه عند كل عملية ادخال جديدة والسؤال كان لهذا الغرض وهو عند كل عملية ادخال للوارد او للصادر يظهر الرصيد

غير في العمود I أولا ثم في العمود J جرب المرفق قائمة منسدلة.rar

المرفق تالف اخي الكريم

تفضل اخي الكريم الحل موجود في الاستعلام total.rar

ربما يكون الحل هنـا transfer salim.rar

السلام عليكم بارك الله فيكم جميعا المطلوب هو حل للمشكلة وبأي طريقة المهم أن يكون الحل حسب ما طلبت نأمل إيجاد حل

السلام عليكم ورحمة الله وبارك الله فيكم جميعا لدي قاعدة بيانات لمدرسة خاصة من نمادج البرنامج حركة الخزينة اليومية فحركة الخزينة تتغير حسب مدفوعات أولياء الأمور للأقساط الدراسية وكذلك للمصروفات سواء مشتريات أو رواتب أو غير ذلك والمطلوب هو موجود في النمودج المرفق بحيث يتم في كل عملية ادخال سواء للوارد أو الصادر تغير للرصيد اليومي . ملاحظات: 1-هناك رصيد مبدئي في السجل الأول 2-يتم زيادة الرصيد عند ادخال الوارد 3-ويتم نقص الرصيد عند ادخال الصادر 4- ويكون هذا في كل عملية ادخال يتغير الرصيد اليومي 5-كل ذلك يكون بدون تدخل المستخدم في حقل الرصيد اليومي. 6-حبذا لو كان الترقيم يكون بالكود أفضل من الترقيم التلقائي. حركة الخزينة.rar

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم الى الله اقرب http://store1.up-00.com/2016-09/147276120351.swf

السلام عليكم محاولة اتمنى ان يكون المطلوب واتمنى من الاخوة ان يبسط المعادلة المصنف1.rar

جرب هذا الماكرو Sub insert_word() Dim Sh As Worksheet Dim Th As Worksheet Dim My_rg As Range Set Sh = Sheets("الفهرس"): Set Th = Sheets("1000") Set My_rg = Th.Range("i7") For i = 8 To 100 My_rg.Activate my_word = Sh.Range("a" & i).Offset(0, 1) ActiveCell.Value = my_word Set My_rg = ActiveCell.Offset(44, 0) Next End Sub

حياك الله يا أبا البراء الموضوع هنا مطلوب فيه مراقبة عمود معين من شيت معين بينما الموضوع المكرر الذي حضرتك ذكرته كان مراقبة جميع الصفحات تما فيها الأعمدة والأسطر وتسجيل كل صغيرة وكبيرة (كما يقال )

ربنا يطمنا على حضرتك وارجو ان تكون بخير

مو مشكلة ابو جودي عدلي علي القاعدة الي انت رفعتها لي و انا ارجع انقل الأكواد أدرب نفسي واتعلم بالنسبه لعناصر القائمة ان يكون رئيسي و فرعي مثلا لو اخترنا الرياضه تفتح تحتها مجموعه اختيارات يتم ادخالها يدوي مثلا السباحة - الجري - الكورة - الخيل يعني الرياضه تنقسم الي جري سباحة خَيل ان شاء الله اكون وفقت

اثراءً للموضوع هذه المعادلة تكتب في الخلية B2 و تسحب نزولاً =MATCH(A2,{42522;42527;42547;42552})

حكمة من رجل عجوز

مرحبا اخي الاختصار يكون كالتالي =SUM(B3:B26)-SUM(A3:A26)

استاذنا القدير والاخ العزيز ابو البراء ... ملك الابداع كما عودتنا دائما ...تحياتي .. وجزاكم الله خيرا

جزاك الله خيرا على هذا الكود الممتاز

جزاكم الله كل الخير ولا ننس الأيام العشر من ذي الحجة لنكثر من الطاعة ...

تحية طيبة اخي عبد الله اخي الكريم فعليا الجدول t1 هو الجدول tab1 واذا نظرت الى عبارة SQL داخل الاستعلام ستجد الآتي From tab1 as t1 اي انني اخترت الحقول المطلوبة من الجدول tab1 باسم t1 ارجو ان تكون اتضحت الفكرة اخي عبد العزيز لم انساك و سارفع لك المرفق باسرع وقت

ممكن سؤال بسيط على مرفقك وجزاك الله كل خير الاستعلام الذي انشأته قائم على جدول اسمه t1 وهذا الجدول غير موجود في قاعدة البيانات فكيف قمت بذلك

جزاك الله كل خير فكرة جيدة لكن عندي ملاحظة بسيطة هي اسلوب حذف الاجازة بحيث ما ان قمت بتحديد خيار الحذف تظهر رسالة تنبيه الحذف ثم تختفي ويختفي السجل معها قبل اتمام القراءة فإن وضعت فيها زر لالغاء الحذف يكون الوضع افضل تحياتي لك

عليكم السلام ورحمة الله وبركاتة الاخ الفاضل الاستاذ محمد طاهر اخي العزيز شكرا علي ترحيبك الكريم اما بخصوص افضل عدم ضم حسابي القديم و ان اظل عضو عادي بدون مسؤليات او صلاحيات واتاحة اللفرصة للشباب النشط ذو الجهد الملحوظ للترقي ارجو ان تتكرم بزيادة الحد المسموح للرفع لحسابي الحالي فتقابلني بعض الاحيان ملفات كبيرة مما اضطر لرفع الحل علي مواقع الرفع مما يفوت الفرصة بعد فترة علي الاعضاء في وجود المرفق علي موقع المنتدي اخي الكريم نعم رقم الهاتف القديم كما هو الاخ الفاضل الاستاذ محمد طاهر اعرف اني مقصر معك ارجو المعذرة ربما في المستقبل اخبرك بالاسباب شكرا لك مرة اخري علي ترحيبك

يا بوب أنا تهت منك ..ارفق آخر ملف اللي فيه المشكلة والكود اللي استخدمته على ما أعتقد كود أخونا الشهابي بس لما نزلت الملف عشان أشوف المشكلة لقيت كود تاني غير المرفق في الصورة ... دائماً لما يكون فيه ملفات كتير في الموضوع يرجى الإشارة إلى الملف الذي به المشكلة ... وبردو مصمم متشتلغش بالكود اللي شرحتهولك رغم إني مفصله !! (أصلي بحب شغلانة الترزي عشان جدي كان ترزي .. الله برحمه ويغفر له)

الحمد لله الذي يسر لك الأمور ووجدت ضالتك وأهلا بك في المنتدى ونورت بين إخوانك .. وإن شاء الله تجد ما يسرك في المنتدى تقبل تحياتي

المرفق اخي الكريم تجربة.rar استاذي الفاضل الفديو جميل جدااااااااااااا ولكن لا يلبي طلبي ارجو الافادة

السلام عليكم حاول ترفعها على (ميديا فاير) ثم ارسل رابط الرفع

السلام عليكم المرفق ليس بتالف اخى الحبيب ( محمد ايمن ) وحمدا لله على سلامتك يا صاحب موضوع ( ودع المؤقت )

السلام عليكم اخى ارسل الملف ليقدم الاخوه لك الدعم الكامل بإذن الله

وجزيت خيراً بمثل ما دعوت لنا أخي الكريم أحمد ومشكور على دعائك الطيب المبارك ، وأسأل الله العلي القدير أن يجمعنا في الفردوس الأعلى من الجنة تقبل تحياتي

السلام عليكم ورحمة الله و بركاته أستاذي المحترم المبدع الاستاذ / ياسير خليل ابو البراء الحمد لله و الشكر لله جربت التعديل ممتاز و عالج المشكلة جزاك الله خير الجزاء و أحسن الله اليك و سامحني أذا كنت شقيت عليك

وعليكم السلام أخي الكريم محمد السباعي وجزيت خيراً بمثل ما دعوت لي وزيادة .. وبارك الله فيك على دعائك الطيب المبارك ومشكور على كلماتك الرقيقة المشكلة التي حدثت معك سببها كلمة واحدة في الكود في هذا السطر For Each v1 In dictSheet فبدلاً من الكلمة dictSheet استخدام dictPerson ... كما تم إضافة سطر في الجزء الشرطي الخاص بإنشاء ورقة عمل ، حتى إذا لم ترغب في إضافة ورقة العمل تحذف من الأوراق المطلوب العمل عليها وقد تم التعديل في المشاركة السابقة كما تم تعديل الملف المرفق لكي يكون الموضوع مركز في مشاركة واحدة ليستفيد منها الأعضاء وأي ملحوظة أخرى يرجى الإشارة إليها ..

الاخ طارق مساد انظر المرفقات مبيعات المحطات 2.rar

الاخ ابوصلاح شاهد المرفق Omar_1.rar

تم ارسال رساله علي الايميل بالنسبة للبرنامج أبو جودي او أبو خليل 1 - عناصر التقييم ابي يكون داخلها مجموعة رئيسية و فرعية مثلا ما يكون منتدي رئيسي وفيه اقسام فرعية 2- الوقت محتاج يكون الوقت ثابت في جميع الجداول يستند علي وقت الادخال للمعلومات لا اريد ان أقوم باضافته بيدي اريد جعلة الي او اتوماتيك 3 التقرير محتاجة يكون بالترتيب 4 اريد اضافه زر استعلام في واجهة البرنامج بحيث يمكنن ان استعلم عن عنصر من عناصر القايمة لك كل الشكر و التقدرير

وعليكم السلام أخي الحبيب أبو حنين اقتراحك جيد جداً وأنا أحبذه .. وعلى استعداد لفعل ذلك ولكن لابد من أن نعذر الجاهل بتلك الأمور .. لأن الأعضاء الجدد لا يعلمون بتلك الأمور ربما يمكننا أن نطبق ما قلت مع الأعضاء الذين تعدت مشاركتهم 100 مشاركة مثلاً .. تقبل تحياتي

السلام عليكم ورحمة الله و بركاته اللهم بارك عمل اكثر من رائع انا كنت اشعر ان هذا الامر مستحيل تنفيذه و قد حاولت فترة طويلة انفذ الموضوع ولكن لم اوفق لذا ارسلته الي موقعكم المبارك الذي اتعلم منه كل يوم وجزاكم الله خيرا برجاء اذا امكن عمل شرح للكود حتي استفيد اكثر من علمكم من مبدا لاتعطني سمكة ولكن علمني كيف اصطاد ولك مني جزيل الشكر و العرفان و بارك الله في اهلك و مالك ودارك و عملك و ولدك

اخوانى الكرام ارفق لكم رابط لدورة سى شارب ان شاء الله تستفادوا منها وجزاه الله كل خير مقدم الدوره https://www.youtube.com/watch?v=74VQ_JmJXzI&list=PLwj1YcMhLRN24KqNI0xQrNscBfLnYeJpL تمنياتى لكم بالتوفيق

السلام عليكم ورحمة الله هل الموضوع مستحيل؟

هل من مجيب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

عمل رائع ومجهودعظيم

ياسلام عليك !! كفيت ووفيت ! اضافة بسيطة الذي يتم هو عملية مزامنة synchronization بين البرنامج المحلي والهدف ! ويتم استخدام برنامج محلي لعمل المزامنة مثل ال دروب بوكس وغيره ! اذا كان هناك اكثر من مستخدم وفي نفس الوقت فلا ينفع مشاركة الملف على القوقل درايف او سكاي درايف وغيره ! تحياتي

أخى العزيز ( عصام ) أنا شايف الدوال المعرفة للأساتذة ( عبد الله بقشير ) والأستاذ ( طارق محمود مؤدية الغرض ) أم تريده بالدوال العادية إذا أردتها كذلك أنا تحت أمر حضرتك أليك أخى دالة فصل الرقم عن النص ولنفرض وضعها فى العمود ( D3 ) وسحبها إلى أسفل =SUMPRODUCT(MID(0&A3;LARGE(INDEX(ISNUMBER(--MID(A3;ROW($1:$25);1))* ROW($1:$25);0);ROW($1:$25))+1;1)*10^ROW($1:$25)/10) ثم وضع هذه المعادلة فى العمود ( E3 ) لفصل النص عن الرقم وسحبها لأسفل أيضا =TRIM(SUBSTITUTE(A3;D3;"")) تقبل تحياتى

هذا ملف لأخينا خبور وهو عبارة عن دالة لاستخلاص النصوص أو الأرقام من خلية مختلطة دالة استخراج النص او الارقام.zip