セルの高さや幅を規定値に変更する

書式をいろいろ設定して書式が変化したときに、セルの高さや幅を規定値に戻したい場合があります。

ここではセルの高さと幅の既定値を取得して、シートをもとの状態に戻す設定を説明します。

セルの高さや幅を規定値に変更する

エクセルでセルの高さや列幅が規定値と変化しているとき、シートのセルを既定値に戻す方法を説明します。

Sub サンプル3493_1()
   
    Dim Hi As Double
    Dim Col As Double
        
    Cells.Clear
    Cells.UseStandardHeight = True
    Cells.UseStandardWidth = True
        
    Hi = Cells.RowHeight
    Col = Cells.ColumnWidth
    
    MsgBox "高さ=" & Hi & Chr(13) & "幅=" & Col
   
    Cells(1, 1).Select
             
End Sub

•　Dim Hi As Double
•　Dim Col As Double
　’変数HiとColを宣言します。
•　Cells.Clear
　’セル全体のデータをクリアします。
セルの罫線や背景、数値などすべてクリアします。

•　Cells.UseStandardHeight = True
　’すべてのセルを規定の高さにします。

•　Cells.UseStandardWidth = True
　’すべてのセルを規定の列幅にします。

•　Hi = Cells.RowHeight
　’セルの高さを取得して、変数Hiに代入します。
•　Col = Cells.ColumnWidth
　’セルの幅を取得して、変数Col に代入します。

•　MsgBox "高さ=" & Hi & Chr(13) & "幅=" & Col
　’MsgBoxに規定の高さと列幅を表示します。
& Chr(13) &で改行します。

•　Cells(1, 1).Select
　’アクティブセルの位置をセルA1 にします。

以上で「セルの高さや幅を規定値に変更する」の説明を終わります。