0

我正在尝试根据 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
4

1 回答 1

1

cbo_moduleName当用户选择更改时,选择第一项cbo_moduleCode,这里是代码

If Me.cbo_moduleName.ListCount > 0 Then
   Me.cbo_moduleName.ListIndex = -1
End If
于 2012-10-21T18:11:40.543 回答