بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
اهلا بكم فى موقع عالم الاوفيس
درس جديد وكود جديد من اكواد اكسل VBA
اليوم ان شاء الله نتعرف على مهارة جديدة من مهارات الاكسل وكيفية تعبئة الكومبوبوكس Combobox بمجرد اختيار اول حرف من الكلمة يتم اضافة الايتم ADD ITEM الى Combobox وذلك من خلال كود سهل وبسيط جدا
الكود
Dim cell As Range
Dim lr As Integer
If Me.ComboBox1.Value = "" Then Me.ComboBox1.Clear: Exit Sub
lr = Cells(Rows.Count, 1).End(xlUp).Row
For Each cell In Sheet1.Range("a2:a" & lr)
If Left(cell.Value, 1) = Me.ComboBox1.Text Then
Me.ComboBox1.AddItem cell.Value
End If
Next
ومن خلال هذا الكود يتم فرز الكلمات ولكن منخلال حلقة تكرارية ويتم اضافة الكلمات التى تبدا بنفس اول حرف الى قائمة الكومبوبوكس من خلال طريقة سهلة جدا وبسيطة
للاستماع الى شرح الفيديو