mohamedtahaawad

أخي الكريم ... لك كل الشكر وإدارة الموقع المتميز ... لكن الملف الذي قمت برفعه عندما وضعت الكود الذي في الأعلي , لم يحدث شئ ... الرجاء إذا كان هناك فائدة من VBA , الرجاء مع الشكر أن يكون هناك حلاً .. لقد جربت أكواد كثيرة بصراحة من هنا إلي المواقع الأجنبية .. فلم أحصل علي شئ في النهاية للأسف ... ولكن بالطبع لابد أن أشكر كل السادة المحترمين في الموقع وإدارة الموقع التي تتحرك بسرعة - هذا ليس مدحاً - ولكن الذي رأيته .. لقد رفعت الملف مرة آخري وكتبت المطلوب داخله .. شكراً لحضراتكم .. تسلموا والله ينور علي المجهود والأهتمام .. دفتر إبريل 2019.xlsx

الملف المرفق هو عبارة عن الملف المطلوب إدخال المعادلة ( التي تظهر رسالة ) إذا تعدي عدد الشخصي عن (3) أذونات شخصية يعطي البرنامج ( رسالة تحذير ) تخبر فيها بأن عدد الشخصي قد نفذ .. شكراً لحضراتكم ... تسلموا .. ولكم كل الشكر والتقدير علي سرعة الأستجابة .. دفتر إبريل 2019.xlsx

في أكسل أريد كتابة معادلة( "Countif(a1:a4,"Azn" هو يعد الكلمات التي تكون بالخلية ... أرعب في عند وصول إلي عدد معين من الأرقام تظهر رسالة تخبر بأن قد وصل العدد إلي رقم 4 مثلاً .. فقد حاولت كتابة هذا الكود بنفسي ولكن لا يعمل الكود .. وهو : Sub dothis() Counter = WorksheetFunction.CountIf(Range("a1:a4"), "Azn") If Counter > 3 Then MsgBox "the number is 3!" End If ولكن بالطبع الكود لا يعمل ولا يظهر شئ علي الشاشة بعد العدد 3 ... هل يمكن أن أجد حلاً لماذا لا تظهر الرسالة ؟؟ شكراً للجميع ,