Question

我想从VBA列表框中可视化一个从属列表框。

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

我有两个列表框的VBA用户窗体。在第一个中，我要选择天气字母或数字在第二个列表框中，我需要基于第一选择来使查看列表依赖

我通过excel数据验证做到了这一点，并且成功了，现在我需要从VBA表单对其进行可视化。

Answer 1

假设列表框称为LstChoice和LstOptions。假设表在范围内（“ a1：B5”），在lstChoice的After_update事件中，将其放入

 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

结束子

在VBA中制作从属列表框

1 个答案: