أريد ضبط كود VBA في ورقة العمل لأكسل

[mohamedtahaawad]

في أكسل أريد كتابة معادلة( "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 ... 

هل يمكن أن أجد حلاً لماذا لا تظهر الرسالة ؟؟ 

شكراً للجميع , 

 

[mohamedtahaawad]

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

 

شكراً لحضراتكم ... تسلموا .. ولكم كل الشكر والتقدير  علي سرعة الأستجابة .. 

دفتر إبريل 2019.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub find_Over_Three()

Dim R%, i%
With Range("Bq5").Resize(187, 2)
.ClearContents
.Interior.ColorIndex = xlNone
End With
R = Cells(Rows.Count, 1).End(3).Row
 With Range("Bq5").Resize(R - 4)
    .Formula = "=COUNTIF(B5:BP5,""شخصى"")"
    .Value = .Value
 End With
For i = 5 To R
 If Cells(i, "Bq") > 3 Then
   Cells(i, "Bq").Interior.ColorIndex = 6
   End If
 Next

End Sub

الملف مرفق

April.xlsm

[mohamedtahaawad]

أخي الكريم ... لك كل الشكر وإدارة الموقع المتميز ... 

 

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

 

ولكن بالطبع لابد أن أشكر كل السادة المحترمين في الموقع وإدارة الموقع التي تتحرك بسرعة - هذا ليس مدحاً - ولكن الذي رأيته .. 

 

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

دفتر إبريل 2019.xlsx