Question

我有一个列出客户的ComboBox，用户选择一个客户，然后单击一个CommandButton来显示有关客户的相应信息。有关客户的数据来自2张单独的表格，ComboBox从其中一张表中获取其列表。

虽然两张纸都有相同的客户，但有些客户在两张纸上都没有记录。我遇到的问题是，当从ComboBox中选择一个客户时，如果其中一个工作表中的客户缺少另一个客户，则TextBox中会显示错误的数据行。

Private Sub GoButton_Click()
'Finds ComboBox Value in RunDB, returns column 1 value
    NILWANo.Text = Range("RunDB!A2:U690").Cells(CustProfileCombo.ListIndex + 1, 1)
    RRank.Text = Range("RunDB!A2:U690").Cells(CustProfileCombo.ListIndex + 1, 2)
    CustClass.Text = Range("RunDB!A2:U690").Cells(CustProfileCombo.ListIndex + 1, 3)
    CalledDate.Text = Range("RunDB!A2:U690").Cells(CustProfileCombo.ListIndex + 1, 15)
    CustType.Text = Range("CustDB!A2:AA350").Cells(CustProfileCombo.ListIndex + 1, 3)

'Grabs Revenue data and formats in currency   
    RevLast3.Text = Range("CustDB!A2:AA350").Cells(CustProfileCombo.ListIndex + 1, 11)
        Me.RevLast3.Value = Format(Me.RevLast3.Value, "$#,##0.00")
    RevLast12.Text = Range("CustDB!A2:AA350").Cells(CustProfileCombo.ListIndex + 1, 12)
        Me.RevLast12.Value = Format(Me.RevLast12.Value, "$#,##0.00")

End Sub

我尝试将Cells(CustProfileCombo.ListIndex + 1, 12)更改为+2和0，但我仍然遇到同样的问题。我对VBA不好，不知道如何纠正我的代码。任何帮助，将不胜感激。

VBA Excel - TextBoxes中显示的值错误

0 个答案: