mmase1989 قام بنشر فبراير 16, 2020 مشاركة قام بنشر فبراير 16, 2020 السلام عليكم بارك الله فيك وجزاكم عنا خير الجزاء مرفق ملف مطلوب معرفة عدد مرات وجود رقم لنص معين جربت بدالة countifs بس ماظبط معي مثال.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر فبراير 16, 2020 أفضل إجابة مشاركة قام بنشر فبراير 16, 2020 جرب هذا الكود Option Explicit Sub Find_all() Dim S As Worksheet Dim D As Object Dim Ro%, k%, a, b, c Set S = Sheets("sheet1") Set D = CreateObject("Scripting.Dictionary") S.Range("E1").CurrentRegion.Offset(1).ClearContents Ro = S.Cells(Rows.Count, 2).End(3).Row With D k = 2 Do Until k = Ro + 1 If S.Range("B" & k) <> vbNullString Then Select Case S.Range("B" & k) Case "الشرقية": a = a + 1 Case "الغربية": b = b + 1 Case "القاهرة": c = c + 1 End Select If Not D.exists(S.Range("B" & k).Value) Then D.Add (S.Range("B" & k).Value), _ IIf(IsNumeric(S.Range("C" & k).Value), S.Range("C" & k).Value, 0) Else D(S.Range("B" & k).Value) = D(S.Range("B" & k).Value) + _ IIf(IsNumeric(S.Range("C" & k).Value), S.Range("C" & k).Value, 0) End If End If k = k + 1 Loop Cells(2, "E").Resize(.Count - 1) = _ Application.Transpose(.keys) Cells(2, "F").Resize(.Count - 1) = _ Application.Transpose(.Items) Cells(2, "G") = a Cells(3, "G") = b Cells(4, "G") = c .RemoveAll End With Set D = Nothing: Set S = Nothing End Sub الملف مرفق Example.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
mmase1989 قام بنشر فبراير 16, 2020 الكاتب مشاركة قام بنشر فبراير 16, 2020 الله يجازيك حضرتك كل خير يارب م شكور علي تعبك انا بس اقصد عدد مرات تواجد رقم لكل محافظة بمعني كم عدد تواجد رقم لكل محافظة وليس المجموع يعني محافظة مثل الشرقية عدد مرات تواجد رقم في صف الهيكل (3 مرات فقط) وهكذا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 16, 2020 مشاركة قام بنشر فبراير 16, 2020 احذف هذا السطر من الكود و ترى كل شيء كما تريد Cells(2, "F").Resize(.Count - 1) = _ Application.Transpose(.Items) 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان