创建列表框

Question

我正在尝试使用 VBA 从 Access 创建 Excel 报告。因此，每次用户单击 Access 表单中的按钮时，都应生成一个 Excel 文件。我需要在文件中有 ListBox。我正在声明 ListBox 添加项目，但在将其分配给特定单元格时遇到问题：

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

现在我想在 Cells(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

使用 Join 添加验证的灵感来自 this answer。