التعامل مع الكومبوبوكس

شرح التعامل مع الكومبوبوكس


اضافة العناصر الى الكومبوبوكس من الشيت
Sub items_from_database_to_combobox()
Sheets("Sheet1").Activate
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
ComBox1.List = Range("A1:A" & LastRow).Value
End Sub



اضافة العناصر الى الكومبوبوكس من الكود
Sub items_from_code_to_combobox()
ComboBox1.Additem "Item 1"
ComboBox1.Additem "Item 2"
ComboBox1.Additem "Item 3"
ComboBox1.Additem "Item 4"
ComboBox1.Additem "Item 5"
End Sub



تغيير خلفية الكومبوبوكس مع تغيير النص الخاص به
Private Sub Cbx1_Change()
If Cbx1.Value = "منير" Then
Cbx1.BackColor = RGB(110, 255, 51)
End If
If Cbx1.Value <> "منير" Then
Cbx1.BackColor = RGB(255, 255, 255)
End If
End Sub



اضافة كل اسماء اوراق العمل فى الكومبوبوكس
Sub GetSheetsName()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
'اذا كان هناك شيت تريد استبعاده
If ws.Name <> "Sheet1" Then
ComboBox1.AddItem ws.Name
End If
Next ws
End Sub