omar elhosseini

شكرا لك اخي احسنت

محي الدين ابو البشر السلام عليكم ورحمة الله وبركات اخي العزيز ارجو عمل ملف مبسط لتجربة الكود لقد تم حذف مشاركتي الاولي ولا ادري السبب او تطبيق الكود علي هذا الملف للتجربة سبب طلبي هو تأكدي من انه لا يمكن عد الوان التنسيق الشرطي الا ببعض التحايل علي ال VBA Count_Color_FormatConditions.xlsm

الاخ Mr. shehata لن يستطيع احد الاجابة علي تسائلك فلا يمكن عد الوان خلايا التنسيق الشرطي ولكن يمكن التحايل علي ذلك فأذا اردت احد هذه الحلول ارفع ملفك مع وضع تصورك لصورة النتائج المستخرجة

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

شاهد الرابط التالي عمل العديد من ال CheckBox , OptionButton

اولا عمل العديد من CheckBox كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال CheckBox شاهد المرفق Create_CheckBoxes.xlsm ثانيا عمل العديد من OptionButton كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال OptionButton شاهد المرفق Create_OptionButtons.xlsm

عليكم السلام ورحمة الله وبركاتة شكرا لك اخي كلامك صحيح اخي فيمكن عمل الربط عن طريق كود VBA وبأذن الله تعالي سأعمل موضوع خاص بأنشاء كل من CheckBox OptionButton لك تحياتي

شكرا لك اخي اليك اسلوب اخر بأستخدام OptionButton بدلا من CheckBox شاهد المرقق Pending broker inc. 10-Apr-2023.xlsx

شاهد المرفق اخي Pending broker inc. 10-Apr-2023.xlsx

نعديل بسيط ...تم اعمل تظليل للصف الذي به البحث عند عمل كليك في اللست بوكس ولا تنسي ..عند عمل دبل كليك علي كل من تكست بوكس او كومبوبكس ..يتم تفريغ كل منهما Test_2.xlsm

اخي شاهد المرفق Test_1.xlsm

اخي شاهد المرفق المصنف1.xlsm

تعديل لتكبير الخط في الطباعة Test_4.xlsm

اخي شاهد المرفق Test_3.xlsm

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