excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法
发布时间：2023-07-31 11:05:12
本文整理两个excel中使用vba添加批注的案例，分享给大家学习。
vba添加批注案例一：
为选中的一个单元格自动添加批注，批注内容为系统当天日期，然后标注外框大小自动调整为刚好容纳内容即可，因为默认的批注比较大。
效果如下图，比如单击A1，然后自动加批注，选中A4，又自动添加批注，以此类推。
实现上面的效果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
0
投稿猜你喜欢
用户在使用Word2010编辑文档的过程中，可以根据需要选择格式相似的文本，即选中当前Word文档中使用相同格式或相似格式的文本内容。用户在- 因为工作需要，经常要对地址进行排序，有时候拿到一张表格，里面的房号乱七八糟的，很是叫人头疼。网上找了一些解决办法，有的是用宏代码解决，有的根
- Excel函数一共有11类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函
- Excel中经常需要对符合多条件的数据求和，具体该如何多条件求和呢?接下来是小编为大家带来的excel2003多条件求和的方法，供大家参考。
- word功能区包括菜单和命令栏，默认情况下是显示的。但由于误操作，有时候可能不显示（实际上是隐藏了）。步骤：1.点击word文档的标题栏，功
- Excel中经常需要使用到使日期自动递增的技巧，使日期递增具体该如何操作呢?下面是由小编分享的excel表格使日期递增的方法，希望看完本教程
- 有时候在word中需要根据不同的页来设置页码，比如首页、目录和其他页，应该根据其内容分段的设置页码，这那么下面就由小编给大家分享下word文
- Excel中如何做到文字换行呢?其实设置方法不难，下面是小编带来的关于excel表格内文字换行的教程，欢迎大家来到学习。excel表格文字换
- 看到一些网页做得不错，想“借来”加入自己的网站中。可是许多网页却做了限制，一旦“另存为”，就会出错退出，让人郁闷不已。针对这种限制，虽然有不
- 在我们的电脑更新并安装了win101903系统版本后，一些朋友的电脑突然变得非常卡住了。内存饱满突然卡死的情况。对这一问题小编认为可能是我们
- 在利用Word文档进行日常办公时，会发现在工具栏当中的【开发工具】下，“宏”等一系列功能都是灰色的，无法打开，那么宏功能该如何在Word文档
- excel小写金额如何转换大写加上元角分？下面小编来教大家。01、首先，我们打开我们电脑上面的excel；02、然后我们在任意单元格中输入一
- Word是常用办公软件之一。许多用户在使用word写文章时，为了使表达的内容更加条理清晰，都会对Word文档进行章节划分，并且设置相应的大小
- Excel中如何用if函数进行颜色的填充呢?其实方法很简单，我们可以利用函数公式将其转换，不懂的朋友，下面是小编带来的关于excel 用if
- excel中的工资表怎么导入word？我们在制作工资的时候，都是用excel，但是工资表却是使用word完成的，该怎么将excel中的工资导
- 在Excel中，如果计算国库券的等效收益率，可以使用TBILLEQ函数计算国库券的等效收益率。Excel2007可使用TBILLEQ函数计算
- 在Excel中录入好数据以后都需要进行核对数据，在核对数据的时候经常需要看到表头，但如果往下拉就看不到表头了，这个时候就需要固定前两行以至于
- word/excel是大家在日常办公中经常用到的办公软件。那你有没有每次在打开word或者excel的时候，总是提示“向程序发送命令出现问题
- 由于Excel一直在更新版本，因此也出现了多种不同的格式。有时候要将一个Excel文件发给其他人，但是他们的电脑上仅支持某种格式，这时候最好
- 在excel2007，每个表格的颜色都是白色，但是白色看久了伤眼睛，如何能改变表格的背景色呢。下面让小编为你带来excel2007设置背景色
