Excel vba添加批注的代码写法实例教程

excel vba添加批注的代码写法实例教程

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

本文整理两个excel中使用vba添加批注的案例，分享给大家学习。

vba添加批注案例一：

为选中的一个单元格自动添加批注，批注内容为系统当天日期，然后标注外框大小自动调整为刚好容纳内容即可，因为默认的批注比较大。

效果如下图，比如单击A1，然后自动加批注，选中A4，又自动添加批注，以此类推。

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

Sub vba添加批注()On Error Resume NextActiveCell.AddCommentWith ActiveCell.Comment.Text CStr(Date).Shape.TextFrame.AutoSize = TrueEnd WithEnd Sub

vba添加批注案例二：

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

相关的代码如下：

Sub vba添加批注()Dim strComment As StringDim yWidth As LongEndrow = Sheet1.[B65536].End(xlUp).RowFor sn = 2 To EndrowWith Sheet1.Cells(sn, 2)strComment = Sheet1.Cells(sn, 3)If .Comment Is Nothing Then ‘没有备注则添加备注.AddComment Text:=strComment.Comment.Visible = FalseElse ‘已经有备注则备注添加内容.Comment.Text Text:=strCommentEnd IfWith .Comment.Shape.TextFrame.Characters.Font.Size = 11.TextFrame.AutoSize = TrueIf .Width > 250 ThenyWidth = .Width * .Height.Width = 150.Height = (yWidth / 200) * 1.8End IfEnd WithEnd WithNext snEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。