vb中想要編寫添加批注代碼，該怎么編寫代碼來實(shí)現(xiàn)呢？下面我們就來看看詳細(xì)的教程。

1、在工作表中，點(diǎn)擊菜單欄【開發(fā)工具】，在其工具欄內(nèi)，點(diǎn)擊【visual basic】!

2、會進(jìn)入VBA編輯界面！點(diǎn)擊菜單欄【插入】，在其下拉菜單中，選擇【模塊】！

3、會彈出模塊編輯窗口！

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

Sub 添加批注()Set i = Cells(Rows.Count, "d").End(xlUp)For Each rng In Range(Range("d2"), i)With rng  If .Comment Is Nothing Then    .AddComment.Text "美式"    .Comment.Visible = True  End If    .Comment.Visible = FalseEnd WithNextEnd Sub

5、在工作表的【開發(fā)工具】菜單下，點(diǎn)擊【插入】按鈕，插入一【表單】按鈕，并與指定編寫的添加批注代碼關(guān)聯(lián)，且進(jìn)入命名為【添加批注】！

6、點(diǎn)擊【添加批注】按鈕！工作表中的D例被瞬間加上了批注！

以上就是vb寫添加批注代碼的教程，希望大家喜歡，請繼續(xù)關(guān)注武林網(wǎng)。

相關(guān)推薦：

VBA怎么編寫激活單元格的代碼?

Word中VBA編輯器怎么修改代碼默認(rèn)的格式?

excel表格怎么利用VBA制作閃爍的我愛中國效果?