خير الايمان قام بنشر مايو 1 مشاركة قام بنشر مايو 1 (معدل) السلام عليكم ورحمة الله وبركاته اساتذتنا الكرام اسأل الله لكم تمام الصحة والعافية برجام حل مشكلة تحويل الاعداد من الى الموجودة بالمرفق الى الوضع المقابل بالجدول بنفس المرفق دمتم بحفظ الله وامنه Group.rar تم تعديل مايو 1 بواسطه خير الايمان رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 1 أفضل إجابة مشاركة قام بنشر مايو 1 Try Sub Test() Dim ws As Worksheet, m As Long, i As Long, ii As Long Application.ScreenUpdating = False Set ws = ActiveSheet: m = 2 With ws .Columns("K:M").Clear .Columns("M").ColumnWidth = 11 With .Range("K1").Resize(, 3) .Value = Array("Group", "Number", "Work Date") .Interior.Color = RGB(146, 205, 220) .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With For i = 2 To 6 If .Cells(i, 2).Value < .Cells(i, 3).Value And IsNumeric(.Cells(i, 2).Value) And IsNumeric(.Cells(i, 2).Value) Then For ii = .Cells(i, 2).Value To .Cells(i, 3).Value .Cells(m, "K").Resize(, 3).Value = Array(.Cells(i, 1).Value, ii, .Cells(i, 4).Value) m = m + 1 Next ii End If Next i End With Application.ScreenUpdating = True End Sub 1 1 رابط هذا التعليق شارك More sharing options...
خير الايمان قام بنشر مايو 2 الكاتب مشاركة قام بنشر مايو 2 استاذي الخلوق lionheart لا يسع حرفي ان يوفي من شكر لسرعة الاستجابة وعبقرية الحل اسأل الله لك الصحة والعافية وعذرا لو سمح وقت حضرتك اضافة عمود اخر بعنوان تاريخ الانتهاء دمت وادامك الله بكل الخير تقديري 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر مايو 2 مشاركة قام بنشر مايو 2 Try to read the code to add a fourth column in the output. The code is so simple to read رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان