如何在Excel中批量修改批注格式

步骤/方法
打开Excel工作簿文档，按下ALT+F11组合来键调用出VBA编辑器

单击菜单栏上的“插入”，打开源的菜单单击“模块”命令

将下面的代码复制到模块框中
Sub 批量修改百批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表度，可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体知"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub

单击工具栏绿色的“运行”按钮或直接按F5键

5
退出VBA编辑道器窗口，现在让我们来看一下效果图

步骤/方法
打开Excel工作簿文档，按下ALT+F11组合键调用出VBA编辑抄器

单击菜单栏百上的“插入”，打开的菜单单击“模块”命令

将下面的代码复制到模块框中
Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工度作表问，可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub

单击工具栏绿色的“运行”按钮或直接按F5键

5
退出VBA编辑器窗口，答现在让我们来看一下效果图

在菜单模块中插入代码，就可以让excel拥有统一设定批注的字体格式的功能。

代码如下：

Sub commentCount()
   Dim commentCount As Integer
   commentCount = Sheets("Sheet1").

Comments.Count Dim i As Integer
   Dim calculateRow As Integer
   For i = 1 To 

commentCount  calculateRow = Len(Worksheets("Sheet1").Comments(i).Text) / 37
      

Worksheets("Sheet1").Comments(i).Parent.Comment.Shape.Width = 350
    

Worksheets("Sheet1").Comments(i).Parent.Comment.Shape.Height = 

(Int(calculateRow) + 2) * 12.5 Debug.Print calculateRow & ";" & i
   Next i
End Sub

　　1、打开Excel工作簿文档，按下ALT+F11组合键调百用出VBA编辑器。

　　2、单击菜单栏上的“插入”，度打开的菜单单击“模块”命令。

　　3、将下面的代码知复制到模块框中

　　Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我道们要批量修改批注的工作表，可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub

　　4、单击工具栏绿色的“运行”按内钮或直接按F5键。

　　5、退出容VBA编辑器窗口，现在来看一下效果图。