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
投稿猜你喜欢
- 咱们在 操纵WPS表格与Excel表格 停止 一样平常办公时， 常常 需求 建造 林林总总的表格，当 咱们 操纵表格去为 咱们 处理 困难的
邮件合并还可以批量发送邮件！1批量发送邮件通知，你都是怎么做呢？我相信很多人想到批量发送邮件，就是一个邮箱一个邮箱的复制到收件人。还有些人，- 暑假期间，因给本区参加市五项技能竞赛的老师进行PPT电子教案的培训，所以自己常被问到PPT课件制作方面的问题，一些老师反映，虽然从网上
- 我们的电脑在安装升级了win10操作系统之后，有的小伙伴在玩城堡破坏者的时候就出现了游戏过程中出现掉线的情况。对于这种问题小编觉得可能是因为
- 许多用户在使用电脑的时候，在设置Windows的用户账户文件夹名称包含中文字符、特殊符号（例如空格）等特殊内容时，部分应用程序可能无法正常工
- 在win2008系统下，由于系统默认下强化了安全性能，以有些用户会看不到局域网络中的共享资源，下面为大家介绍个无法发现共享资源的解决方法在局
- 这篇文章主要介绍了Win10怎么开启新开始菜单?Win10新开始菜单开启操作步骤教程的相关资料,需要的朋友可以参考下本文详细内容。Windo
- 1月8日凌晨，苹果公司针对iPhone和iPad用户发布了最新的 iOS12.1.3 beta3 测试版系统，一同发布的还有公测版本。可以说
- IFS函数检查是否满足一个或多个条件，且返回符合第一个TRUE条件的值。IFS可以取代多个嵌套IF语句，并且有多个条件时更方便阅读。注意:&
- 欢迎观看 After Effects 教程，小编带大家学习 After Effects 的基本工具和使用技巧，了解如何在 AE 中修复曝光不
- 如果Excel工作表的某列中包含一列数据，现在要按单元格数据的长度来提取最长的几个数据，可以用下面的数组公式。假如数据在A2:A11区域中，
- 剪映电脑版是很多用户都在使用的视频剪辑软件，功能强大，还支持添加字体、音效、贴纸等等。为了更快更好地剪出想要的视频，可以在剪映上使用快捷键，
- Win10 10056怎么升级到win10最新版10061？如果你之前安装过泄露版的Build 10056的话，那么你将无法通过Window
- win11图标间距变大怎么样恢复？我们在win11图标间距过大，看起来会非常难受，那么win11图标间距变大怎么样恢复呢，其实这与屏幕缩放比
- 最近有关微软方面给出消息，微软发布了Visual Studio Code 1.45版本，该版本能够更好的帮助用户们进行使用等，大量的地方经过
- 通常我们在打印文档资料的时候常常是打印单面觉得整洁干净。其实很多朋友们会想要将内容打印双面纸张，这样资料内容精简又解决纸张。那么WPS怎么双
- 上期内容我们介绍了快速标注重复或错误数据的方法，今天，再来带大家分享一个有关三秒合并的小技巧~如下图所示，在工作中，当我们遇到多项单元格需分
- INDIRECT+ADDRESS，查找每个订单的订货型号问题情境如下样表：每个订单号产生订货量的型号规格不同，需要把每个订单号订货的型号规格
- Win10系统无法打开Office 2007的具体问题现象，如下所示：故障原因分析：此问题是由于您升级前安装的OFFICE 2007是个人精
- 对于wps幻灯片的制作，怎么去设置幻灯片的页码呢?下面小编就为你提供wps演示怎样设置页码的方法啦!wps演示设置页码的方法：1、首先在电脑
