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 に答える