أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحقق اكثر من معيار في COUNTIF

السلام عليكم ورحمه الله وبركاته ارجو المساعدة في استخدام الدالهcountifلاكثر من معيار وذلك لعجزي عن عمل ذلك فارجو المساع ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


13-08-2020 06:25 صباحا
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 

السلام عليكم ورحمه الله وبركاته
ارجو المساعدة في استخدام الدالهcountifلاكثر من معيار  وذلك لعجزي عن عمل ذلك فارجو المساعده من فضلكم,، اتمنى أن يكون بالكود
مرفق الملف
 
 
  COUNTIF.zip   تحميل zip مرات التحميل :(1)
الحجم :(8.417) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذا الكود

Option Explicit
Sub test()
  Dim Da As Worksheet, Im As Worksheet
  Dim d_Rg As Range, Im_Rg As Range
  Dim I_cel As Range, cel As Range
  Dim s%, I%, col%
  Dim arr()
  
  Set Da = Sheets("data"): Set Im = Sheets("Import")
  Set Im_Rg = Im.Range("H13:H16")
  Set d_Rg = Da.Range("E5").CurrentRegion
  
Im.Range("l12").CurrentRegion.ClearContents

arr = Array("ج ج", "ل", "م", "ج", _
       "منقول صادر", "منقول وارد")
For Each cel In Im_Rg.Cells
  Set I_cel = d_Rg.Rows(1).Find(cel, lookat:=1)
   If I_cel Is Nothing Then GoTo Next_Item
    col = I_cel.Column
     For I = 6 To d_Rg.Rows.Count + 4
       If Not IsError(Application. _
         Match(Da.Cells(I, col), arr, 0)) Then
         s = s + 1
       End If
      Next I
   cel.Offset(, 4) = s: s = 0
Next_Item:
Next cel
Im.Range("l12") = "COUNT_BY_CODE"
End Sub

الملف مع الكود
 
عرض الإجابة




13-08-2020 07:29 صباحا
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
جرب هذا الملف
 
 
 
  Hammouda.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(20.283) KB


13-08-2020 10:50 صباحا
مشاهدة مشاركة منفردة [2]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
ربنا يكرم سيادتك.،،، هل ممكن بكود

13-08-2020 03:12 مساء
مشاهدة مشاركة منفردة [3]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
وعليكم السلام ورحمة الله وبركاته
ان شاء الله المعادلتين تناسبك اختار احداهما،،،،، قم بالتعديل على النطاق والمعيار الذي تريده

=SUM(COUNTIF(A1:A500;{"ل";"جـ";"جـ جـ";"م";"منقول بمادة*";"منقول بمادتين*"}))
=COUNTIF(A1:A50;"ل")+COUNTIF(A1:A50;"جـ")+COUNTIF(A1:A50;"جـ جـ")+COUNTIF(A1:A50;"م")+COUNTIF(A1:A50;"منقول بمادة*")+COUNTIF(A1:A50;"منقول بمادتين*")

13-08-2020 03:16 مساء
مشاهدة مشاركة منفردة [4]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
هذا ما اريده،،،هل بالإمكان المساعده لجعلها بكوووود!!!!!!

13-08-2020 04:08 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
جرب هذا الكود

Option Explicit
Sub test()
  Dim Da As Worksheet, Im As Worksheet
  Dim d_Rg As Range, Im_Rg As Range
  Dim I_cel As Range, cel As Range
  Dim s%, I%, col%
  Dim arr()
  
  Set Da = Sheets("data"): Set Im = Sheets("Import")
  Set Im_Rg = Im.Range("H13:H16")
  Set d_Rg = Da.Range("E5").CurrentRegion
  
Im.Range("l12").CurrentRegion.ClearContents

arr = Array("ج ج", "ل", "م", "ج", _
       "منقول صادر", "منقول وارد")
For Each cel In Im_Rg.Cells
  Set I_cel = d_Rg.Rows(1).Find(cel, lookat:=1)
   If I_cel Is Nothing Then GoTo Next_Item
    col = I_cel.Column
     For I = 6 To d_Rg.Rows.Count + 4
       If Not IsError(Application. _
         Match(Da.Cells(I, col), arr, 0)) Then
         s = s + 1
       End If
      Next I
   cel.Offset(, 4) = s: s = 0
Next_Item:
Next cel
Im.Range("l12") = "COUNT_BY_CODE"
End Sub

الملف مع الكود
 
 
 
  Hammouda_withCode.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(32.881) KB


14-08-2020 05:58 مساء
مشاهدة مشاركة منفردة [6]
محمد محمد حمودة
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-05-2018
رقم العضوية : 6221
المشاركات : 60
الجنس : ذكر
تاريخ الميلاد : 29-1-1984
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 62
 offline 
look/images/icons/i1.gif تحقق اكثر من معيار في COUNTIF
جزاك الله خيرا....
لكن الكود لم يضبط معي ...
حيث في صفحةdata...قمت بتغيير الصف ابتداء من الصف الثاني ....بدلا من الخامس
 
 
  Hammouda_withCode1.rar   تحميل rar مرات التحميل :(1)
الحجم :(21.842) KB



الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
تحقق ، اكثر ، معيار ، COUNTIF ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:36 مساء