如何创建复杂的Excel下拉菜单?

时间:2017-01-13 20:19:06

标签: excel vba

如何在 Excel 中制作下拉菜单,如下图所示?

例如,如果此人要选择Paint Grid以外的其他内容,则可以选择Door Grid以下的Door Grid。然后根据所选内容显示填写它的不同选项。

Excel 会查看该表格。例如,如果他们选择低于Body Gauge,则他们必须填写Door Grid以获得在headers: { 'Content-Type': 'application/x-www-form-urlencoded'}表单上计算的权重。

Enter image description here

1 个答案:

答案 0 :(得分:3)

您可以通过用户窗体中的组合框

来完成

这是将初始值加载到Combobox1

的代码
Private Sub UserForm_Initialize()

    Dim x

    For Each x In Range("A2:A5")
       ComboBox1.AddItem x
    Next

End Sub

如果选择了一个值,则填充ComboBox2

Private Sub ComboBox1_Change()

  Dim values

    Select Case ComboBox1.Value
          Case "a"
            ComboBox2.Clear
            For Each values In Range("B2:B5")
               ComboBox2.AddItem values
            Next
          Case "b"
            ComboBox2.Clear
            For Each values In Range("C2:C5")
               ComboBox2.AddItem values
            Next
          Case "c"
            ComboBox2.Clear
            For Each values In Range("D2:D5")
               ComboBox2.AddItem values
            Next
     End Select
End Sub

结果如下所示,

这是您的工作表看起来像保存值,

enter image description here

这就是它在启动和运行时的样子,

enter image description here

或者你可以走另一条路并在工作表上进行。

This web site有一个很好的解释,如何做到这一点,我无法在这里做更好的解释,所以我链接它。