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

Question

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

它有两种形式：

1. 检查：☒
2. 未选中：☐

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

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

非常感谢任何帮助。

谢谢！

Answer 1

尝试

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