在VBA中制作从属列表框

Question

我想要可视化VBA列表框中的从属列表框。

我有一个excel表格，如字母A，B，C，D，E，数字1 2 3 4 5

我有两个列表框的VBA用户表单。在第一个列表中，我想在第二个列表框中选择天气字母或数字，我需要根据第一个选择来设置查看列表

我用excel数据验证成功了，现在我需要从VBA表单中可视化它。

Answer 1

假设列表框被称为LstChoice和LstOptions。假设表在lstChoice的After_update事件中的范围(“a1:b5”)中，put为

 Private Sub LstChoice_AfterUpdate()

Dim x As Long
Me.LstOptions.Clear
Select Case LstChoice.ListIndex

      Case 0
          'Letters

          For x = 0 To 4
              Me.LstOptions.AddItem Cells(1, 1).Offset(x, 0)
          Next x
      Case 1
              'numbers
               For x = 0 To 4
                       Me.LstOptions.AddItem Cells(1, 2).Offset(x, 0)
                 Next x
End Select

结束子对象