Loading

[Excel VBA] マクロでエクセルの行の高さを自動調整する方法

gori0I9A9910_TP_V

今回は、エクセルマクロを使ってエクセルの行幅を自動調整するマクロをご紹介します!行幅の自動調整のみではなく、行幅の個別調整方法もご紹介しますので、是非ご活用ください(。・ω・。)

1. エクセルの行幅を自動調整するVBAコード

エクセルシートの行全体の幅を自動調整する場合は、下記1行のソースコードのみで実現可能です!サクッとできるのでお手軽&便利すぎます(。・ω・。)

Cells.EntireRow.autofit

ちなみに列の場合は、RowをColumnsに変更するのみです!

Cells.EntireColumns.AutoFit

2. エクセルの行幅を個別調整するVBAコード

自動調整ではなく、個別に調整する場合は、セルオブジェクトの「.RowHeight」属性を使います!.RowHeight属性は、足し算引き算をするだけで簡単に行を追加・削除できます(。・ω・。)

'# 例えばB1セルの幅を5広げる場合
Cells(2, 1).RowHeight = .RowHeight + 5

3. ソースコード(コピペでご利用ください)

今回は、自動調整後、幅にゆとりを持たせるために追加で個別に広げています!コピペで使える形にしてますので、是非ご活用ください(。・ω・。)

'# シートオブジェクトに記載した場合の例です!
'# 標準モジュール等に追加する場合は、
'# セルの指定の仕方が変わる(シートやブックの指定が必要になる)のでご注意ください!
Sub arrangeRowHeight()

    '# 0. 変数宣言・初期設定
    Dim lngNowRow As Long       '# 調整対象行
    Dim lngStartRow As Long      '# 調整対象開始行
    Dim lngCheckCol As Long      '# 対象行数判断列
    Dim intPlusRowH As Long      '# 対象行に追加したい幅数
    
    lngCheckCol = 1
    lngStartRow = 1
    intPlusRowH = 10

    '# 1. 対象シートの全体の行を自動調整(行間ダブルクリックと同じ)
    Cells.EntireRow.autofit
    
    '# 2. 現在の行の高さを取得し、指定した幅を広げる
    For lngNowRow = lngStartRow To Cells(Rows.Count, lngCheckCol).End(xlUp).Row
        With Cells(lngNowRow, lngCheckCol)
            .RowHeight = .RowHeight + intPlusRowH
        End With
    Next lngNowRow
 
End Sub

[CSS] CSSのみでデザインするおしゃれなヘッダー・見出し(h1~h6タグ)サンプル集

[jQuery] カーソルをあてた時に画像を切り替える方法(マウスオーバー・マウスアウト)

関連記事

  1. [PHP] ショートカット(短縮)URL取得 with Google短縮URL …

    2016.05.09
  2. [SQLServer] クエリのパフォーマンス調査・ボトルネックの特定

    2017.08.08
  3. [PHP] ソーシャルボタン自作!PHPでSNSのカウント数を取得する(Face…

    2017.11.25
  4. [Excel] 効率を大幅に上げる便利な関数使い方一覧

    2017.01.06
  5. [PHP] igo-phpを用いた形態素解析〜タグクラウド自作に向けて〜

    2016.05.05
  6. [CSS] ブラウザ毎にずれないCSS!リセットCSS・デフォルトCSSコード公…

    2018.08.07

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

CAPTCHA


New Article

  1. sangokutenbu_rendo6
  2. sangokutenbu_hukuryu
  3. 150415322552_TP_V
  4. ISG106130755_TP_V
  5. drtftgyuhij_TP_V
PAGE TOP