MoshAna

شكرا ا/محمد

كود حضرتك تمام
المشكلة كانت فى اصدار الاوفيس اللى كنت شغال عليه لا يدعم دالة MAXIFS
جزاكم الله كل الخير وجعل كل ما تقدمونه من مساعدات فى ميزان حسناتكم

السلام عليكم ورحمة الله وبركاته ...تحية الى جميع الاخوة الاعضاء

احاول انشاء برنامج صغير للحسابات واحاول ايجاد طريقة لاستدعاء اكبر قيمة الى TextBox بشرط محتوي ComboBox
' كود لا يعمل بشكل صحيح

a = ComboBox1.Value
b = formulaarry = "=Max(IF(a = (c2:c), (a2:a) + 1, 1))"
TextBox1.Value = b
Label1.Caption = b

وصلت الى حل عن طريق معادلة فى خلية فى شيت اكسيل

'كود بمعادلة وسيطة فى شيت اكسيل
 

Sheet1.[f2].FormulaArray = "=MAX(IF(g2= (sheet2!c2:c100),(sheet2!a2:a100)+1,1))"
Sheet1.[g2] = ComboBox1.Value
TextBox2.Value = Sheet1.[f2].Value
Label2.Caption = Sheet1.[f2].Value

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

مرفق ملف يوضح ما سبق ..شكرا جزيلاً    ....انتبه من فضلك, تــــم تعديل وضع الأكواد  بالمشاركة والطريقة كما بالصورة المرفقة

Test01.xlsm

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

دا ملف الى حد كبير فيه اللى كنت بدور عليه حبيت اشاركه مع المنتدي
فيه بعض العيوب لكن ان شاء الله تتحل عن قريب
العيوب
- فى حالة الغاء كامل محتوي الكمبوبوكس بزر BACKSPACE لا يعض كامل النتائج مرة اخي حتى الخروج من الفروم واعادة تشغيله
- يظهر الفراغات والاسماء المكررة

Searchable Combobox Test.xlsm

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

دا كود من تصميم اخونا سعيد صواب لكمبوبوكس فى قاعدة بيانات اكسيس

كنت محتاج كود لكمبوبوكس فى اكسيل يؤدي نفس النتيجة

Tst.accdb

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

الاخوة الاعزاء
موضوع شيق ونتيجة مثمرة وفقكم الله جميعا
بس هل فيه كود يعطي نفس النتيجة لـ Combobox فى اكسيل بدون الاستعانة بـ Listbox

ارجو الافادة

شكرا جميعا على المجهور الرائع