حساب عدد الخلايا

[هاوي اكسل]

السلام عليكم ..لابد من التحية عند بدء أى مشاركة ..أرجو من حضراتكم التكرم على مساعدتى بالعمود A اريد ان احسب عدد الخلايا التي تكون اصغرمن او يساوي F3 بعد تحقق الرقم في نفس العمود واهمال التي تكون قبل تحقق الرقم

ورقة عمل Microsoft Excel جديد.xlsx

[ابراهيم الحداد]

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

استخدم المعادلة التالية

=COUNTIF(OFFSET($A$1;MATCH($F$3;$A$1:$A$9;0)+1;0;9;1);"<="&$F$3)

 

[محمد هشام.]

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

Sub Count_cells_if()
  Dim MH As Variant
  Dim ws As Worksheet
  Set ws = Worksheets("sh1")
  Range("A10:D10").ClearContents
  On Error Resume Next
  MH = 0: MH = Application.WorksheetFunction.CountIf(ws.Range("a" & Application.WorksheetFunction.Match(Range("f3"), _
    Range("a1:a9"), 0) & ":a9"), "<=" & ws.Range("f3"))
  If MH <> 0 Then ws.Range("a10") = MH
 ''''''''''''''''''''''''''''''''''''''''
  MH = 0: MH = Application.WorksheetFunction.CountIf(ws.Range("B" & Application.WorksheetFunction.Match(Range("f3"), _
    Range("B1:B9"), 0) & ":B9"), "<=" & ws.Range("f3"))
  If MH <> 0 Then ws.Range("B10") = MH
 ''''''''''''''''''''''''''''''''''''''
  MH = 0: MH = Application.WorksheetFunction.CountIf(ws.Range("C" & Application.WorksheetFunction.Match(Range("f3"), _
    Range("C1:C9"), 0) & ":C9"), "<=" & ws.Range("f3"))
  If MH <> 0 Then ws.Range("C10") = MH
 '''''''''''''''''''''''''''''''''''''''''
  MH = 0: MH = Application.WorksheetFunction.CountIf(ws.Range("D" & Application.WorksheetFunction.Match(Range("f3"), _
    Range("D1:D9"), 0) & ":D9"), "<=" & ws.Range("f3"))
  If MH <> 0 Then ws.Range("D10") = MH
 
 On Error GoTo 0
End Sub

ورقة عمل Microsoft Excel جديد (1).xlsm

[هاوي اكسل]

الف شكر لك اخي  وأستاذى الكريم  ابراهيم .. نقلت المعادلة على ملف اخر لم تعمل

الف شكر لك اخي الغالي محمد هشام ..لم يعمل الماكرو ..مع اني مكنت كافة وحدات الماكرو

 

[مهند محسن]

انتبه من فضلك هاوي اكسل فالكود يعمل بكل كفاءة وشوف بنفسك فضمون الرسالة التى تظهر لك ان هذه مشكلة عندك انت ويجب عليك اصلاحها بنفسك ويكمن حل مشكلتك بعمل كليك يمين على ملف الإكسيل قبل فتحه ثم الضغط على Properties (الخصائص) ثم بعد ذلك تفعيل واختيار Unblock بمعنى وضع علامة صح داخل مربعها وسيعمل الملف معك بكل كفاءة ويسر

ورقة عمل Microsoft Excel جديد (1).xlsm

[هاوي اكسل]

شكرا لك اخ مهند