excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法

办公教程导读

收集整理了【excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1153字，纯文字阅读大概需要2分钟。

办公教程内容图文

　　实现上面的效果vba添加批注的代码如下：

Sub vba添加批注()
On Error Resume Next
ActiveCell.AddComment
With ActiveCell.Comment
 .Text CStr(Date)
 .Shape.TextFrame.AutoSize = True
End With
End Sub

vba添加批注案例二：

　　为B列的姓名使用VBA添加批注，要求批注内容为C列单元格对应的的内容，而且批注框内文字大小为11号字体，不加粗，且随内容的多少自动调整批注框的格式的大小。

　　相关的代码如下：

Sub vba添加批注()
Dim strComment As String
Dim yWidth As Long
Endrow = Sheet1.[B65536].End(xlUp).Row
For sn = 2 To Endrow
    With Sheet1.Cells(sn, 2)
         strComment = Sheet1.Cells(sn, 3)
         If .Comment Is Nothing Then '没有备注则添加备注
            .AddComment Text:=strComment
            .Comment.Visible = False
         Else  '已经有备注则备注添加内容
            .Comment.Text Text:=strComment
         End If
        With .Comment.Shape
            .TextFrame.Characters.Font.Size = 11
            .TextFrame.AutoSize = True
             If .Width > 250 Then
                yWidth = .Width * .Height
                .Width = 150
                .Height = (yWidth / 200) * 1.8
             End If
        End With
    End With
Next sn
End Sub

办公教程总结

以上是为您收集整理的【excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。