פורום שאלות ותשובות

ברוכים הבאים לפורום שאלות ותשובות באופיס

ניתן לשאול שאלות טכניות באקסל, וורד, פאורפוינט, אוטלוק, שיירפוינט ושאר יישומי אופיס ללא צורך להירשם וללא עלות

מ' שואלת:

אני באמצע בניית טופס ב 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

 

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

 

 

 

 

 

 

 

 

 

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