إخواني الفضلاء .. @أبو عبدالله الحلوانى @أبو إبراهيم الغامدي
تحية طيبة لكم ..
بعد تجربة الكود الذي تفضل به أخي @أبو عبدالله الحلوانى فقد وجدته هو المطلوب ويفي بالمقصود مع بعض التعديل في حال الحاجة . وفقكم الله جميعا .. ولا حرمكم الأجر .
If ShabaNo <= 4 Then
shetNo = Val(ShabaNo * 2)
Else
Select Case ShabaNo
Case 5
shetNo = 2
Case 6
shetNo = 4
Case 7
shetNo = 6
Case 8
shetNo = 8
End Select
End If