Listbox根据选择生成二级Listbox

Question

我对 VBA 还是很陌生，但我在工作表上有两个 activex 列表框。在一个列表框中，我有销售人员姓名（称为 lstNames），而另一个列表框有位置（lstSite）。我想要达到的目标如下：

1. 从 lstNames 中选择名称
2. 从 lstNames 中选择会生成 lstSite，其中包含与名称关联的几个位置的列表。

例如，如果我从 lstNames 列表框中选择 Bob，则 lstSites 列表框将填充 Bob 的所有站点，例如 NY、CO、CA、PA。如果我从 lstNames 中选择 Susan，则 lstSites 将清除 Bob 的并添加 Susan 的 TX、WA、OR 等站点。

lstNames 和 lstSite 从同一个工作表中提取：

 Column 1: Names
 Column 2: Site

我一直在尝试进行 Vlookup 以将项目添加到列表框，但它不起作用。我知道我可以执行 select case 语句并手动添加站点，但我想编写一个可以自动运行的好代码。

Select Case lstNames.Value
    Case "Bob"
    lstSites.AddItem WorksheetFunction.VLookup(lstDM.Text, wkbhcsfdata.Worksheets("Names+Sites").Range("Sites"), 1, False)
End Select

Answer 1

尝试这是否有助于获得您需要的范围地址。为此，我对 Persons 使用命名范围，对 Locations 使用另一个命名范围。变量 strPerson 可以替换为单元格值。

Dim ws As Worksheet
Set ws = Worksheets("sheet2")

Dim rngPerson, rngLoc As Range
Set rngPerson = ws.Range("Person")
Set rngLoc = ws.Range("Location")

Dim iMatch, iCount As Integer
Dim strPerson As String
strPerson = "Bob"

iMatch = WorksheetFunction.Match(strPerson, rngPerson, 0)
iCount = WorksheetFunction.CountIf(rngPerson, strPerson)

Dim rngList As Range
Set rngList = ws.Range(rngLoc.Rows(iMatch), rngLoc.Rows(iMatch + iCount - 1))

一旦你有了 rngList 的动态范围，你就可以在 rngList 上循环使用类似的东西：

For Each rw in rngList.rows
    [Your code to insert list items]
Next

所有这些都需要在 ActiveX 事件中。

编辑：将 .Cells 更改为 .Rows