我的VBA代码工作时,成功地加载组合框与不同的列表的基础上选定的情况。但是,当我从下拉列表中选择一个选项时,该选项不会加载到组合框中。组合框变为空白。
下面是我的VBA代码:
Private Sub cbxTrainingSubject_DropButtonClick()
cbxTrainingSubject.Clear
Set shTables = ThisWorkbook.Sheets("Tables")
Set shForm = ThisWorkbook.Sheets("Form")
Dim rng As Range
Select Case cbxTrainingArea.Value
Case "Assembly"
Set rng = shTables.ListObjects("assemblyTraining").ListColumns("Assembly Training").DataBodyRange
shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
Case "Fabrication"
Set rng = shTables.ListObjects("FabTraining").ListColumns("Fab Training").DataBodyRange
shForm.cbxTrainingSubject.List = Application.Transpose(rng.Value)
End Select
End Sub
下面是目标组合框的属性窗口:
当我进行选择时,组合框保持空白。
1条答案
按热度按时间5cnsuln71#
更容易使用
cbxTrainingArea_Change
例如: