Question

如果其他列中相应的单元格与ComboBox1的值匹配，是否可以将say B列的值添加到ComboBox2？

如果我要在ComboBox1中选择一个客户ID，我想在ComboBox2中将与该客户ID相关的所有发票作为AddItems放入。

这是我目前对ComboBox1的prFill：

Private Sub prComboBoxFill()
    TRows = Worksheets("Customers").Range("A1").CurrentRegion.Rows.Count
    ComboBox1.Clear
    For i = 2 To TRows
        ComboBox1.AddItem Worksheets("Customers").Cells(i, 1).value       
    Next i
End Sub

基本上我想要的prFill2 for ComboBox2是使用上面的prFill检查在ComboBox1中选择了哪个客户ID，然后添加B列中具有在A列中的prFill中选择的客户ID的单元格。我希望这是有道理的。

我无法想出办法，我开始怀疑这是否有可能实现。所以，如果您有任何想法，请告诉我。

提前致谢

编辑：在尝试了一些事情后，我认为这可能有效，但是它只添加第一行的相应单元格，其客户ID与ComboBox1的值相同。有办法解决这个问题吗？

TRows = Worksheets("Customers").Range("A1").CurrentRegion.Rows.Count
        For i = 2 To TRows
            If Trim(Worksheets("Customers").Cells(i, 1).value) = Trim(ComboBox1.Text) Then

                ComboBox1.AddItem Worksheets("Customers").Cells(i, 2).value

                Exit For
            End If
        Next i

根据条件将单元格添加到AddItem

0 个答案: