如何用VBA检测Excel形状文本中是否已存在指定对勾字符

可以通过以下VBA函数实现检测逻辑，它会检查目标按钮形状的文本中是否存在红色的ChrW(&H2713)对勾字符：

Public Function HasRedCheckmark(ByVal strNomeBottone As String, Optional ByVal ws As Worksheet = Nothing) As Boolean
    Dim targetShape As Shape
    Dim i As Long
    Dim charText As String
    Dim charColor As Long
    
    ' 若未指定工作表，默认使用活动工作表
    If ws Is Nothing Then Set ws = ActiveSheet
    
    ' 检查形状是否存在
    On Error Resume Next
    Set targetShape = ws.Shapes(strNomeBottone)
    On Error GoTo 0
    
    If targetShape Is Nothing Then
        HasRedCheckmark = False
        Exit Function
    End If
    
    ' 遍历文本中的每个字符，检查是否符合条件
    With targetShape.TextFrame.Characters
        For i = 1 To .Count
            charText = .Item(i).Text
            charColor = .Item(i).Font.Color
            
            ' 匹配对勾字符且颜色为红色
            If charText = ChrW(&H2713) And charColor = vbRed Then
                HasRedCheckmark = True
                Exit Function
            End If
        Next i
    End With
    
    ' 未找到符合条件的字符
    HasRedCheckmark = False
End Function

使用说明 #

直接调用函数即可返回检测结果，示例：

' 检测活动工作表中名为"Button1"的按钮是否有红色对勾
If HasRedCheckmark("Button1") Then
    MsgBox "按钮已包含红色对勾"
Else
    MsgBox "按钮未包含红色对勾"
End If

逻辑说明 #

1. 先验证目标形状是否存在，避免因形状不存在导致报错
2. 逐个遍历形状文本的每个字符，同时检查两个条件：
   • 字符内容是ChrW(&H2713)（即你添加的对勾）
   • 该字符的字体颜色为vbRed（红色）
3. 只要找到一个符合条件的字符，立即返回True，否则遍历结束后返回False

内容的提问来源于stack exchange，提问作者BBGMetalmeccanica BBG