FC2ブログ

行ごとに色を付けるマクロ

yahoo!searchで「vba セルの色を」で検索した結果、以下のコードで実現。
セルB4から空きセルでない行までの行を、各行Bから36(AK)までのセル背景を水色に変更する
    Sub colored()
      Dim sheet As Worksheet
      Dim row As Long
      Dim max As Long
      Set sheet = ActiveWorkbook.Worksheets("Sheet Name")
      max = sheet.Range("B4").End(xlDown).row
      For row = 4 To max Step 1
        With Range("B" & row).Resize(, 36)
          .Interior.ColorIndex = Int(row Mod 2) * 34
        End With
      Next row
    End Sub
  



スポンサーサイト



この記事へのトラックバックURL

http://memolet.blog22.fc2.com/tb.php/29-0237e8b6

この記事へのトラックバック

この記事へのコメント