前回・前々回でコメントが挿入セルから遠~くに表示されてしまう、原因と対策について検証してみましたが、あちら立てればこちらが立たぬ状態で根本的な解決には至りませんでした。
そこでVBAでこの状態をなんとか出来ないかと検証してみました。
早速コード
Sub CommentPittariMove() Application.ScreenUpdating = False Dim myRng As Range '1 For Each myRng In Range("A1").SpecialCells(xlCellTypeComments) '2 With myRng.Comment.Shape .Left = myRng.Offset(, 1).Left .Top = myRng.Offset(, 1).Top .Placement = xlMove End With Next Application.ScreenUpdating = True End Sub
1.SpecialCells(xlCellTypeComments)でコメントが挿入されているセルのみを抽出
2.コメントに対して挿入セルの1つ右のセルの左上角に移動するよう指示
以上
コメントの書式設定を気にすることなく
コメントが遠くに表示されてイラッとした瞬間に
このマクロを実行すれば
セルのお側にすぐにコメントが控える状態になります。
まとめ
上記マクロを右クリックメニューに登録しているちょっと便利マクロ集に付け加えて、ささやかながら精神的安定と業務効率UPを行うことが出来ました。