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

나중에 행을 원래 높이로 되돌리려면 다음 단일 행 매크로가 작업을 수행합니다.

Sub AutfitRows()

Cells.EntireRow.AutoFit End Sub

이 매크로는 워크 시트의 행이 원래 “내용에 맞게 자동 크기 조정”되었기 때문에 작동합니다. 확대 단계 (곱하기 대신 dEnlarge로 나누기)를 반대로하기 위해 매크로를 작성할 수 있지만 ExpandSelectedRows 매크로가 여러 번 실행되지 않은 경우에만 안정적으로 작동합니다.

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (21)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.