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

برنامج الجمعيات الخيرية هدية مجانية / صدقة جارية / عن روح والدي عبد الله سلوم / ابو العبد رحمة الله مرفق اسفل الرقم السري للبرنامج 12345 مع تحيات المبرمج عبد اللطيف سلوم 0798648004 الجمعيات الخيرية.accdb

وعليكم السلام ورحمة الله جرب هذا .... items.accdb

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

الحمد لله رب العالمين

تفضل اخى الكريم لك ما طلبت اشعار1.xlsx

بوركت اخي kanory نعم هذا المطلوب جزيت خيرا

الأحبة @محمد احمد لطفى @ali mohamed ali @Khalf @moham_q @kanory أشكركم على المرور كلكم ذوووق

كل المحبة والاحترام كلك ذووق اخي @kanory

لقد وضعت لك الحل هنا مثلا لفتح الإضافة استعمل السطر الأول كما يلي: Me.AllowAdditions = True ' السماح بالإضافة

ملف جيد و الى الامام لكن ارجو تقبل بعض الملاحظات: 1- لا ضرورة لتحميل ملف كبير بهذا الشكل يكفي ملف صغير مختصر 20 الى 30 صف (نموذج ) والذي يريد اضافة معلومات يكون الامر متاحاً له 2- لا ضرورى لادراج التواريخ يدوياً في كل صفحة من صفحات الشهور (يكفي عمل نسخات (12 نسخة) عن الورقة Salim من هذا الملف واختيار الشهر والسنة و بوم العطلة في كل نسخة) ثم تسمية هذه الصفحات باسماء الشهور اذا اردت ليقوم اكسل بادراج التواريخ ألياً (كما في الصفحة Salim) مع حساب الشهر 28و29و30 أو 31 و تاوين يوم العطلة كما تحدده في الخلية A3 3 -هذه الورقة صالحة لكل الاعوام الدراسية (يكفي تغيير السنة فقط من الخلية A1) في كل صفحة من صفحات الشهور الملف (كنموذج) مرفق كشف Salim.xlsm

تم الحل اذا كان هناك حل أخر فى الاستعلام يرجى وضعه test 5 500.mdb

بارك الله فيك أخي @عبد اللطيف سلوم وغفر لوالديك ,اسكن العم عبدالله سلوم فسيح جناته ورزقنا وأياك البر بأبائنا ...

بارك الله فيك اخينا عبداللطيف على المجهود الرائع في المنتدى ربي يرحم والدك ويجعل مثواه الجنة

سوف أحاول فيه .... الله ييسر الامور ان شاء الله تعالى ....

تغمد الله و الديك برحمته و كل عام و أنت بألف خير .

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

ربما ينال الاعحاب هذا الملف (معادلات) موادالرسوب++Salim.xlsx

راح أعقل ركبتي و أنتظر أحد هذه البرامج. فقد تم تعييني مسؤولا عن مدرسة قرآنية مأخرا.

بارك الله فيك استاذى الكريم وجزاك الله كل خير وأكثر الله من أمثالك-ورحم الله والدك وغفر له وأدخله الله فى رحمته وكل عام وانتم بخير عيد أضحى مبارك

رحم الله أباك و غفر له و جعلك الله و ما عملت و ما لم تعمل بعد ذخرا من أكبر ذخائره ليوم الحساب

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

هذا الماكرو يقوم بالمطلوب Option Explicit Sub Give_Data() Dim MY_arr$ Dim my_st$: my_st = "غائب" Dim i%, j%, K%: K = Range("d6").CurrentRegion.Rows.Count + 5 Dim t%: t = 2 Range("q6").Resize(K - 5, 1).ClearContents For i = 6 To K For j = 6 To 13 If Cells(i, j) <> "" And (Cells(i, j) = my_st Or Cells(i, j) < 50) Then MY_arr = MY_arr & Cells(i, j).Offset(-t) & " " End If Next Cells(i, 17) = MY_arr MY_arr = "" t = t + 1 Next End Sub الملف مرفق موادالرسوب.xlsm

السلام عليكم رائع استاذ محمد وفقكم الله ورعاكم جعلها الله في ميزان حسناتكم لكم وافر احترامي وتقديري

العفو اخي ابو زاهر بالتوفيق

تسلم يا أخي ... الحمد لله رب العالمين

جرب هذا موادالرسوب.xlsx

كل عام أنتم إلى الله أقرب وعلى طاعته أدوم

لاحظ التقرير وطبق عل بقية الحقول تقرير.rar

مرفق الملف بعد التعديل ارجو أن يكون ما تم هو المطلوب لاحظ أخي أني قمت بتغيير عناوين الأعمد حتى يقبلها الاكسيل كاسماء نطاقات قائمة منسدلة.xlsx

ماكرو مختصر اكثر (بدون أرقام) Private Sub ComboBox1_Change() Dim x% x = Application.Match(ComboBox1.Text, Range("r1:r12"), 0) ComboBox2.ListFillRange = Range("R" & x & ":R" & 12).Address End Sub

جرب هذا الماكرو (يحب ان تضع الارقام من 1 الى 12 ) في العامود S ابتداء من S1 Private Sub ComboBox1_Change() Dim x%, i% ComboBox2.Clear x = Application.VLookup(ComboBox1.Text, Range("r1:s12"), 2, 0) For i = x To 12 ComboBox2.AddItem Range("r" & i).Value Next End Sub

تفضل: NavBarTest.rar

أخي الكريم كابون يبدو أنك لم تقرأ جيداً المشاركات رقم 5 و 6 و 6 في هذا الموضوع فقد كان الحل مع مشكلة مثل مشكلتك وضع كود التحجيم قبل كود التكبير أنا فتحت النموذج الخص بك ولم أجد فيه اي مشاكل تم تحجيم النموذج حسب دقة شاشتي 1280 * 1024 ولا يوجد مشكلة سوى أنك استعملت شرائط التمرير يعني وأنت تصمم النموذج ضيقت حدود النموذج عن محتوياته هذا بالإضافة لوضع كود التحجيم قبل كود التكبير جرب وأخبرني بالنتيجة

السلام عليكم اخي الفاضل skyblue If Target.Address = Range("kh_test").Cells(MyRows - 2, 1).Address و هذا يعني انه ادا كان عنوان الخلية المحددة = عنوان الصف ما قبل الاخير للمدي kh_test فلنفرض ان المدي kh_test هو من A1:A8 فلخلية المقصوده هنا هي A6 Range("kh_test").Cells(MyRows - 1, 1).EntireRow.Insert و هذا معناه ان يتم ادراج صف قبل الصف الاخير لعدد الصفوف للمدي kh_test Target.Resize(1, 4).Interior.ColorIndex = xlNone Target(2, 1).Resize(1, 4).Interior.ColorIndex = 36 وهذان السطران مرتبطان ببعضهما حيث ان السطر الاول لازالة الالوان من صف الخلية المحددة و الي العمود الرابع منها و السطر الثاني لاعطاء لون للصف الذي يلي الخليه المحددة و الي العمود الربع منها ارجو ان اكون وفقت في الشرح خالص تحياتي