我正在尝试根据 cbo_moduleCode 中的选择更新组合框cbo_moduleName。现在,用户必须选择组合框才能进行选择,但我希望在循环期间找到的第一个值能够“即时”自动填充。关于如何实现这一目标的任何想法?到目前为止,这是我的代码:
Private Sub cbo_moduleCode_Change()
Dim lLoop As Long
' Clear the comboboxes we are about to update
Me.cbo_moduleName.Clear
' Loop through the worksheet and test each row
For lLoop = 1 To Sheets("lookupModule").Range("A" & Sheets("lookupModule").Rows.Count).End(xlUp).Row
' If the row's column A matches the combobox then add the corresponding values to other combos
If Sheets("lookupModule").Range("A" & lLoop).Value = Me.cbo_moduleCode.Value Then
Me.cbo_moduleName.AddItem Sheets("lookupModule").Range("B" & lLoop).Value
End If
Next lLoop
End Sub