Excel：用戶窗體文本框匹配功能

Question

我正在嘗試獲取用戶表單來更新文本框時更新其他字段。 我的問題是，即使我編寫TextBox1.Value它仍然將我的輸入視為文本，因此，如果我將表中的數字格式設置為文本，則只會找到匹配項。

下面是我當前的代碼：

Private Sub TextBox1_Change()
On Error Resume Next
ComboBox2.Value = Application.WorksheetFunction.Index(Sheets("Projekt").Range("Projektnamn"), Application.WorksheetFunction.Match(TextBox1.Value, Sheets("Projekt").Range("Projektnr"), 0), 1)

結束子

此代碼有效，但未連接到用戶窗體。 （我輸入了一個數字（155001），范圍：“ Projektnr”包含）。這是Match函數的第一部分無效。

    Private Sub TextBox1_Change()
On Error Resume Next
ComboBox1.Value = Application.WorksheetFunction.Index(Sheets("Projekt").Range("Projektnamn"), Application.WorksheetFunction.Match(155001, Sheets("Projekt").Range("Projektnr"), 0), 1)

結束子

我嘗試了gizlmeiers的建議，但仍然拒絕找到匹配項。 我也添加了該代碼：

    Private Sub TextBox1_Change()
On Error Resume Next
Test = CInt(TextBox1.Value)
ComboBox1.Value = Application.WorksheetFunction.Index(Sheets("Projekt").Range("Projektnamn"), Application.WorksheetFunction.Match(Test, Sheets("Projekt").Range("Projektnr"), 0), 1)

Answer 1

因此，您嘗試比較兩個數字，但文本框中的一個被解釋為字符串？

您可以使用CINT（）告訴vba將其解釋為數字

CINT(TextBox1.Value)