根据第一个组合框填充第二个组合框-Fillingthesecondcomboboxbasedonthefirstcombobox

2  

Your code as it stands isn't working because you are searching Column B, the column with the numeric values, for a match to the names. To fix, use the OFFSET function to check the cell to the left. For example:

您的代码不起作用,因为您正在搜索列B(具有数值的列),以匹配名称。要修复,请使用OFFSET函数检查左侧的单元格。例如:

Private Sub ComboBox1_change()

Set rngItems = Sheet1.Range("B1:B10")
Set oDictiOnary= CreateObject("Scripting.Dictionary")

With Sheet2.ComboBox2
    For Each cel In rngItems
        If ComboBox1.Value = cel.Offset(,-1).Value Then

            oDictionary.Add cel.Value, 0
            .AddItem cel.Value
        End If
    Next cel
End With
End Sub

1  

The problem you are having is that you are setting rngItems to column B. What you want to do is set it to column A, and then get the value from column B. Try this:

您遇到的问题是您将rngItems设置为B列。您要做的是将其设置为A列,然后从B列中获取值。试试这个:

Set rngItems = Sheet1.Range("A1:A10") 
Set oDictiOnary= CreateObject("Scripting.Dictionary")

With Sheet2.ComboBox2
    For Each cel In rngItems
        If ComboBox1.Value = cel.Value Then
            oDictionary.Add Cells(cel.row, cel.column + 1).Value, 0
            .AddItem Cells(cel.row, cel.column + 1).Value            
        End If
    Next cel
End With

End Sub