ばくがの業務効率化チャンネル

このブログは個人的なエクセルの備忘録です

2022-01-10から1日間の記事一覧

色塗り

Sub 色塗()Dim 行番号 As Long For 行番号 = 2 To 30 If Cells(2, 行番号) = "土" Then Range(Cells(2, 行番号), Cells(30, 行番号)).Interior.Color = RGB(211, 211, 211) End If Next 行番号 End Sub