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

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

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

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

點(diǎn)擊菜單欄的【插入】，在下拉菜單中選擇【模塊】，會(huì)彈出模塊編輯窗口。

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

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

保存并關(guān)閉VBA編輯界面。

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

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

點(diǎn)擊【添加批注】按鈕，工作表中的D列會(huì)瞬間加上批注。