Question

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

Answer 1

要在用户选择cbo_moduleName更改时选择cbo_moduleCode的第1项，此处为代码

If Me.cbo_moduleName.ListCount > 0 Then
   Me.cbo_moduleName.ListIndex = -1
End If

根据第一个组合框的项目选择选择第二个组合框项目

1 个答案: