מ' שואלת:
אני באמצע בניית טופס ב VBA: האם יש דרך לקחת נתונים ל ComboBox?
תשובה:
ניתן להגדיר רשימת ערכים לבחירה בתיבת בחירה (ComboBox) בטופס (Form) באקסל באופן הבא -
בגיליון אקסל נגדיר רשימת ערכים לבחירה -
בעורך VBA נוסיף טופס חדש בשם UserForm1 עם שדה תיבת בחירה בשם ComboBox1.

נסמן את שם הטופס בעורך VBA -> לחצן ימני -> הצג קוד ונוסיף את הקוד הבא:
Private Sub UserForm_Initialize()
Dim ws As Worksheet, lastRow As Long, i As Long
Set ws = ThisWorkbook.Sheets("נתונים")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
ComboBox1.Clear
For i = 2 To lastRow
ComboBox1.AddItem ws.Cells(i, 1).Value
Next i
End Sub
Dim ws As Worksheet, lastRow As Long, i As Long
Set ws = ThisWorkbook.Sheets("נתונים")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
ComboBox1.Clear
For i = 2 To lastRow
ComboBox1.AddItem ws.Cells(i, 1).Value
Next i
End Sub

נוסיף מודול חדש עם הקוד הבא של פונקציה המבצעת הצגה של הטופס UserForm1
Sub ShowUserForm()
UserForm1.Show
End Sub
UserForm1.Show
End Sub

התוצאה בהפעלת המודול Module1 היא שתיבת הבחירה מוצגת עם רשימת ערכים לבחירה שהוגדרו בגיליון האקסל -

בברכה,
צוות אניפיט