excel - 如何检查字符串 vba 中是否存在 "\"？

Question

这是我的代码，但它不起作用:

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

如何检查字符串中是否存在“\”？

Answer 1

¥ 是 ASCII 165 dec。尝试，

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 的“立即”窗口，了解单元格中显示的每个字符的 ASCII dec 代码。