Jeauxは、印刷する必要のあるデータを含む多くの長いワークシートを処理します。印刷されると、彼女はデータの列の隣のスペースに書き込みます。すべての行はコンテンツに合わせて自動サイズ設定されるため、高さが異なります。 Jeauxは、選択した行を取得して、たとえば指定された割合で段階的に増やすマクロを探しています。 （高さが異なるため、すべて同じ高さに設定することはできません。）

このようにして、彼女は行を手書きに十分な大きさにすることができますが、それでもすべてのデータを見ることができます。また、行の高さを印刷前の高さに戻す方法があると便利です。

このタスクは、マクロを使用して非常に簡単に実行できます。このマクロで行われるように、選択した行をステップスルーしてRowHeightプロパティを調整するだけです。

Sub ExpandSelectedRows()

Dim rRow As Range     Dim dEnlarge As Double

dEnlarge = 1.25     For Each rRow In Selection.Rows         rRow.RowHeight = rRow.RowHeight * dEnlarge     Next End Sub

この場合、dEnlarge変数には1.25が含まれています。これは、For …​ Nextループの式によって、行の高さが25％増加することを意味します。この変数の値は、使用するパーセンテージを反映するように変更できます。または、マクロを変更して、ユーザーにパーセンテージを要求することもできます。

Sub ExpandSelectedRows()

Dim rRow As Range     Dim dEnlarge As Double     Dim sTemp As String

sTemp = InputBox("Increase by what percent?")

dEnlarge = Val(sTemp)

If dEnlarge > 1 Then dEnlarge = dEnlarge / 100     If dEnlarge < 1 Then dEnlarge = dEnlarge + 1

If dEnlarge > 0 Then         For Each rRow In Selection.Rows             rRow.RowHeight = rRow.RowHeight * dEnlarge         Next     End If End Sub

後で行を元の高さに戻したい場合は、次の1行のマクロで処理できます。

Sub AutfitRows()

Cells.EntireRow.AutoFit End Sub

このマクロが機能するのは、ワークシートの行が元々「コンテンツに合わせて自動サイズ設定」されていたためです。拡大ステップを逆にするようにマクロを作成することもできますが（乗算ではなくdEnlargeで除算）、ExpandSelectedRowsマクロが複数回実行されなかった場合にのみ確実に機能します。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（21）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。