Excel vba添加批注的代码写法实例教程
发布时间：2022-09-22 07:36:47
本文介绍excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法。
本文整理两个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
投稿猜你喜欢
Word也可以算是我们最常用的办公软件之一，很多用户都使用Word来进行一些文档的编辑，而在word文档中，默认都会对每一行文字进行编号，那- excel2013高级筛选的使用方法：高级筛选步骤1：筛选出所有课程的考试成绩都在85分以上的数据高级筛选步骤2：首先在表格中建立一个“条件
- 有时候我们在Excel中统计数据时希望将表头一些固定名称不动，然后滚动下面的数据来光看数据，在excel表格中如何固定表头呢？下面为大家详细
- 时间就是金钱、浪费时间就是浪费生命”相信这样的话大家都听过不少，所以在工作中我们要在有限的时间内尽可能的完成更多的事情，体现出自身的价值。为
- Word的制表位是指在水平标尺上的位置，指定文字缩进的距离或一栏文字开始之处。制表位的含义表格是由表元素和表格线组成的。表的内容可以不用格线
- 一、EXCEL要用颜色点缀，但是也不能使用太多的颜色 在文档中使用太
- Excel表格中数据如何批量增加数值，相信很多做产品报价的朋友都想知道，这样可以节省大量工作时间，那么如何完成呢？下面按步骤操作一遍就懂了E
- word页眉页脚是什么？1.页眉，一般称每个页面的顶部区域为页眉。页眉的作用主要是：用于显示文档的附加信息，可以插入时间、图形、公司微标、页
- Excel表格COUNTIF函数应该很少人会用到，很多小伙伴可能还不知道该怎么用，也有一些小伙伴虽然懂得COUNTIF函数的原理，却老是计算
- 为了保护文档不被其他用户查看或修改，我们可以给文档加密，那么具体要怎么做呢?下面让小编为你带来如何对word设置密码保护的方法，欢迎大家来到
- Excel表格是一款专业的数据处理软件，可以用于收集各种信息，编辑和处理大量数据，其中的各种强大功能可以帮助我们进行高效办公。在Excel表
- 组织结构图是可能在一些公司办公中经常会用到的模板，Word中就能制作组织结构图模板，而且还拥有非常强大和专业的功能。以下是小编为您带来的关于
- 不论是办公族还是学生党，都会经常使用Word，有时候可能会需要用到一些数学公式，所以，就有网友问道，Word公式编辑器在哪里？今天，小编就来
- excel2010怎么制作扇形图呢？很多用户对此还不是很清楚，小编这里就给大家带来有关excel2010怎么制作扇形图的回答，希望能够帮助大
- 日常工作中常常需要建立一些有规律的数据库。这些数据都是有一定的规则, 这就可以利用 Excel提供了一些很有用的功能，可让我们任何一个人都可
- 现在，我们很多人都已经使用上了电脑来帮我们处理一些事情，而有些时候我们需要用到office办公软件来进行操作，但是我们在下载安装office
- 我们在使用word进行编辑文字的同时，有时候还需要插入图片，这样方便更好的说明文字的具体内容，那么下面就由小编给大家分享下word中文字环绕
- 简介：学过高中物理的小朋友们都知道，我们可以通过测量路端电压与电流来求电源的电动势与内阻，这里的关键是作图象，以前我们作图象时都是先描点再连
- 经历8个Beta版后，iOS14.5正式版终于姗姗来迟！不管怎么样，用户期待已久的它还是来了，不出意外的话，iOS14.5正式版也是iOS1
- 学会使用excel默认设置，将提高我们的工作效率，减少不必要的重复操作。excel默认设置是一个宽泛的定义，包括excel默认设置字体、页面
