ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）

公開日：2013-08-26　最終更新日：2019-08-08

ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）

セルをダブルクリックすることで、そのセル値で行高および列幅を自動調整するマクロVBAになります。
これは、以下の操作をマクロVBAでまとめて行うことになります。

「行の高さの自動調整」
「列の幅の自動調整」
この二つの操作を、マクロVBAで一度にやるということです。

ダブルクリックで起動されるVBAイベントは、BeforeDoubleClickになりますので、
このWorksheet_BeforeDoubleClickの中で行高・列幅自動調整を行います。

Worksheet_BeforeDoubleClick

Worksheet_BeforeDoubleClickは、セルをダブルクリックした直後に起動されます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target

ダブルクリックされたセルが、Rangeオブジェクトとして渡されます。

Cancel

Trueを入れると、ダブルクリックがキャンセルされます。
具体的には、ダブルクリックでセルの編集状態になるのを防ぐことが出来ます。

行高・列幅自動調整のサンプルVBAコード


  
    
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
            Boolean)

      　　With Target

      　　　　.Columns.AutoFit

      　　　　.Rows.AutoFit

      　　End With

      　　Cancel = True

      End Sub

Target.Columns.AutoFit
これで、列幅を調整し、
Target.Rows.AutoFit
これで、行高を調整しています。

ダブルクリックしたセルの値で行高・列幅を自動調整します。
他の行や他の列のセル値とは関係なく、当該セルだけで自動調整されます。

セル結合されている場合

行がセル結合されている場合は、行高は変化しません。
列がセル結合されている場合は、列幅は変化しません。

ただしセル内改行されている場合の行高については、
結合されている行数と改行数により、行高が変化する場合があります。
これについては、組み合わせパターンによるので、実際に試して確認してください。

同じテーマ「マクロVBAサンプル集」の記事

ブックを開いた時に指定シートを表示（Workbook_Open）
ブックが閉じられる直前に保存済を確認（Workbook_BeforeClose）
シートが選択された時に指定セルに移動（Worksheet_Activate）
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）
英小文字が入力されたら大文字に変換（Worksheet_Change）
セル選択で選択行の色を変更（Worksheet_SelectionChange）
方眼紙Excel（神エクセル）に対応するVBA

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）