Как проверить наличие "\" в строке vba?

Question

Это мой код, но он не работает:

strText = oSheet.Cells(1, 1).Text
If InStr(strText, "\") > 0 Then
    bPrice = True       
End If

Как проверить наличие "\" в строке?

Answer 1

¥ - ASCII 165 дек. Попробуйте,

strText = oSheet.Cells(1, 1).Text
If cbool(InStr(1, strText, ChrW(165))) Then
    bPrice = True       
End If

Вот тест, чтобы убедиться, что вы получаете правильный ASCII-код dec. С ячейкой, отформатированной так, как вам нравится, выберите ее и запустите этот короткий саб.

sub find165()
    dim str as string, i as long
    str = activecell.text
    for i = 1 to len(str)
        debug.print ascw(mid(str, i, 1))
    next i
end sub

Посмотрите в окне VBE Immediate для ASCII-кода dec каждого символа, отображаемого в ячейке.