اذهب الي المحتوي
أوفيسنا

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


Mohmad83
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

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

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

حضور و غياب.xlsx

تم تعديل بواسطه 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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information