Excel VBA：如何在字符串中找到此符号：☒答案

【问题标题】：Excel VBA: How can I find this symbol in a string: ☒Excel VBA：如何在字符串中找到此符号：☒
【发布时间】：2018-02-02 13:07:21
【问题描述】：

我在 Word 文档中有以下符号：☒

它有两种形式：

我将它作为字符串的一部分带回 Excel，并希望在字符串中找到它并确定它是否被选中。

它可能可以识别为一个字符（ASCII、Unicode 等）。

任何帮助将不胜感激。

谢谢！

【问题讨论】：

那是U+2612 BALLOT BOX WITH X。
unicodelookup.com/#☒/1 是十进制的 9746 - 在 VBA 中 if char = chrw$(9746) ...（必须复制粘贴该网址）
您可能不需要找到确切的字符位置，您只需测试该字符是否在字符串中：If Instr(mystring, ChrW(9746)) Then 或检查空选票：If Instr(mystring, ChrW(9744)) Then..
我将这两个符号复制到 word 中 .... 字体是 Segoe UI Symbol .... 这两个字符是unicode ☐ 2610 和 ☒ 2612（十六进制）
感谢你们的帮助。我得到了我需要的东西！

【解决方案1】：

试试

Function IsChecked(ByVal sInput As String) As Boolean
    IsChecked = InStr(sInput, ChrW(9746)) > 0
End Function

【讨论】：