معادلة لكتابه تواريخ الراحات لكل موظف

[ياسر أحمد الشيخ]

 

 

السلام عليكم ورحمه الله وبركاته

- أريد معادلة لكتابه تواريخ الراحات لكل موظف

- الراحه رمزها R

-الصف B  يحتوى على التواريخ

- النتيجة تكون هكذا:  "01+07+13+19+20+26"

متطلبات معينه: أريد معادلة  وليس كود برمجى

 

Write Dates of rest Days.zip

تم تعديل يناير 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

 

[ياسر أحمد الشيخ]

شكرا أخى الكريم

ولكنى اريد معادله وليس كود ، كما ذكرت فى البوست الرئيسى

[ياسر أحمد الشيخ]

للرفع......للرفع......للرفع