本文整理兩個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