書式をいろいろ設定して書式が変化したときに、セルの高さや幅を規定値に戻したい場合があります。
ここではセルの高さと幅の既定値を取得して、シートをもとの状態に戻す設定を説明します。
目次
セルの高さや幅を規定値に変更する
エクセルでセルの高さや列幅が規定値と変化しているとき、シートのセルを既定値に戻す方法を説明します。

■ コード内を「Wクリック」で選択できます。
Sub サンプル3493_1() <pre><code>Dim Hi As Double Dim Col As Double Cells.Clear Cells.UseStandardHeight = True Cells.UseStandardWidth = True Hi = Cells.RowHeight Col = Cells.ColumnWidth MsgBox "高さ=" &amp; Hi &amp; Chr(13) &amp; "幅=" &amp; Col Cells(1, 1).Select</code></pre> 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 にします。

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