아래 매크로는 예를 들어 배경색을 설정하는 데 사용할 수 있습니다. 워크 시트 범위의 다른 모든 행 또는 열 :

Sub ShadeAlternateRows(rngTarget As Range, intColor As Integer, lngStep As Long)

' adds a background color = intColor to every lngStep rows in rngTarget

' example: ShadeAlternateRows Range("A1:D50"), 27, 2

' colors every 2 rows light yellow

Dim r As Long

If rngTarget Is Nothing Then Exit Sub

With rngTarget

.Interior.ColorIndex = xlColorIndexNone

' remove any previous shading

For r = lngStep To .Rows.Count Step lngStep

.Rows(r).Interior.ColorIndex = intColor

Next r

End With

End Sub

Sub ShadeAlternateColumns(rngTarget As Range, _

intColor As Integer, lngStep As Long)

' adds a background color = intColor to every lngStep column in rngTarget

' example: ShadeAlternateColumns Range("A1:J20"), 27, 2

' colors every 2 columns light  yellow

Dim c As Long

If rngTarget Is Nothing Then Exit Sub

With rngTarget

.Interior.ColorIndex = xlColorIndexNone

' remove any previous shading

For c = lngStep To .Columns.Count Step lngStep

.Columns(c).Interior.ColorIndex = intColor

Next c

End With

End Sub