這是我第一次寫巨集
雖然之前有寫 function
不過這次要寫巨集，實在是好頭痛
這個VBA 是從這裡看到 修改的
http://www.vba.com.tw/plog/post/1/238
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
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) 執行，所有的註解就會自動大小，移動到該儲存格的旁邊
使用前：
使用後：
