Question

我有一个脚本，当数据是文本时可以工作，但是当它的数字不起作用时。

请帮忙

Private Sub ComboBox1_Change()
Dim iRow As Long


For iRow = 1 To 20

If UserForm1.ComboBox1.Value = ThisWorkbook.Sheets("Article").Cells(iRow, 1).Value Then
UserForm1.Label3.Caption = ThisWorkbook.Sheets("Article").Cells(iRow, 2).Value
UserForm1.Label4.Caption = ThisWorkbook.Sheets("Article").Cells(iRow, 4).Value

End If
If UserForm1.ComboBox1.Value = ThisWorkbook.Sheets("CRC'S").Cells(iRow, 1).Value Then
UserForm1.Label6.Caption = ThisWorkbook.Sheets("CRC'S").Cells(iRow, 3).Value
End If

Next

End Sub

UserForm1.ComboBox1.Value来自该工作表，因为我在Row Source中进行了属性更改。

如果工作表（文章）单元格A1上的数据是文本，这可以正常工作。但不适用于数字。

任何人都可以帮忙。我正在办公室工作。（让我知道它的一些补充问题）

谢谢

Answer 1

 .Caption = DirectCast(ThisWorkbook.Sheets("Article").Cells(iRow, 2).Value, String)

或

.Caption = CStr(ThisWorkbook.Sheets("Article").Cells(iRow, 2).Value)

combobox1.value不读数字

1 个答案: