Excelですべてのコメント位置をリセットするにはどうすればよいですか？

複数のコメントが入力されているワークシートでは、コメントボックスの位置を調整または移動して、コメントボックスの背後にあるセルの内容を表示する必要がある場合があります。この場合、コメントボックスは別の位置に移動します。 操作が終了したら、コメントボックスを元の位置に戻す必要があります。Excelですべてのコメント位置を一度にリセットするにはどうすればよいですか？

ExcelのVBAコードですべてのコメントボックスの位置をリセットします
ワンクリックでKutoolsforExcelですべてのコメントボックスの位置をリセットします

ExcelのVBAコードですべてのコメントボックスの位置をリセットします

次のVBAコードを適用して、すべてのコメントボックスを一度に元の位置に戻すことができます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：アクティブなワークシートのすべてのコメント位置をリセットします

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、アクティブなワークシートのすべてのコメント位置が一度にリセットされます。 スクリーンショットを参照してください：

ワンクリックですべてのコメントボックスの位置をリセット

ここでは、 コメント位置をリセット の有用性 Kutools for Excel。 このユーティリティを使用すると、 ワンクリックで、アクティブなシートまたはすべてのシートのすべてのコメント位置をすばやくリセットできます。

1.アクティブシートのすべてのコメントボックスの位置をリセットするだけの場合は、をクリックしてください クツール > その他 > コメント位置をリセット > アクティブシート.

現在のブックのすべてのシートのすべてのコメントボックスの位置をリセットするには、をクリックしてください クツール > その他 > コメント位置をリセット > すべてのシート。 スクリーンショットを参照してください：

[アクティブシート]または[すべてのシート]をクリックすると、アクティブシートまたはすべてのシートのすべてのコメント位置がすぐに元の位置にリセットされます。

ワンクリックでKutoolsforExcelですべてのコメントボックスの位置をリセットします

関連記事：

• Excelでコメントインジケーターの色を変更するにはどうすればよいですか？
• Excelでコメント付きのすべてのセルを強調表示するにはどうすればよいですか？
• Excelでコメントする日付と時刻を自動追加するにはどうすればよいですか？