如何用VBA在Excel中创建多个依赖项下拉列表

Question

我需要两个依赖的下拉列表。在VBA中，我尝试为单个列表创建下拉列表，但我无法使其依赖。下拉列表如下所示

第一个下拉列表的内容

dd1
dd2

dd4
dd5
dd6

对应的清单2是

对于dd1

ddd1
ddd2
ddd3

对于dd2

ddd4

ddd6

就像怀斯。

我已经用完了代码

With Range("D1").Validation
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=TempList
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If

列表中不能有任何空格/空单元格。

我也试过这个

https://siddharthrot.wordpress.com/2011/07/29/excel-data-validationcreate-dynamic-dependent-lists-vba/

但是上面的代码支持单个单元格下拉。我需要整个单元格列作为下拉。

或者是否有任何方法可以使用公式直接创建依赖的下拉列表，并消除两列中的空白单元格。

提前致谢

Answer 1

您必须将这些值的关系存储在某个地方。然后，当其中一个被选中时，填充另一个。下面是一个示例，如果值存储在A和B列中。

A   B
--- ----
dd1 ddd1
dd1 ddd2
dd1 ddd3
dd2 ddd4
dd2 ddd6

在第一个列表的更改事件中，根据在第一个列表中选择的内容，查找要在第二个列表中放置的内容。

Private Sub ComboBox1_Change()
Dim lRow As Long

'Clear out the second list
ComboBox2.Clear

lRow = 1
Do While lRow <= ws.UsedRange.Rows.Count

    If ws.Range("A" & lRow).Value = ComboBox1.Text Then
        'Column A matches what was selected in the first list so add the value in columnB to the second list.
        ComboBox2.AddItem ws.Range("B" & lRow).Value
    End If

lRow = lRow + 1
Loop

End Sub

如果数据存储在其他地方，如数据库，

Private Sub ComboBox1_Change()
Dim strSQL as string

    'Clear out the second list
    ComboBox2.Clear

    strSQL = "Select fieldname2 from tablename where fieldname1 = '" & ComboBox1.Text & "'"

    'Put the results of the query into combobox2

End sub