摘要： 本文介绍excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法。 本文整理两个excel中使用vba添加批注的案例，分享给大家学习。 ...
本文介绍excel中vba添加批注的方法，以及使用单元格现有内容添加到批注框里的案例和代码写法。
本文整理两个excel中使用vba添加批注的案例，分享给大家学习。
vba添加批注案例一：
为选中的一个单元格自动添加批注，批注内容为系统当天日期，然后标注外框大小自动调整为刚好容纳内容即可，因为默认的批注比较大。
效果如下图，比如单击A1，然后自动加批注，选中A4，又自动添加批注，以此类推。
Excel条件格式图标集的使用实例教程
本文介绍excel中条件格式图标集的使用，并以一个实例来演示满足条件的单元格才显示图标集的设置方法。 Excel条件格式图标集是2007以上版本新增的一个功能。 条件格式图标集的使用方法都是用单元格的值与其它单元格的值比较来决定使用何种颜色或图标。 默认情况下所有单元格都将显示图标集。如果只需要将部分满足条
实现上面的效果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
Excel VBA“对于指定的操作，该主题不受信任。”的解决方法
在使用Excel VBE向窗体中添加MSHFlexGrid控件时，出现警告：“对于指定的操作，该主题不受信任。” 原因：windows的更新补丁限制了一些activex控件的使用。 解决办法：安装一个针对vb控件的更新包（Microsoft Visual Basic 6.0 Service Pa
