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
用vba加批注 修改批注怎么弄 - …… Sheets(1).Range(＂A1＂).AddComment '给A1添加批注 With Sheets(1).Range(＂A1＂).Comment .Text ＂EvilFarmer:222＂ & Chr(10) & ＂＂ '批准内容 .Visible = True '可见 .Shape.Fill.UserPicture _ '批注图片设置 ＂C:\Users\EvilFarmer\...
excel批注代码,如何将数据明细表格内的数据按汇总表的要求自动添加批注!求VBA代码! - …… Sub InsertCommentByDetail() '打开Excel文件,按Alt+F11打开VBA编辑器,“插入”->“模块”,然后把这些代码贴到空白的窗口里 '保持光标停留在这些代码中间,按F5运行 Dim MyComment As String '批注内容 Dim DetailSheet As ...
如何用Excel VBA批量添加批注 - …… 用宏录制一个添加备注的代码,然后使用循环语句批量执行就可以了.
如何用vba函数给单元格赋值并添加批注 - …… Public Function cmtval(rng As Range)Dim i As IntegerDim sum As IntegerDim str As StringFor i = 2 To Sheet5.Range(＂A＂ & Sheet5.Rows.Count).End(xlUp).Row If Sheet5.Range(＂A＂ & i).Value = rng.Value Then sum = Sheet5.Range(＂C＂ & ...
如何用VBA给EXCEL插批注,当我单元格输入1时,批注是一个值,输入2时是另外一个值,该怎么做,最好有源代码 …… 在工作表标签单击右键 点选＂查看代码＂ 粘贴下面的代码 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Comment Is Nothing Then If Target.Value = 1 Then Target.AddComment ＂A＂ Else Target.AddComment ＂B＂ End If Else If Target.Value = 1 Then Target.Comment.Text ＂A＂ Else Target.Comment.Text ＂B＂ End If End If End Sub 回到工作表中输入试试
excel 批量添加 表格批注 - …… 要实现这个,需要使用VBA. 先在工作表中添加一个按钮,方法为在菜单栏空白处用鼠标右键唤出菜单选择界面,选中控件工具箱.再点击控件工具箱中的按钮,在工作表中画一个按钮. 然后右键点按钮,在弹出菜单中选择查看代码,然后将以...
求EXCELL 批量插入批注的VBA 代码 …… 问题不够具体,所以代码只能大概的给,你需要根据自己需要做些改动,注释我都写上了,改起来也不是很难.代码如下: Sub 批量插入批注() Dim rng As Range, cell As Range Set rng = Range(＂A1:E9＂) '设定作用区域 For Each cell In rng...
在已有批注续续添加批注excel vba代码 - …… 在批注后面直接添加内容即可 不放心,可在批注前添加英文单引号
excel中VBA怎么添加注释和解除注释快捷键 - …… 如何将“设置注释块”加到快捷工具栏 在VB窗口中的快速工具栏空白处鼠标右击,找到“自定义 >> (上面)命令 >> (左下)编辑 >> (右下)设置注释块”,拖动到快捷工具 烂...
excel里用vba如何单元格数据变成批注 - …… 用VBA实现起来不难,但问题是sheet2里放几千个批注,实在是没效率,还不如用vlookup函数,从sheet1里查找相关的值,然后另插一列写个公式,如果扣款值不为零就显示迟到扣款,以后也可扩展为多种扣款原因的综合显示,不用看时就隐藏就好.批注要查看时还得一个个去悬停鼠标,而且想打印扣款原因项给领导或员工都不太现实.
