كيف اجعل الفورم وجميع مكوناته من اليمين الى اليسار (عنوان معدل)

[hesham_khadr200]

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

اخواني الاعزاء طلبي منكم هو شرح خصائص الفورم في اكسيل وبالاخص كيف اجعل الفورم وجميع مكوناته من اليمين الى اليسار

في الخصائص او عن طريق الكود

وشكرا جزيلا لكم

[عبدالله المجرب]

السلام عليكم

اليك هذه الروابط

http://www.officena.net/ib/index.php?showtopic=39323&st=40#entry220321

http://www.officena.net/ib/index.php?showtopic=39323&st=60#entry220408

[hesham_khadr200]

اخي الحبيب انا اقصد كود الاستاذ كيماس الذي شرحه في يوتيوب في هذا الرابط

ولكن الكود لم يشرح جيدا في الفيديو واريده مكتوبا حتى استطيع الاستفاده منه

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

[أبو حنــــين]

جرب المثال التالي

مثال.rar

[hesham_khadr200]

اخي الفاضل ابو حنين شكرا لسرعة الرد

ولكني اريد الفورم يفتح وبه المكونات مرة واحدة

[أبو حنــــين]

مرحبا أخي الكريم

اكتب الكود التالي

Private Sub UserForm_Initialize()

Dim RR As Control

For i = 1 To 5

Set RR = Me.Controls.Add("forms.TextBox.1", "TextBox" & i, True)

With RR

.Left = 80: .Top = 10 + (i * 20): .Width = 60: .Height = 15:

.Text = Cells(2, i)

End With

Next


Dim LL As Control

For s = 1 To 5

Set LL = Me.Controls.Add("forms.Label.1", "Label" & s, True)

With LL

.Left = 10: .Top = 10 + (s * 20): .Width = 60: .Height = 15: .Visible = True: .BackColor = &H80FF80  ' &H80000008

.Caption = Cells(1, s)

End With

Next s

End Sub

[hesham_khadr200]

الله ينور عليك يا كبير

لكن هناك ملاحظتين

1- شريط التمرير غير فعال

2- لو زادت عدد الاعمدة ماذا نكتب كي يستوعب عدد اكبر تلقائي

[أبو حنــــين]

كي يستوعب عدد أكبر غير العدد 5 في الكودين التاليين الى اي رقم آخر

For s = 1 To 5

For i = 1 To 5

[hesham_khadr200]

شكرا لك يااخي ولكن بالنسبة للطلب الاول لا يعمل شريط التمرير ليرى اخر txtbox

[أبو حنــــين]

غير الكود السابق بهذا الكود

Private Sub UserForm_Initialize()

Dim RR As Control

For i = 1 To 10

Set RR = Me.Controls.Add("forms.TextBox.1", "TextBox" & i, True)

With RR

.Left = 80: .Top = 10 + (i * 20): .Width = 60: .Height = 15:

.Text = Cells(2, i)

End With

Next

Dim LL As Control

For s = 1 To 10

Set LL = Me.Controls.Add("forms.Label.1", "Label" & s, True)

With LL

.Left = 10: .Top = 10 + (s * 20): .Width = 60: .Height = 15: .Visible = True: .BackColor = &H80FF80  ' &H80000008

.Caption = Cells(1, s)

End With

    With Me

	    .ScrollBars = fmScrollBarsVertical

	    .ScrollHeight = .InsideHeight * s / 5

	    .ScrollWidth = .InsideWidth * 9

    End With

Next s

End Sub

[hesham_khadr200]

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

[أبو حنــــين]

العفو اخي هشام