要添加批注,使用Range对象的AddComment方法。 SubAddComment()'如果批注已经存在,则会导致错误'因此需要检查是否存在批注或者错误捕捉Range("A1").AddComment"使用VBA添加批注"End Sub 注意:以这种方式创建批注会导致批注中不会显示作者姓名,就像手动插入批注一样。 删除批注 使用Delete方法...
利用Range对象的AddComment进行添加批注 Range("A1").AddComment "批注文本"如上代码就在A1单元格中添加了一条批注，内容为“批注文本”。十分简单的一个操作。删除批注 可以利用Range对象的ClearComments删除批注，也可以利用Comment对象的Delete方法删除。Range("A1").ClearComments 上述语句就把新建的批注删除了。添加...
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 ...
1、添加 如果我们需要为单元格添加一个批注,可以利用Range对象的AddComment方法,表达如: Sub 新建批注() Range("B4").AddComment Text:="用VBA新建批注" End Sub 2、 删除 在添加了批注之后,如果我们…
为了使用VBA处理批注,需要使用Comment对象。允许删除批注、更改批注文本或查找批注作者或批注所在的单元格等操作。 添加批注 要添加批注,使用Range对象的AddComment方法。 代码语言:javascript 代码运行次数:0 AI代码解释 SubAddComment()'如果批注已经存在,则会导致错误 ...
ActiveCell.AddComment With ActiveCell.Comment .Text CStr(Date) .Shape.TextFrame.AutoSize = True End With End Sub vba添加批注案例二: 为B列的姓名使用VBA添加批注,要求批注内容为C列单元格对应的的内容,而且批注框内文字大小为11号字体,不加粗,且随内容的多少自动调整批注框的格式的大小。
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 '设置...
效果如下图，比如单击A1，然后自动加批注，选中A4，又自动添加批注，以此类推。实现上面的效果vba添加批注的代码如下：Sub vba添加批注()On Error Resume NextActiveCell.AddCommentWith ActiveCell.Comment .Text CStr(Date) .Shape.TextFrame.AutoSize = TrueEnd WithEnd Sub vba添加批注案例...
Range("a2").AddComment '添加批注 [a2].Comment.Shape.Height = 50 '设置批注高度 [a2].Comment.Shape.Width = 40 '设置批注宽度 [a2].Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\tupian\封面.png"'工作表所在的文件位置 End Sub Sub 批量将批注增加背景() Dim rng, paths For Each rng In...
1 首先我们打开一个工作样表作为例子。2 选取一个单元格，单击鼠标右键，可以在右键菜单面板中选择插入批注来给单元格内的数据添加注释。3 我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub EnterComment() MsgBox "在当前单元格中输入批注" ActiveCell.AddComment ("Hello"...