[已解决]插入批注整体改

爱小暖

Excel表中如果插入的批注有很多，可不可以一次性设置所有插入批注的字体和颜色，我每次都要一个个设置的，觉得太麻烦 了。。

最佳答案

月排行榜 / 总排行榜

glhfgtd

2011-7-23 10:36

批量添加批注
　　Dim r As Range, msg As String
　　msg = InputBox("请输入批注内容", "提示", "标题文字")
　　If Selection.Cells.Count > 0 Then
　　For Each r In Selection
　　r.AddComment
　　r.Comment.Visible = False
　　r.Comment.Text Text:=msg
　　Next
　　End If
批量删除批注
　　Sub ClearComments()
　　　Cells.Select    '全选工作表
　　　Selection.ClearComments    '删除选区内的批注(单元格内容不变)
　　End Sub

跳转到最佳答案楼层

glhfgtd

批量添加批注
　　Dim r As Range, msg As String
　　msg = InputBox("请输入批注内容", "提示", "标题文字")
　　If Selection.Cells.Count > 0 Then
　　For Each r In Selection
　　r.AddComment
　　r.Comment.Visible = False
　　r.Comment.Text Text:=msg
　　Next
　　End If
批量删除批注
　　Sub ClearComments()
　　　Cells.Select    '全选工作表
　　　Selection.ClearComments    '删除选区内的批注(单元格内容不变)
　　End Sub

ElaineTian

啊,原来VBA这么好用的呀

爱小暖

天哪，完全看不懂哦，这就是所谓的VBA呀，看来我还有好多东西要学呀。。。

爱小暖

回复 glhfgtd 的帖子

我完全 看不懂哦，，不过还是谢谢你啦，是我自己基础太差，唉

joyark

不过还是谢谢你啦，是我自己基础太差，唉

lina1118

VBA高不可攀啊！看不懂啊！

only、小熙

确实，看不懂