Значения не совпадают

Question

Я новичок в VBA.Вот вопрос, я получаю значение из текстового поля и сопоставляю его со значением в листе Excel.Несмотря на то, что оба значения одинаковы, он показывает false.Вот код.

Private Sub CommandButton4_Click()
    Dim retdata As Variant
    Dim empid1 As Variant

    retdata = TextBox1.Text
    empid1 = Sheets("Sheet2").Cells(retdata + 1, 1)

    If empid1 = retdata Then
        Sheets("Sheet2").Rows(retdata + 1).Copy Destination:=Sheets("Sheet1").Range("A16")
    Else
        MsgBox ("Not Found")
    End If
End Sub

Answer 1

Вот несколько вещей, которые нужно попробовать:
Сначала убедитесь, что вы сравниваете строки со строками.Варианты могут содержать много вещей.Измените оператор if на этот

If CStr(empid1) = CStr(retdata) Then

Если это не поможет, добавьте эти строки непосредственно перед оператором if

Debug.Print "*" & retdata & "*"
Debug.Print "*" & empid1 & "*"

Откройте окно отладки с помощью Ctrl + G иизучить вывод.