رضا على قام بنشر مايو 17, 2022 مشاركة قام بنشر مايو 17, 2022 ارجو المساعدة فى تقسيم الارقام التى تكون اكبر من 50 اللى مجموعات = 50 وادراج صفوف يعدد المجموعات ارقام.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 17, 2022 أفضل إجابة مشاركة قام بنشر مايو 17, 2022 Sub Test() Const iNum As Double = 50 Dim a, t As Double, i As Long, k As Long Application.ScreenUpdating = False With ActiveSheet a = .Range("A4:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim b(1 To UBound(a, 1) * 10, 1 To 1) For i = LBound(a) To UBound(a) k = k + 1 If a(i, 1) <= iNum Then b(k, 1) = a(i, 1) ElseIf a(i, 1) > iNum Then t = a(i, 1) Do b(k, 1) = IIf(t >= iNum, iNum, t) t = t - iNum k = k + 1 If t <= iNum Then b(k, 1) = t: Exit Do Loop Until t < iNum End If Next i .Range("E10").Resize(k, UBound(b, 2)).Value = b End With Application.ScreenUpdating = True End Sub 3 1 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مايو 17, 2022 الكاتب مشاركة قام بنشر مايو 17, 2022 الف مليون شكر وامتنان لمجهودكم الكريم الكود جبار وهو المطلوب بالضبط اتا اسف نسيت اسال مع الاحتفاظ بباقى الاعمدة كما بالملف ارقام.xlsm رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مايو 18, 2022 مشاركة قام بنشر مايو 18, 2022 Not clear Explain well what is the problem now 1 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مايو 18, 2022 الكاتب مشاركة قام بنشر مايو 18, 2022 شكرا لردكم اريد عندما يتم التقسيم يحنفظ ببقيه البيانات فى الصفوف الاخرى الكود ازاح الاعداد لاسفل وانا موضح الحل والشكله بالملف تعديل ارقام.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان