[VBA] EXCEL 批次修改註解位置

by Mesak

這是我第一次寫巨集

雖然之前有寫 function

不過這次要寫巨集,實在是好頭痛

這個VBA 是從這裡看到 修改的

http://www.vba.com.tw/plog/post/1/238

Sub modifycomment()
'整批修改現有工作表中註解的字型
Dim rng As Range
Dim ComRange As Range
'取得工作表中有註解的儲存格的集合
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'修改註解位置,自動大小
With rng.Comment.Shape
.Left = rng.Left + rng.Width + 20
.Top = rng.Top + 10
With .TextFrame
.AutoSize = True
End With
End With
Next rng
End Sub

方法:

按工具→巨集→巨集(ALT+F8)

巨集名稱隨便輸入,按下建立

接著出現VBE工作視窗

把程式碼貼上,存檔關閉

使用就按下巨集(ALT+F8) 執行,所有的註解就會自動大小,移動到該儲存格的旁邊

使用前:

使用後:

You may also like