本文整理兩個excel中使用vba添加批注的案例，分享給大家學習。
vba添加批注案例一：
為選中的一個單元格自動添加批注，批注內(nèi)容為系統(tǒng)當天日期，然后標注外框大小自動調(diào)整為剛好容納內(nèi)容即可，因為默認的批注比較大。
效果如下圖，比如單擊A1，然后自動加批注，選中A4，又自動添加批注，以此類推。
實現(xiàn)上面的效果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添加批注，要求批注內(nèi)容為C列單元格對應(yīng)的的內(nèi)容，而且批注框內(nèi)文字大小為11號字體，不加粗，且隨內(nèi)容的多少自動調(diào)整批注框的格式的大小。
相關(guān)的代碼如下：
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 '已經(jīng)有備注則備注添加內(nèi)容
.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
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標題：vba添加批注的代碼寫法和案例
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213212.html
相關(guān)文章
