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

السلام عليكم عباقره المنتدى واخوتى فى الله وجميع اعضاء المنتدى حين كنت بصدد عمل برنامج تحليل المصروفات كان لدى تقرير بأسم الحساب ولكنى ما وددت ان افعله بطريقتى التقليديه عمل عمود مساعد ثم الترحيل بمعادله INDEX كان امامى طريقان وعليا ان اسلك احداهما معادلات الصفيف كما اطلق عليها من قبل انها معقده ولكنى رأيتها غير ذلك ، ولكنى حين قمت بالتنفيذ وجدتها كذلك ولكن الحمد لله توصلت للنتائج المرجوه ،،،،،،،،،،، استفدت كثيرا من شرح الاستاذ كيماس ( عبد الفتاح كيره ) ولكن ملفه لم يعمل معى لم يأتى بنتائج ايضا كشف حساب الموهبه الفذه العملاق ( يحي حسين ) رائع جدا قمت بتطويره وتطويعه كى يتناسب مع متطلباتى و اصل الى هدفى اما الطريق الثانى هو الكود ارجأته قليلا ،،،،،،،، لحين ان يأتى دوره معى فأنا لا احب ان ( اقفز السلم ) ارجو من اى عضو قادر على الاتصال بملك المعالادت ان يخبره انى اريد ان اطمئن عليه وعلى صحته وانتظر رده فى موضوعى هذا ( برنامج تحليل المصروفات ) http://www.officena.net/ib/index.php?showtopic=52644 فى النهايه اتيت لكم بهذا المرفق الرائع حين جولتى فى بعض المنتديات الاجنبيه اترككم مع الملف !!!!!!!!!!! ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} CtrlShiftEnterBookFinishedFile.rar

السلام عليكم ورحمة الله وبركاته الاخ الحبيب أبو اياد وبصراحة قرات الملف بسرعة وطبعا زي ما انت عارف اخوك.... النتيجة {لم افهم شئ} اضغط ctrl + sheft+ enter وروح على النقطة اللي بعديها ورغم اني وبصراحة لي تحفظ على ارجو ان يحوز الملف على اعجابكم طبعا هو من اعمالى ههههههههههههههههه = {( طبعا انا كداب )} ولكن اضحك الله سنك كما اضحكتني وخليتني افكر طيب لو دست دلوقت ctrl + sheft+ enter بعد {( طبعا انا كداب )} الناتج هيكون ايه ههههههههه

الأستاذ /Samir السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب 2003 الملف المرفق3.rar

السلام عليكم ما قمت به خطأ ولم تنفذ شي مما قلته لم تلغي الشرط بل استبدلته بشرط خطأ وحذفت اسناد القيمة للمتغير id والمفروض ان تغير اسنادها لتاكست رقم التسجيل ====================================== هذا ما قصدته Sub EditAdd() Dim emptyRow As Long flag = False i = 0 id = UserForm1.TextBox8.Value emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 7 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 7 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End Sub جرب

السلام عليكم الاخ الكريم / ايهاب ممدوح بارك الله فيك شاهد المرفق ... ان شاء الله به طلبك تقبل خالص تحياتي حضور2.rar

السلام عليكم heshamhafez_126 اهلا وسهلا بك 1- اذكرك بضرورة تغير اسم الظهور الى اللغه العربيه لسهولة التواصل معك 2- رجاء ارفق ملف لتتضح الفكره لنا

شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي (( وليد فتحي ، محمد أبو البراء )) ابداع وثم تميز

عليكم السلام ورحمة الله وبركاته جرب اخي الفاضل الكود التالي لاحد الاساتذة الافاضل بالمنتدي لا اتذكر بالتحديد لمين مع ملاحظة انه يجب تسمية النطاق الذي يوجد به معادلا باسم (myrange) عن طريق تظليلها واذا كانت بعيده عن بعضها استخدم مفتاح Ctrl Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديك الصلاحية للتعديل" End If End Sub

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

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

..... شاهدوا المرفق أخوكم عماد الحسامي

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

السلام عليكم اريد عمل كود فى الكشف يكون فى اخر صف يمثل( الاجمالى بحيث اذا تم زيادة البيانات صف اخر او اكثر يظهر صف الاجمالى فى اخر الصف وهكذا المرفقات. وجزاكم الله خيرا Book2.rar

لدي تقرير به مربع نص مذكرة ولكن النص الذي تم ادخاله بمربع النص هذا كبير من 500 محرف وعند تشغيل التقرير لا يظهر منه سوى 255 محرف هل من معالجة لهذا الامر حتى يظهر النص كاملا

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل اشرف النعاس على حسب فهمي لطلبك sub w_play () IF Range("A4").Value<>"" Then أكتب هنا الكود الذي تريد تنفيذه في حالة تحقق الشرط End if End sub

السلام عليكم ورحمة الله وبركاته أخي الكريم الملف مرتبط ببيانات ملفات أخرى الرجاء من وضع مثال توضيحي بسيط للعمل عليه

السلام عليكم شكرا أخي وليد فتحي شكرا أخي حمادة عمر على المشاركة في حل المشكلة ولكن لي وجهة نظر أقدمها لكم وبالأخص لصاحب المشاركة الأخ إيهاب ممدوح 1/ بما أن البرنامج يسجل وقت الحضور للموظف فلا حاجة لأن يختار الموظف الفترة الصباحية أو المسائية ولكن عن طريق المعادلة يستطيع البرنامج حدد إذا كان وقت الحضور قبل الساعة 12 ظهرا فتكون الفترة الصباحية وإذا كان بعد الساعة 12 ظهرا فتكون الفترة مسائية 2/ أقترح أن يضاف أيضا عن طريق المعادلة خانة لتحديد ما إذا كان الموظف متأخر عن الدوام أم لا وذلك بتحديد أقصى وقت يسمح فيه للموظف بالتأخر مثلا أذا كان حضور الموظف بعد الساعة 8 صباحا فيكون متأخرا أما قبل 8 فلا يعد متأخرا 3/ إذا كان عدد الموظفين قليل ( مثلا أقل من 50 موظف ) فأقترح بأن يضاف أسماءهم في قائمة combobox بحيث توفر على الموظف الكتابة يعنى أن الموظف سيختار أسمه من بين أسماء الموظفين ثم يضغط حضور وهذا يجعلك تتفادى الخطأ في كتابة الأسماء فمثلا الموظف أحمد قد يكتب اسمه ثلاثيا وقد يكتبه يوما من الأيام ثنائيا وقد يكتبه بوجود مسافات إلى غير ذلك تحياتي

السلام عليكم ورحمة الله وبركاته تفضل أخي الكريم الملف التالي مدة حل المشكلة.rar

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

الشكر الموصول للاخ إسلام الشيمي ايها السادة عجزت عن شكركم فالله خير يجازيكم ويرعاكم ويبارك فى علمكم ويثريكم جميعا جميعا جزيل شكري واحترامي وتقديري

السلام عليكم بعد اذن استاذى / ابو حنين هذة طريقه اخرى لتحليل البيانات باستخدام البيفوت تابل ملاحظه هناك تقرير تحليلى وتقرير اجمالى مدة حل المشكلة باستخدام البيفوت تابل.rar

الأستاذ /allmstshar السلام عليكم ورحمة الله وبركاته إليك ملف به تصور لمطلوب حضرتك ولكن يوجد استفسار عن هل تاريخ اليوم ثابت أم كل يوم يتغير وبذلك يتغير تاريخ استلام العمل وهل شهر ابريل فقط هو الذي تنطبق عليه الحالة المطلوبة. A1.rar

السلام عليكم الاخ الحبيب / وليد فتحي بارك الله فيك جعلك الله متميز دائما ... وسباقا لفعل الخير تقبل خالص تحياتي

السلام عليكم ورحمة الله وبركاته بعد اذن أخي الحبيب الاستاذ حماده عمر اتفضل استاذ ايهاب هذه محاولة مني لعلها تفي بالغرض معك حضور3.rar

الأستاذ /Samir السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب وإن كان غير ذلك أرجو التوضيح. الملف اكسيل 2007 الملف المرفق2.rar

السلام عليكم ورحمة الله وبركاته اخي الفاضل محمد رزق تم تعديل الكود على اساس خلية الدرجة اذا كانت فارغة ويمكنك تعديل رقم الخليه من داخل الكود كما تحب سوف يتم الاخفاء في الطباعة والغاء الاخفاء بعد الطباعة Book1_w.rar

هل هذا ما تقصده بالنسبة للارقام هي عشوائية ولك ان تكتب ما يناسبك/بعد ازالة معادلة العشوائية الملف المرفق 1.rar

السلام عليكم تفضل التحكم بالأزرار3.rar

السلام عليكم و رحمة الله وبركاته اليك الحل اخي سمير (لتنفيذ المعادلة يجب ان يكون الجدول مفتوحاً اي بدون فلاتر) أعطال.rar

نسألك يا الله أن تكفينا ما أهمنا وما أغمنا وأن تجبر كسرنا , وأن تعظم أجرنا وأن تعيذنا من شرور أنفسنا , وأن ترحم موتانا وأن تلطف بمبتلانا , وأن ترحم غربتنا في الدنيا ومصرعنا عند الموت , ووقوفنا بين يديك وأن تقينا من ميتة السوء ومن يوم السوء وساعة السوء ,وليلة السوء وجار السوء وصاحب السوء , وأن تعيذنا من النفاق وسوء الأخلاق. اللهم إنا نسألك فرجاً عاجلاً للمسلمين مما هم فيه وملاقوه , اللهم اكشف كروبنا ونفّس همومنا واقضِ حاجاتنا , اللهم هبنا عطاءك ولا تكشف عنا غطاءك , ورضنا بقضائك , اللهم اغفر لجميع موتى المسلمين , اللهم اجعل قبورهم من الجنة رياضاً. اللهم إنهم عبيدك بنو عبيدك بنو إمائك , احتاجوا لرحمتك وأنت غني عن عذابهم , اللهم زد في حسناتهم وتجاوز عن سيئاتهم , فأنت أرحم بهم من أمهاتهم , لا إله غيرك , ولا معبود سواك , لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضا.

السلام عليكم تفضل أخى Sumproduct.rar

السلام عليكم ورحمة الله وبركاته الاخ الكريم / محمد محمود فهمت قصدك انت لديك قاعدة بيانات للعاملين وتريد تقرير كالشجرة بمعنى تقرير مرتبط برأس (جهة العمل) لتستخرج منها : 1-اسماء العاملين المتدربين - الدورات - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) 2- اسماء العاملين الغير المتدربين - رقم الموظف - عدد الموظفين فى كل جهة عمل على حدى -ثم عدد الموظفين المتدربين (اجمالى ) انا قمت بعمل لك المطلوب لكــن عن طريق الاكسيل باستخدام البيفوت تابل ( وهو متوفر فى كل اكسيل ) تفضل المطلوب باستخدام الاكسيل * ملاحظه عند ادخال بيانات جديده فى شيت database عليك للذهاب الى data ثم عمل refresh all لتظهر فى التقرير المطلوب تقرير جهة العمل.rar

الأخ الحبيب/ ابو اياد ( الاسيوطى ) السلام عليكم ورحمة الله وبركاته جئتك متأخرا كالعادة - لكن كما تعلم الوقت لا يسعفنا دائما لأداء الأعمال التي نحبها رحم الله والدتك وأبنك - وأسأله تعالي أن يتغمدهما برحمته الواسعة ويدخلهما فسيح جناته - إنه ولي ذلك والقادر عليه البرنامج رائع والمعادلات ممتازة - العمل كبير ومتعوب عليه لا جدال في ذلك وفقك الله وزادك من علمه وجعل عملك في ميزان حسناتك - تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته وبعد اذن الاخ الحبيب// وليد فتحي هذا عبارة عن دمج كود الاستاذ وليد مع كود معاينة الطباعة والطباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub مسح خلية_w1.rar

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب // وليد فتحي جزاك الله خيراً على سرعة تلبيتك المعهودة واستاذنك أخي الحبيب في اثرء الموضوع بهذا الحل =IF(B3+B4<1000;1000;IF(B3+A9<2000;B3+B4;2000)) خارج محصور بين عددين_w1.rar

بعد اذن الاستاذ محمود شريف ضيف اي ورقة جديد واعمل حفظ للملف واغلق الملف وافتحة سوف تجد اسم الورقة تم اضافته للقائمة بالصفحة الرئيسية وللعودة الي الصفحة الرئيسية انسخ المفتاح المسمى بعودة للواجهة وضيفة للصفحة الجديد

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

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

أستاذنا الفاضل / أبو محمد عباس السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على جميع اعمالك وجعلها في ميزان حسناتك. إليك حل بسيط جداً فقط حضرتك تكتب المسلسل وليس بالدالة في ورقة الدرجات فقط. أدعو الله أن أكون وفقت في عمل المطلوب الذي حضرتك تريده. ترحيل البيانات.rar

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

أخى الكريم تم عمل المطلوب أسأل الله عز وجل أن يكون هو المطلوب اضافة البحث للمستودع.rar

أخي الفاضل تفضل الملف أرجو أن يفي الغرض كلمة المرور 123 سندات V.3.3.rar

السلام عليكم الاخ الفاضل / حسام مصطفي بارك الله فيك وجعلني دائما عند حسن ظنك ومعك دائما باذن الله في اي استفسار او طلب في حدود علمي تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ابو يوسـف بارك الله فيك اسمك منور بالعربي ياراجل ... ايوه كده بالنسبة لهذا الطلب فعذرا لم اراه الا الآن اليك الكود التالي ... ولكن هناك بعض الملاحظات لطريقه عمله 1- قم بوضع اسماء ملفات المدارس الموجودة لديك والتي تريد تجميع بياناتها في ملف تجميع في العمود AA اسفل بعض والكود يعمل علي 110 ملف .... وان اردت زيادتهم ما عليك الا زيادة الرقم 110 في الكود الي الرقم الذي تريده 2- شاهد الملف وطريقه عمله واي شرح لاي جزء من الكود ... اخبرني ومعك دائما باذن الله 3- كما سبق ذكره يجب ان يكون ملف تجميع موجود في نفس فولدر المدارس 4- تم وضع مثال لعدد 5 مدارس من ملفاتك المرفقة Private Sub CommandButton1_Click() Dim I As Integer Dim File As String Dim LR As Long Set ws = Worksheets("ورقة1") Application.ScreenUpdating = False Application.DisplayAlerts = False '----------------------------- ws.Range("A11:Y10000").ClearContents For I = 1 To 110 If Cells(I, 27) = "" Then Exit For TextBox1.Value = Cells(I, 27).Value File = ActiveWorkbook.Path & "\" & TextBox1.Value Workbooks.Open File Sheets("اعمال سنة").Range("A11:Y1000").Copy '----------------------------- Windows("تجميع.xls").Activate ws.Select LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Select ws.Paste Range("a11").Select Application.ScreenUpdating = True Application.DisplayAlerts = True Next I Unload Me End Sub ارجو ان يفي بطلبك ... جرب واشعرنا بالنتائج واهلا وسهلا بك بيننا وسط اخوه لك في الله ( بالعربي ) ... هههه تقبل خالص تحياتي تجميع بيانات المدارس.rar

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / رائد

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

السلام عليكم الاخ الكريم / baselnagar بارك الله فيك علي حسب فهمي لطلبك ... انك تريد تجميع البيانات الموجودة في ملفات المدارس من الكشوف في كشف واحد اسفل بعض في ملف تجميع وان كان كذلك ... شاهد المرفق التالي ( ولكن تم التنفيذ علي مدرستين فقط كمثال (( الحرية 1 - الحرية 2 )) حاولت تقديم ابسط كود ممكن لتنفيذ الفكرة ليمكن التعديل عليه بسهوله ... ارجو ان يتناسب مع طلبك قم بفتح ملف ( تجميع ) ثم اضغط علي زر ( تجميع البيانات ) وشاهد النتيجة ** ملحوظة : يجب ان يكون ملف تجميع في نفس الفولدر مع المدارس كما هو مرفق بالمرفقات تقبل خالص تحياتي شاهد المرفق المدارس.rar

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