Excel vba添加批注的代碼寫法實例教程

excel vba添加批注的代碼寫法實例教程

本文介紹excel中vba添加批注的方法，以及使用單元格現有內容添加到批注框里的案例和代碼寫法。

本文整理兩個excel中使用vba添加批注的案例，分享給大家學習。

vba添加批注案例一：

為選中的一個單元格自動添加批注，批注內容為系統當天日期，然后標注外框大小自動調整為剛好容納內容即可，因為默認的批注比較大。

效果如下圖，比如單擊A1，然后自動加批注，選中A4，又自動添加批注，以此類推。

實現上面的效果vba添加批注的代碼如下：

Sub vba添加批注()On Error Resume NextActiveCell.AddCommentWith ActiveCell.Comment.Text CStr(Date).Shape.TextFrame.AutoSize = TrueEnd WithEnd Sub

vba添加批注案例二：

為B列的姓名使用VBA添加批注，要求批注內容為C列單元格對應的的內容，而且批注框內文字大小為11號字體，不加粗，且隨內容的多少自動調整批注框的格式的大小。

相關的代碼如下：

Sub vba添加批注()Dim strComment As StringDim yWidth As LongEndrow = Sheet1.[B65536].End(xlUp).RowFor sn = 2 To EndrowWith Sheet1.Cells(sn, 2)strComment = Sheet1.Cells(sn, 3)If .Comment Is Nothing Then ‘沒有備注則添加備注.AddComment Text:=strComment.Comment.Visible = FalseElse ‘已經有備注則備注添加內容.Comment.Text Text:=strCommentEnd IfWith .Comment.Shape.TextFrame.Characters.Font.Size = 11.TextFrame.AutoSize = TrueIf .Width > 250 ThenyWidth = .Width * .Height.Width = 150.Height = (yWidth / 200) * 1.8End IfEnd WithEnd WithNext snEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。