這是我第一次寫巨集
雖然之前有寫 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) 執行,所有的註解就會自動大小,移動到該儲存格的旁邊
使用前:
使用後: