创建ListBox

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

使用Join添加验证是受this answer启发的。