خالد ابوعوف قام بنشر يوليو 1, 2019 مشاركة قام بنشر يوليو 1, 2019 (معدل) السلام عليكم - حياكم الله معادلة لعد خلايا كل قائمة على اساس حدود الصفحة + مبلغ كل قائمة عد القوائم.xlsx تم تعديل يوليو 1, 2019 بواسطه خالد ابوعوف اضافة فقرة مبلغ القائمة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 1, 2019 مشاركة قام بنشر يوليو 1, 2019 ربما ينفع هذا الكود Sub Salim_Has() Dim my_rg As Range Dim i%, last_row%, m%: m = 2 Dim my_st$ my_st$ = "قائمة رقم " last_row = Quawaem.Cells(Rows.Count, 1).End(3).Row Khoulasa.Range("a1").CurrentRegion. _ Offset(1).ClearContents For i = 3 To last_row If Quawaem.Range("b" & i) <> "" And _ Quawaem.Range("b" & i) <> "الاسم" Then If my_rg Is Nothing Then Set my_rg = Quawaem.Range("B" & i) Else Set my_rg = Union(Quawaem.Range("B" & i), my_rg) End If End If Next For i = my_rg.Areas.Count To 1 Step -1 Khoulasa.Cells(m, 2) = _ Application.CountA(my_rg.Areas(i)) Khoulasa.Cells(m, 1) = my_st$ & m - 1 m = m + 1 Next Set my_rg = Nothing End Sub الملف مرفق Quawaem_count_new.xlsm 1 رابط هذا التعليق شارك More sharing options...
خالد ابوعوف قام بنشر يوليو 1, 2019 الكاتب مشاركة قام بنشر يوليو 1, 2019 حياك الله - استاذ تسلم - جزيت خيرا ممكن النظر مشكور الى الملف - تم اضافة - فقرة - جمع كل قائمة أم اجعله في طلب مستقل جزيتم خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يوليو 1, 2019 أفضل إجابة مشاركة قام بنشر يوليو 1, 2019 2 ساعات مضت, خالد ابوعوف said: حياك الله - استاذ تسلم - جزيت خيرا ممكن النظر مشكور الى الملف - تم اضافة - فقرة - جمع كل قائمة أم اجعله في طلب مستقل جزيتم خيرا تعديل على الكود ليتناسب مح المطلوب Option Explicit Sub Salim_Has() Dim my_rg As Range Dim i%, last_row%, m%: m = 2 Dim my_st$ my_st$ = "قائمة رقم " last_row = Quawaem.Cells(Rows.Count, 1).End(3).Row Khoulasa.Range("a1").CurrentRegion. _ Offset(1).ClearContents For i = 3 To last_row If Quawaem.Range("b" & i) <> "" And _ Quawaem.Range("b" & i) <> "الاسم" Then If my_rg Is Nothing Then Set my_rg = Quawaem.Range("B" & i) Else Set my_rg = Union(Quawaem.Range("B" & i), my_rg) End If End If Next For i = my_rg.Areas.Count To 1 Step -1 With Khoulasa.Cells(m, 1) .Value = my_st$ & m - 1 .Offset(, 1) = Application.CountA(my_rg.Areas(i)) .Offset(, 2) = Application.Sum(my_rg.Areas(i).Offset(, 1)) End With m = m + 1 Next Set my_rg = Nothing End Sub الملف من جديد Quawaem_count_new.xlsm 1 رابط هذا التعليق شارك More sharing options...
خالد ابوعوف قام بنشر يوليو 1, 2019 الكاتب مشاركة قام بنشر يوليو 1, 2019 تسلم - هو المطلوب الكود - جزيت خير يفي بالغرض 100 % ممكن معادلات - احتاجه اذا عندي اكثر من شيت يحتوي على قوائم فاحتاج المعادلات لسهولة التغيير اسم الشيت - وتاتي القوائم مختلفة الاعمدة شاكر جهودك وجزيت خيرا كثيراً - ورب كريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان