创build列表框

我正尝试使用VBA从Access创buildExcel报表。 所以每当用户点击一个Access窗体中的一个button，就应该生成一个Excel文件。 我需要在文件中有ListBox。 我宣布列表框添加项目，但有问题，分配给特定的单元格：

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

现在我想在单元格（7，1）中显示列表框。

我该怎么做？

Answer 1

一个简单的解决scheme是利用数据validation直接在单元格中创build一个下拉列表。 这样你也可以避免使用潜在的废弃组件。

在你的情况下，这可能会运行这个代码：

 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 

使用Join添加validation受到了这个答案的启发。