注释里内容格式

ChangeKing7

向各位大佬求助：

有若干单元格，其中单元格A1的注释内容是“你很重要”，想把“重要”两字加粗变红，能否对A1使用VBA来实现？

aodo

Sub TESTRED()
    Dim ws As Worksheet
    For Each ws In Worksheets
        Dim cm As Comment
        Set cm = ws.Range("A1").Comment
        If Not cm Is Nothing Then
            Dim strComment As String
            strComment = cm.Text
            Dim startPos As Integer
            startPos = InStr(1, strComment, "重要")
            If startPos > 0 Then
                With cm.Shape.TextFrame.Characters(startPos, Len("重要")).Font
                .Bold = True
                .COLOR = RGB(255, 0, 0)
                End With
            End If
        End If
    Next ws
End Sub

aodo

Sub TESTRED()
    Dim ws As Worksheet
    For Each ws In Worksheets
        Dim cm As Comment
        Set cm = ws.Range("A1").Comment
        If Not cm Is Nothing Then
            Dim strComment As String
            strComment = cm.Text
            Dim startPos As Integer
            startPos = InStr(1, strComment, "重要")
            If startPos > 0 Then
                With cm.Shape.TextFrame.Characters(startPos, Len("重要")).Font
                .Bold = True
                .COLOR = RGB(255, 0, 0)
                End With
            End If
        End If
    Next ws
End Sub
作用于整表A1

ChangeKing7

aodo 发表于 2024-8-14 15:59
Sub TESTRED()
    Dim ws As Worksheet
    For Each ws In Worksheets

感谢老师帮忙！

ChangeKing7

aodo 发表于 2024-8-14 15:56
Sub TESTRED()
    Dim ws As Worksheet
    For Each ws In Worksheets

再次感谢老师 通过借鉴老师的代码已经完美解决的问题