مساعدة في في كود بخصوص label

[الجموعي]

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

أريد مساعدتي في هذا الكود

الكود الرئيسي يعمل بنجاح

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 5
     Me.Controls("Label" & i).Caption = Cells(2, i).Value
Next i
End Sub

أنا أريد إضافة هذا الكود للكود الرئيسي بحيث

For i = 1 To 2
     Me.Controls("Lab" & i).Caption = Cells(1, i).Value
Next i

أرجو تكون الفكرة قد وصلت

[إبراهيم ابوليله]

اخى الجموعى

اين المرفق

عود نفسك دائما على وضع مرفق

لتوفير الوقت والجهد  على الاخرين

ثم لسرعة حصولك على اجابه

[الجموعي]

اخى الجموعى

اين المرفق

عود نفسك دائما على وضع مرفق

لتوفير الوقت والجهد  على الاخرين

ثم لسرعة حصولك على اجابه

شكرا أخي على النصيحة

تفضل المرفق

label 1 ‫‬.rar

[عبدالله باقشير]

السلام عليكم

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 7
    Me.Controls("Label" & i).Caption = Cells(2, i).Value
Next i
For i = 1 To 2
     Me.Controls("Lab" & i).Caption = Range("B1,E1").Areas(i)
Next i

End Sub

[الجموعي]

 

السلام عليكم

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 7
    Me.Controls("Label" & i).Caption = Cells(2, i).Value
Next i
For i = 1 To 2
     Me.Controls("Lab" & i).Caption = Range("B1,E1").Areas(i)
Next i

End Sub

بارك الله فيك أستاذي القدير

جزاك الله كل الخير

عندي إستفسار هل من طريقة لجعل الكتابة أفقية مثل في الصورة

[عبدالله باقشير]

 

بارك الله فيك أستاذي القدير

جزاك الله كل الخير

عندي إستفسار هل من طريقة لجعل الكتابة أفقية مثل في الصورة

 

تقصد خط الليبل .........الله اعلم

[الجموعي]

 

 

بارك الله فيك أستاذي القدير

جزاك الله كل الخير

عندي إستفسار هل من طريقة لجعل الكتابة أفقية مثل في الصورة

 

تقصد خط الليبل .........الله اعلم

 

لا أخي أقصد إتجاه الكتابة تكون افقية

[عبدالله باقشير]

الله اعلم