combobox1.value는 숫자를 읽지 않습니다.

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가 시트에서 오는 도와주세요.

시트 (기사) 셀 A1의 데이터가 텍스트 인 경우 제대로 작동합니다. 하지만 숫자에 대해서는 작동하지 않습니다.

누구든지 도와주세요. 저는 직장에서 2010 년을 사용하고 있습니다. 당신이 문자열로 .Value 캐스팅 할 필요가 .Caption 문자열을 기대 때문에

당신에게

Answer 1

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

또는

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