如何在單元格中選擇從組合框創建列表並使用VBA選擇按鈕？

Question

我有一個組合框填充值。我想在組合框中選擇一個值，然後單擊「添加」按鈕將此值放入下面的某些單元格中。我可以使用下面的代碼將一個項目添加到我的列表中，但我希望能夠添加多個項目。我覺得我非常接近，我只需要一些調整！

Private Sub CommandButtonAddItem_Click() 

Dim ws As Worksheet 
Dim box As ComboBox 
Dim food As String 
Dim num As Integer 
num = 19 


Set ws = Worksheets("sheet1") 
Set box = ws.OLEObjects("ComboBox1").Object 

food = box.Value 
Worksheets("sheet1").Cells(num, 1) = food 

If Worksheets("sheet1").Cells(num, 1) = " " Then 
Worksheets("sheet1").Cells(num, 1) = food 

num = num + 1 
End If 


End Sub 

Answer 1

嘗試這個！

如果「默認」單元格已被佔用，它將繼續向下直到它找到一個不是空的，然後將該值放入該單元格中。

Private Sub CommandButtonAddItem_Click() 

Dim ws As Worksheet 
Dim box As ComboBox 
Dim food As String 
Dim num As Integer 
num = 19 


Set ws = Worksheets("sheet1") 
Set box = ws.OLEObjects("ComboBox1").Object 

food = box.Value 

While Worksheets("sheet1").Cells(num, 1) <> "" 

    num = num + 1 

Wend 

Worksheets("sheet1").Cells(num, 1) = food 

End If 

End Sub