本篇經(jīng)驗將通過實例和大家分享一下，在VBA中如何編寫添加批注的代碼。 1. 實例：為工作表中的單元格D列添加批注 在工作表中，點擊菜單欄的【開發(fā)工具】，在其工具欄內(nèi)，點擊【Visual Basic

本篇經(jīng)驗將通過實例和大家分享一下，在VBA中如何編寫添加批注的代碼。

1. 實例：為工作表中的單元格D列添加批注

在工作表中，點擊菜單欄的【開發(fā)工具】，在其工具欄內(nèi)，點擊【Visual Basic】進入VBA編輯界面。

點擊菜單欄的【插入】，在下拉菜單中選擇【模塊】，會彈出模塊編輯窗口。

在代碼編輯窗口輸入以下代碼：

Sub 添加批注()
    Set i  Cells(, "D").End(xlUp)
    For Each rng In Range(Range("D2"), i)
        With rng
            If .Comment Is Nothing Then
                .AddComment.Text "這是一個批注"
                  True
            End If
              False
        End With
    Next
End Sub

保存并關閉VBA編輯界面。

2. 使用表單按鈕關聯(lián)編寫的添加批注代碼

在工作表的【開發(fā)工具】菜單下，點擊【插入】按鈕，插入一個【表單】按鈕，并與指定編寫的添加批注代碼關聯(lián)，命名為【添加批注】。

點擊【添加批注】按鈕，工作表中的D列會瞬間加上批注。