要添加批注,使用Range对象的AddComment方法。 SubAddComment()'如果批注已经存在,则会导致错误'因此需要检查是否存在批注或者错误捕捉Range("A1").AddComment"使用VBA添加批注"End Sub 注意:以这种方式创建批注会导致批注中不会显示作者姓名,就像手动插入批注一样。 删除批注 使用Delete方法删...
利用Range对象的AddComment进行添加批注 Range("A1").AddComment "批注文本"如上代码就在A1单元格中添加了一条批注，内容为“批注文本”。十分简单的一个操作。删除批注 可以利用Range对象的ClearComments删除批注，也可以利用Comment对象的Delete方法删除。Range("A1").ClearComments 上述语句就把新建的批注删除了。添加...
总的方法就是AddComment,区别在于指向单元格的方法,方法一是指定Range对象的地址指向单元格,方法二是用cells对象指向单元格。 Excel的批注可以让电子表格呈现更多的信息,手工添加批注的方法是:点击''审阅''->''新建批注'',然后输入内容;但是有时需要自动地批量地新增批注,尤其是成百上千的批注(这种情况应该避免,...
1、添加 如果我们需要为单元格添加一个批注,可以利用Range对象的AddComment方法,表达如: Sub 新建批注() Range("B4").AddComment Text:="用VBA新建批注" End Sub 2、 删除 在添加了批注之后,如果我们…
ActiveCell.AddComment With ActiveCell.Comment .Text CStr(Date) .Shape.TextFrame.AutoSize = True End With End Sub vba添加批注案例二: 为B列的姓名使用VBA添加批注,要求批注内容为C列单元格对应的的内容,而且批注框内文字大小为11号字体,不加粗,且随内容的多少自动调整批注框的格式的大小。
效果如下图，比如单击A1，然后自动加批注，选中A4，又自动添加批注，以此类推。实现上面的效果vba添加批注的代码如下：Sub vba添加批注()On Error Resume NextActiveCell.AddCommentWith ActiveCell.Comment .Text CStr(Date) .Shape.TextFrame.AutoSize = TrueEnd WithEnd Sub vba添加批注案例...
Public Sub AAA() Dim arr, i% arr = Application.Transpose(Sheet4.[L6:L3005]) For i = 6 To 3005 Sheet4.Range("ab" & i).ClearComments Sheet4.Range("ab" & i).AddComment Sheet4.Range("ab" & i).Comment.Text Text:=CStr(arr(i - 5)) Next iEnd ...
rng.AddComment str '设置批注显示状态 rng.Comment.Visible = True End If Set rng = Nothing End Sub 2.插入按钮绑定宏addCmt并命名为“添加批注”3.选择需要添加批注的单元格，点击【添加批注】按钮 批注被成功添加且为显示状态 4.单元格删除批注的VBA代码 Sub delCmt()'定义变量 Dim rng As Range '设置...
Range("B5").AddComment Text:="我用VBA新建的批注" If Range("B5").Comment Is Nothing Then '判断是否存在Comment对象 MsgBox "B5单元格中没有批注" Else MsgBox "B5单元格中已有批注" End If End Sub 操作批注 Sub operComment() Range("B5").AddComment Text:="我用VBA新建的批注" '新建批注 Range...
2 一、批量添加批注的vba代码：将下列代码复制到代码区：Sub comment的的应用()For Each rng In Range("a1:a16")With rngIf .comment Is Nothing Then.AddComment "人事部moon".comment.Visible = TrueEnd IfEnd WithNextEnd Sub 3 点击如图所示的代码运行按钮，就可以看到，所示区域已经按我们需要添加上批注...