ياسر أحمد الشيخ قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 (معدل) السلام عليكم ورحمه الله وبركاته - أريد معادلة لكتابه تواريخ الراحات لكل موظف - الراحه رمزها R -الصف B يحتوى على التواريخ - النتيجة تكون هكذا: "01+07+13+19+20+26" متطلبات معينه: أريد معادلة وليس كود برمجى Write Dates of rest Days.zip تم تعديل يناير 15, 2018 بواسطه ياسر أحمد الشيخ رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 السلام عليكم ورحمة الله استخدم الكود الآتى : Sub CountDays() Dim C As Range Dim Arr(), LR As Long, i As Long, p As Long Dim SDay As String Application.ScreenUpdating = False LR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row SDay = "" i = 3 Do While i <= LR For Each C In Range(Cells(i, "B"), Cells(i, "AC")) If C.Value = "R" Then p = p + 1 ReDim Arr(i, p) Arr(i, p) = Cells(2, C.Column) SDay = SDay & Arr(i, p) & "+" Cells(i, "AD") = Mid(SDay, 1, Len(SDay) - 1) End If Next SDay = "" i = i + 1 Loop Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 16, 2018 الكاتب مشاركة قام بنشر يناير 16, 2018 شكرا أخى الكريم ولكنى اريد معادله وليس كود ، كما ذكرت فى البوست الرئيسى رابط هذا التعليق شارك More sharing options...
ياسر أحمد الشيخ قام بنشر يناير 18, 2018 الكاتب مشاركة قام بنشر يناير 18, 2018 للرفع......للرفع......للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.