メインコンテンツへスキップ

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 このコードを実行するためのキーを押すと、アクティブなワークシートのすべてのコメント位置が一度にリセットされます。 スクリーンショットを参照してください:

ドキュメントリセットコメント-1
-1
ドキュメントリセットコメント-2

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

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

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

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

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

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

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


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


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations