我得到的错误是'If lineod<>“” then'行上的不匹配类型

Question

Private Sub cmd_autoassign_search_Click()
Dim inputod As Double
inputod = Me.tb_pipe_ID_autoassign.Text
Dim wb As Workbook
Set wb = ThisWorkbook
Dim ptf As Worksheet
Set ptf = wb.Sheets("PTF")
If inputod <> "" Then

With tb_sizeA
.Value = CDbl(Application.VLookup(inputod, ptf.Range("B8:D47"), 2, 0))
End With
Else
End If
End Sub

Answer 1

Private Sub cmd_autoassign_search_Click()

    Dim inputod , v ' <<< As Variant...
    
    inputod = Me.tb_pipe_ID_autoassign.Text

    If Len(inputod) > 0 And Isnumeric(inputod) Then
    
        v = Application.VLookup(CDbl(inputod), _
              ThisWorkbook.Sheets("PTF").Range("B8:D47"), 2, False)

        tb_sizeA.Value = IIf(IsError(v), "", v) 'Check for no match
    Else
        tb_sizeA.Value = ""
    End If
End Sub