الدرس الرابع :- اكواد يوزرفورم لعمل تعبئة للكمبوبوكس بدون فراغات

يوليو 21, 2017

اولاً نقوم بفتح  Developer Tab : 

ثانياً نقوم بفتح محرر الاكواد Visual Basic :

ثالثاً نقوم بإدراج يوزرفورم جديد  Userform 

ونقوم بالضغط عليه مرتين بزر الماوس الايسر حتى نتمكن من كتابة الاكواد الاتيه :

Private Sub UserForm_Initializ() Dim Y As Integer With Sheet1 Rng = .Range("a" & Rows.Count).End(xlUp).Row For Y = 2 To Rng If .Range("a" & i) <> "" Then Me.ComboBox1.AddItem .Range("a" & i) End If Next Y End With End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقة داخل محرر الاكواد VBE

فيسبوك تويتر لينكدين واتساب

مواضيع ذات صلة