如何检查字符串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十进制代码。按照您喜欢的格式设置单元格，将其选中并运行此简短子程序。

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十进制代码。