在第一张表批量修改批注格式:
请在表名上点击右键,选中‘查看代码’,离开工作表并进入VBE编程界面,粘贴下面的代码,最后回到工作表,点击菜单“工具-宏-宏-运行aaa这个宏
Sub aaa()
x = Sheets(1).Comments.Count
For i = 1 To x
Sheets(1).Comments(i).Text Text:="如何成批的修改EXECL单元格的批注的格式?"
Sheets(1).Comments(i).Visible = True
Sheets(1).Comments(i).Shape.Select
With Selection.Font
.Name = "宋体"
.FontStyle = "加粗"
.Size = 11
.ColorIndex = 3
End With
Next
[a1].Select
End Sub
工具-宏-VB编辑器,插入-模块,然后将Sub
test()
Dim
mCom
As
Comment
For
Each
mCom
In
ActiveSheet.Comments
With
mCom.Shape.TextFrame.Characters
With
.Font
.Bold
=
msoTrue
'改变粗细
.Size
=
14
'改变大小
.ColorIndex
=
3
'改变颜色
End
With
End
With
Next
End
Sub
程序复制,执行即可。
查找替换,范围批注
你好
好像不能