【EXCEL VBA】列の幅、行の高さを設定する方法

訪問して頂きありがとうございます。まさふくろーです。

この記事では使用例を使って、列の幅、行の高さを設定する方法をご紹介します。

使用例

Rangeオブジェクト.ColumnWidth

解説	列の幅を取得／設定する。
	Rangeオブジェクトには、列、セルを指定できる。セルを指定した場合は、そのセルを含む列の幅が設定の対象となる。
	Rangeオブジェクトで複数列のセル範囲を指定した場合、指定したすべての列の幅を同じサイズに設定できる。

Rangeオブジェクト.RowHeight

解説	行の高さを取得／設定する。
	Rangeオブジェクトには、行、セルを指定できる。セルを指定した場合は、そのセルを含む行の高さが設定の対象となる。
	Rangeオブジェクトで複数行のセル範囲を指定した場合、指定したすべての行の高さを同じサイズに設定できる。

オブジェクト.Rows(RowIndex)

解説	引数RowIndexで指定した行を参照するためのRangeオブジェクトを取得する。
	オブジェクトには、Worksheetオブジェクト、Rangeオブジェクトを指定する。オブジェクトを省略すると、アクティブシート（一番手前のシート）の行を参照する。

リボンに「開発」タブが表示されているかの確認をします。

「開発」タブが表示されていない場合は、「開発タブの表示」をご覧ください。

①「開発」タブをクリック⇒②「挿入」をクリック⇒③「ボタン」をクリックします。

シート上にカーソルを移動し、ポインターを「＋」の状態にします。

左クリックを押したまま、緑の矢印の方向にズルズルっとカーソルを移動します。

「マクロの登録」画面が表示されます。

①「マクロ名」を変更⇒②「新規作成」ボタンをクリックします。

エクセルのブックに戻り、ボタンの上にフォーカスを当てます。すると、ポインターが「」マークに切り替わります。

右クリックでショートカットメニューを表示し、「テキストの編集」を選択します。

ボタンの名前を変更します。

VBE(Visual Basic Editor)のピンク枠の部分に、VBAコードを入力していきます。

Sub 実行ボタン_Click()

    Range("D1").ColumnWidth = 12
    Rows("2:7").RowHeight = 30
    
End Sub

Sub 実行ボタン_Click()

Range("D1").ColumnWidth = 12

Rows("2:7").RowHeight = 30

End Sub

3	「D1」セルの列幅を12に設定する。
4	2～7行目の行の高さを30に設定する。

「ファイル」タブをクリックします。

「名前を付けて保存」を選択し、ファイル保存画面を起動します。

①ファイル名を入力⇒②「Excel マクロ有効ブック(*.xlsm)」を選択⇒③「保存」ボタンをクリックします。

最後まで読んでいただき、ありがとうございました！

本のまとめ記事はこちら