タテにもヨコにも長いExcelの真っ白なリストを見ていると、どこを見ているかわからなくなり、一時的にでも交互に網掛けしたい時があります。
そんな時に偶数行に一つずつ塗りつぶしするのは非効率なので、ちょっとしたストライプ柄に塗りつぶすマクロを作成しました。
EXCEL2013,EXCEL2016で動作確認したことがあります。
選択範囲をストライプ柄にするExcelVBAマクロ
Sub ストライプ()
Dim i As Long
Dim 先頭行 As Long
Dim 先頭列 As Long
Dim 最終行 As Long
Dim 最終列 As Long
先頭行 = Selection(1).Row
先頭列 = Selection(1).Column
最終行 = Selection(Selection.Count).Row
最終列 = Selection(Selection.Count).Column
Application.ScreenUpdating = False
For i = 先頭行 To 最終行 Step 2
Range(Cells(i, 先頭列), Cells(i, 最終列)).Interior.Color = RGB(204, 236, 255)
Next i
Application.ScreenUpdating = True
End Sub
範囲を選択してマクロを実行すると↓のように交互に水色に塗りつぶします。
![](https://toriaezuugoku.com/wp-content/uploads/2022/02/2022-02-02_20h18_07-1.png)
![]() | ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応 新品価格 |
![](https://www18.a8.net/0.gif?a8mat=1NWEU4+MMJB6+249K+BWGDT)