修改批注

cz_jie

如何用VBA来批量修改批注指定字符（颜色、大小、粗细）字符在内容中突显出来




请求老师们赐与代码

在此谢了

约定的童话

Sub changecommentshapetype()
Dim com As Range
On Error Resume Next
For Each com In Range("A1:H25")
com.Select
With com.Comment
    .Visible = True '是否可见
    .Shape.AutoShapeType = msoShapeRoundedRectangle '外框图形
    .Shape.Fill.UserPicture ThisWorkbook.Path & "\123.jpg"
    .Shape.Placement = xlMoveAndSize '属性
    .Text Text:="Excel Home:" '文字
    .Shape.Fill.Transparency = 0#
    .Shape.Line.Weight = 1#
    .Shape.Line.DashStyle = msoLineSquareDot
    .Shape.Line.Style = msoLineSingle
    .Shape.Line.Transparency = 0#
    .Shape.Line.Visible = msoTrue
    .Shape.Line.ForeColor.SchemeColor = 17
    .Shape.Line.BackColor.RGB = RGB(255, 255, 255)
    .Shape.Fill.Visible = msoTrue
    .Shape.Fill.ForeColor.RGB = RGB(255, 255, 225)
    .Shape.Fill.BackColor.RGB = RGB(255, 255, 225)
    .Shape.LockAspectRatio = msoFalse
    .Shape.Height = 113.25
    .Shape.Width = 141.75
    .Shape.Rotation = 0#
End With
Next
End Sub

蓝桥玄霜

批注的例子：

3190496160

Sub HasComment()
With Sheet1
    ar = .[a1].CurrentRegion
    For i = 3 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If Not .Cells(i, j).Comment Is Nothing Then
                With .Cells(i, j).Comment
                    If InStr(.Text, "有") > 0 Then
                        ks = InStr(.Text, "有")
                        .Shape.TextFrame.Characters(ks, 1).Font.Color = RGB(255, 97, 3)   '设置字体颜色
                        .Shape.TextFrame.Characters(ks, 1).Font.Bold = True  '设置加粗
                    End If
                    If InStr(.Text, "【") > 0 Then
                        ks = InStr(.Text, "【")
                        .Shape.TextFrame.Characters(ks, 1).Font.Color = vbRed ' RGB(255, 97, 3)  '设置字体颜色
                        .Shape.TextFrame.Characters(ks, 1).Font.Bold = True  '设置加粗
                    End If
                    If InStr(.Text, "】") > 0 Then
                        ks = InStr(.Text, "】")
                        .Shape.TextFrame.Characters(ks, 1).Font.Color = vbRed ' RGB(255, 97, 3)  '设置字体颜色
                        .Shape.TextFrame.Characters(ks, 1).Font.Bold = True  '设置加粗
                    End If
                    If InStr(.Text, "冰箱") > 0 Then
                        ks = InStr(.Text, "冰箱")
                        .Shape.TextFrame.Characters(ks, 2).Font.ColorIndex = 7 ' RGB(255, 97, 3)  '设置字体颜色
                        .Shape.TextFrame.Characters(ks, 2).Font.Bold = True  '设置加粗
                    End If
                End With
            End If
        Next j
    Next i
End With
MsgBox "ok!"
End Sub

3190496160

表格.rar (42.39 KB, 下载次数: 6)

2022-12-31 11:11 上传

点击文件名下载附件