هل ممكن الاستعاضة بدل المعادلات في العمود AE باكواد

[Mohmad83]

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

السادة الافاضل الكرام 

ارجوا من جنابكم تعويض بدل المعادلات في العمود AE بأكواد تعمل نفس عمل المعادلة علما ان وضيفة المعادلة حساب حرف A لكل صف علما ان المعادلة من نوع countif حاولات مرارا وتكرارا وفشلت

مع شكري وامتناني

حضور و غياب.xlsx

تم تعديل أكتوبر 3, 2020 بواسطه Mohmad83

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

جرب هذا الكود

Option Explicit

Sub How_Many_A(My_Sh As Worksheet)
Dim nCOL%, Nro$, x%, y%
 Nro = My_Sh.Cells(Rows.Count, 2).End(3).Row
 nCOL = My_Sh.Cells(1, Columns.Count).End(1).Column
 My_Sh.Cells(3, nCOL).Resize(Nro).ClearContents
  For x = 3 To Nro
    y = Application.CountIf(My_Sh.Cells(x, 3).Resize(, nCOL - 3), "A")
    My_Sh.Cells(x, nCOL) = IIf(y > 0, y, "")
  Next
End Sub
'++++++++++++++++++++++++++
Sub Sum_Of_A()
Dim ws As Worksheet
  For Each ws In Sheets
    Call How_Many_A(ws)
  Next
End Sub

الملف مرفق (اضغط على الزر Run في الصفحة الأولى ويتم التنفيذ غلى كل الصفحات)

 

 

Mohmad83.xlsm

[Mohmad83]

عاشات اناملك استاذ سليم 

هو المطلوب واكثر 

لكن لدي تسائل مالمقصود ب  _my _sh_A مع اني لم الاحظ شيت بهذا الاسم ولا نطاق

ثانياً لم ارى في الكود مذكور العمود AE المستهدف

الغاية هي الاستفادة والفهم

جزاك الله خيراً اخي العزيز

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

لم أذكر  في الكود  (ِAE)  بل ذكرت رقم اخر عامود فيه بيانات (nCol)   لأنه ربما  لا يكون اخر غامود  هو  AE  حسب كل صفخة
 

[Mohmad83]

جميل جداً استاذي الفاضل 

لم يبقى اي غموض بارك الله فيك وزادك من فضله وعلمه