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

コメントボックスのサイズをExcelのコンテンツに合わせて自動サイズ設定するにはどうすればよいですか?

セルにコメントを挿入する場合、コメントボックスのサイズがデフォルトです。 たくさんのコンテンツを入力すると、一部のコンテンツが直接表示されなくなります。 コメントボックスのサイズをコンテンツに自動的に合わせることができますか?

コメントボックスの内容をワークシートに合わせて自動サイズ変更
セルの範囲にコンテンツを収めるためのコメントボックスの自動サイズ設定
コメントボックスのサイズを簡単に自動調整して、コンテンツをアクティブなシートまたはすべてのシートに素晴らしいツールで合わせることができます


コメントボックスの内容をワークシートに合わせて自動サイズ変更

Excelでは、コメントボックスを必要なサイズにXNUMXつずつ手動でドラッグできますが、サイズを変更する必要のあるコメントボックスが多数ある場合、この方法は面倒で時間がかかります。 この場合、次のVBAコードを適用できます。

1。 押さえつける Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード:ワークシートのコメントボックスの自動サイズ変更

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3.次にを押します F5 このコードを実行するにはキーを押します。アクティブなワークシートのすべてのコメントボックスは、次のスクリーンショットのように内容に合わせてサイズが変更されています。

doc自動サイズコメント1

先端:このコードは現在のワークシートでのみ機能し、追加した新しいコメントボックスのサイズを自動的に変更することはできません。


ワンクリックで、コメントボックスのサイズをExcelのコンテンツにすばやく合わせることができます。

また, オートフィットコメント の有用性 Kutools for Excel 以下のデモに示すように、ワークシートのコンテンツにコメントボックスのサイズをすばやく合わせるのに役立ちます。 ダウンロードして今すぐ試してみてください! (30 日間の無料トレイル)


セルの範囲にコンテンツを収めるためのコメントボックスの自動サイズ設定

セルのコメントボックスの範囲を自動サイズ設定する必要がある場合は、次のVBAコードを使用できます。

1。 押さえつける Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード:セル範囲内のコメントボックスの自動サイズ変更

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3.次にを押します F5 このコードを実行するためのキーを押すと、コメントボックスのサイズを変更するセルの範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

ドキュメントのサイズ変更-コメントボックス3

4.次に、をクリックします OK、選択したセルのコメントボックスがコメントの内容に自動調整されました。

先端:このコードでは、追加した新しいコメントボックスのサイズを自動的に変更することはできません。


コメントボックスのサイズを自動調整して、コンテンツをアクティブなシートまたはすべてのシートに合わせます 

あなたは試すことができます AutoFitコメント の有用性 Kutools for Excel 自動的にサイズを変更するにはアクティブなシートまたはExcelのすべてのシートのすべてのコメントボックス。 次のようにしてください。

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

1.コメントボックスのコンテンツをアクティブシートに合わせるための自動サイズ変更については、をクリックしてください。 クツール > その他 > AutoFitコメント > アクティブシート.

また、ブック全体のすべてのコメントボックスのサイズを自動変更する場合は、をクリックしてください。 クツール > その他 > AutoFitコメント > すべてのシート。 スクリーンショットを参照してください:

次に、すべてのコメントボックスは、コンテンツに合わせて自動的にサイズ変更されます。 スクリーンショットを参照してください:

ノート:

  • 1.コメントボックスの自動サイズ変更後、コメントを再度編集すると、コメントボックスはコンテンツに合わせて自動的に拡大または縮小します。
  • 2.挿入した新しいコメントについて、このAutoFitコメントユーティリティを再度有効にして、新しく挿入したすべてのコメントボックスのサイズを変更する必要があります。

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


コメントボックスをコンテンツに合わせて簡単に自動サイズ変更


関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations