Сравнить ячейки без регистра vba

Question

У меня 2 клетки

Ячейки (1,1) содержит: ABC

Ячейки (1,2) содержат: Abc_AR

Клетки имеют разную длину. Мне нужно vba сравнить первые три буквы этих двух ячеек без регистра. Я пытался написать что-то вроде, но это не работает.

Sub faaa()
       Dim TestComp As Integer
       TestComp = StrComp(Left(Cells(1, 1),3), Left(Cells(1, 2),3) CompareMethod.Text)
       If TestComp = 0 Then MsgBox ("Equal!")

 End Sub

Answer 1

Вот еще один способ:

Sub AreTheyCloseEnough()
    If UCase(Left(Cells(1, 1).Value, 3)) = UCase(Left(Cells(1, 2).Value, 3)) Then
        MsgBox "pretty close"
    Else
        MsgBox "not close"
    End If
End Sub

Answer 2

Вы можете попробовать этот код:

Sub faaa()
   Dim TestComp As Integer
   TestComp = StrComp(UCase(Left(Cells(1, 1), 3)), UCase(Left(Cells(1, 2), 3)), vbTextCompare)
   If TestComp = 0 Then MsgBox ("Equal!")
End Sub