بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
اساتذتي واخوتى
هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء
يوجد فورم يمكنك البحث بها
كما يمكنكم استخدام الفلتر العادي
وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي
ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف
فهرس منتدي الاكسيل.xlsb
السلام عليكم و رحمة الله
استخدم هذا الكود
Sub Summing()
Dim C As Range, i As Long
Dim a As Integer, b As Integer
i = 3
Do While i <= 4
a = Range("E" & i): b = Range("F" & i)
For Each C In Range("A3:A9")
If C.Value >= a And C.Value <= b Then
k = k + C.Offset(0, 1)
Range("G" & i) = k
End If
Next
k = 0
i = i + 1
Loop
End Sub
السلام عليكم
عندي استعلام وبداخله حقل فيها شرط بحث بي دالة like وشغاله تمام
المشكلة اني عامل تقرير مبني علي نفس الاستعلام عند فتح التقرير ياخذ البيانات كاملة وليس البيانات التي تم البحث عنها فقط
تجريبي.rar
استاذتنا الكرم شكراً لي اهتمام حضرتكم
الحمدلله تواصلت الي الحل الي اريده بمساعدة افكار حضرتكم جميعاً وبفكرة استاذتنا في جروب الواتس ايضاً
قمت بعمل مربع نص اخر جمب مربع نص البحث
وقمت بكتابة هذا الكود في حدث عند التغيير
Dim X
x= me.searchbox.Text
Me.search =x
وتم تعديل دالة Like وازالة Text منها
والمشكلة كانت استخدام تعريف الحقل في الاستعلام انه Text
الملف بعد التعديل.rar
بارك الله فيكم أساتذتنا ونفع بكم ، ونسأله تعالى أن يجازيكم بكل حرف علمتموه لنا وعلمناه غيرنا أو عملنا به مشروع برمجي ينتفع منه الناس ، وعني شخصيا تلميذكم كلما ساعدت أحدهم أو منحته ملف يستفيد منه فإنني أدعو الله أن يكون صدقة جارية لكل من علم وعمل كل بالقدر الذي استفدت منه.
خالص تحياتي لكم جميعا
ادخال معلومات بالاختيار من ليست بوكس للجدول واصدار تقرير متعدد الاختيارات . المرفق متاح ومفتوح المصدر لكل مايريد استخدامه أو استخدا مابه ...
DDChoseMulty Items to Report.rar