創建列表框

Question

我正嘗試使用VBA從Access創建Excel報表。所以每當用戶點擊一個Access窗體中的一個按鈕時，就應該生成一個Excel文件。我需要在文件中有ListBox。我聲明瞭ListBox中添加項目，但有問題，將其分配給特定的細胞：

Dim lst As ListBox 
With lst 
.AddItem "1" 
.AddItem "2" 
End With 

現在我想以顯示細胞列表框（7,1）。

我該怎麼辦？

Answer 1

一個簡單的解決方案是利用數據驗證直接在單元格中創建下拉列表。這樣您也可以避免使用可能會被廢棄的組件。

在你的情況，這可以運行此代碼：

Dim list(1) As String 
list(0) = "1" 
list(1) = "2" 

With Cells(1, 7).Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
     Operator:=xlBetween, Formula1:=Join(list, ",") 
End With 

添加使用加入由this answer啓發驗證。