03版excel如何将批注格式批量的由: 设置批注格式—属性—大小位置均固定,改为大小位置随单元格而变。 20
3个回答
展开全部
步骤/方法
打开Excel工作簿文档,先在下方点击要进行设置的工作表,再按下ALT+F11组合键调用出VBA编辑器
单击菜单栏上的“插入”,打开的菜单单击“模块”命令
将下面的代码复制到模块框中
Sub comm()
Dim c As Comment, str As String, i As Integer, Spl, s
For Each c In ActiveSheet.Comments
str = c.Text
Spl = Split(str, Chr(10))
str = "": i = 0
For Each s In Spl
i = i + 1
str = str & s & Chr(10)
Next
c.Delete
c.Parent.AddComment.Text Left(str, Len(str) - 1)
c.Parent.Comment.Shape.TextFrame.AutoSize = True
Next
End Sub
单击工具栏绿色的“运行”按钮或直接按F5键,等待函数运行结束至少要10分钟
退出VBA编辑器窗口,查看效果
打开Excel工作簿文档,先在下方点击要进行设置的工作表,再按下ALT+F11组合键调用出VBA编辑器
单击菜单栏上的“插入”,打开的菜单单击“模块”命令
将下面的代码复制到模块框中
Sub comm()
Dim c As Comment, str As String, i As Integer, Spl, s
For Each c In ActiveSheet.Comments
str = c.Text
Spl = Split(str, Chr(10))
str = "": i = 0
For Each s In Spl
i = i + 1
str = str & s & Chr(10)
Next
c.Delete
c.Parent.AddComment.Text Left(str, Len(str) - 1)
c.Parent.Comment.Shape.TextFrame.AutoSize = True
Next
End Sub
单击工具栏绿色的“运行”按钮或直接按F5键,等待函数运行结束至少要10分钟
退出VBA编辑器窗口,查看效果
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
目前只有录制宏这一个办法可以用。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询