ワンクリックで整形！VBAでフォント＆セルサイズを自動調整する方法｜Excelマクロ

エクセル作業の手間を減らすVBAコードとは？

エクセルでデータ入力しているときに、幅の調整やフォントの指定をいちいちするのは本当に面倒ですよね。そんな手間を解消するために、好みのフォントやセルの幅、高さを一発で自動調整するVBAコードを作ってみました。

フォントやセルサイズの手動調整の悩み

日々のエクセル作業で、セルの幅や高さを調整したり、フォントを指定したりするのは時間がかかる作業です。これを自動化することで、作業効率を大幅に向上させることができます。

ワンクリックで解決！VBAコードの紹介

以下は、指定のフォント（Meiryo UI、サイズ10）を設定し、セルの幅や高さを自動調整するVBAコードです。これを実行することで、エクセル作業が一瞬で整います。

Sub MeiryoUI10_AutoFit()
    ' フォントをMeiryo UI、サイズを10に設定
    ' 行と列の幅を自動調整
    With ActiveSheet.Cells ' アクティブなシートのすべてのセルを対象にする
        .Font.Name = "Meiryo UI"
        .Font.Size = 10
        .Rows.AutoFit
        .Columns.AutoFit
    End With
    ' 必要ならセルA1を選択
    ActiveSheet.Range("A1").Select
End Sub

VBAコード解説：フォント設定とセルの自動調整

フォントの設定

With ActiveSheet.Cells でアクティブなシートのすべてのセルを対象にし、Font.Name = "Meiryo UI" でフォントをMeiryo UIに、Font.Size = 10 でフォントサイズを10に設定しています。

行と列の幅の自動調整

.Rows.AutoFit と .Columns.AutoFit で、入力データに応じて行と列の幅・高さを自動的に調整します。

セルA1の選択

最後に ActiveSheet.Range("A1").Select で、必要に応じてセルA1を選択する動作を加えています。これは好みに応じて削除しても構いません。

VBAでエクセル作業をスピードアップ

このVBAコードを利用することで、エクセルの作業が圧倒的に効率化されます。手動でフォントやセルサイズを調整する必要がなくなり、データ入力に集中できます。このコードを一度設定すれば、毎回のデータ入力作業で時間を節約できます。ぜひ、エクセルの効率化に役立ててください！