hesham_khadr200 قام بنشر أغسطس 23, 2012 مشاركة قام بنشر أغسطس 23, 2012 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء طلبي منكم هو شرح خصائص الفورم في اكسيل وبالاخص كيف اجعل الفورم وجميع مكوناته من اليمين الى اليسار في الخصائص او عن طريق الكود وشكرا جزيلا لكم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 24, 2012 مشاركة قام بنشر أغسطس 24, 2012 السلام عليكم اليك هذه الروابط http://www.officena.net/ib/index.php?showtopic=39323&st=40#entry220321 http://www.officena.net/ib/index.php?showtopic=39323&st=60#entry220408 رابط هذا التعليق شارك More sharing options...
hesham_khadr200 قام بنشر أغسطس 24, 2012 الكاتب مشاركة قام بنشر أغسطس 24, 2012 اخي الحبيب انا اقصد كود الاستاذ كيماس الذي شرحه في يوتيوب في هذا الرابط ولكن الكود لم يشرح جيدا في الفيديو واريده مكتوبا حتى استطيع الاستفاده منه وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 24, 2012 مشاركة قام بنشر أغسطس 24, 2012 جرب المثال التالي مثال.rar رابط هذا التعليق شارك More sharing options...
hesham_khadr200 قام بنشر أغسطس 24, 2012 الكاتب مشاركة قام بنشر أغسطس 24, 2012 اخي الفاضل ابو حنين شكرا لسرعة الرد ولكني اريد الفورم يفتح وبه المكونات مرة واحدة رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 24, 2012 مشاركة قام بنشر أغسطس 24, 2012 مرحبا أخي الكريم اكتب الكود التالي 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 رابط هذا التعليق شارك More sharing options...
hesham_khadr200 قام بنشر أغسطس 24, 2012 الكاتب مشاركة قام بنشر أغسطس 24, 2012 الله ينور عليك يا كبير لكن هناك ملاحظتين 1- شريط التمرير غير فعال 2- لو زادت عدد الاعمدة ماذا نكتب كي يستوعب عدد اكبر تلقائي رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 24, 2012 مشاركة قام بنشر أغسطس 24, 2012 كي يستوعب عدد أكبر غير العدد 5 في الكودين التاليين الى اي رقم آخر For s = 1 To 5 For i = 1 To 5 رابط هذا التعليق شارك More sharing options...
hesham_khadr200 قام بنشر أغسطس 25, 2012 الكاتب مشاركة قام بنشر أغسطس 25, 2012 شكرا لك يااخي ولكن بالنسبة للطلب الاول لا يعمل شريط التمرير ليرى اخر txtbox رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 25, 2012 مشاركة قام بنشر أغسطس 25, 2012 غير الكود السابق بهذا الكود 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 رابط هذا التعليق شارك More sharing options...
hesham_khadr200 قام بنشر أغسطس 25, 2012 الكاتب مشاركة قام بنشر أغسطس 25, 2012 جزاك الله كل خير يا اخي الحبيب رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 25, 2012 مشاركة قام بنشر أغسطس 25, 2012 العفو اخي هشام رابط هذا التعليق شارك 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.