vba - 动态构建下拉列表？

Question

我需要动态构建一个下拉列表，在单元格中输入特定文本后，我会执行一些 SQL 并根据返回的行构建一个下拉列表。

如何将事件集中在一个单元格(而不是整个电子表格)的值上？

在创建下拉列表之前，我是否必须将 SQL 行值“粘贴”到电子表格上？是否可以在 VBA 中填充 Dropdown，而无需将值粘贴到电子表格上，然后突出显示它们以创建 Dropdown？

谢谢

Answer 1

不，不需要在工作表中粘贴值来创建下拉列表。请参阅此示例

Option Explicit

Sub Sample()
    Dim dvList As String

    '~~> You can construct this list from your database
    dvList = "Option1, Option2, Option3"

    '~~> Creates the list in Sheet1, A1
    With Sheets("Sheet1").Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=dvList
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub