ExcelのマクロVBA入門④

目次

• 背景色をつける
• 背景色をつける、を繰り返す

背景色をつける

手作業だと？

1. クリックしたセルから、右下まで範囲選択
2. 選択セルの背景色を緑にする

Sub 背景色を緑()
  Range(Selection, Selection.Offset(2,5)).Select
  Selection.Interior.Color = RGB(226,239,218)
End Sub

• 背景色 = Interior.Color
• フォントの色 = Font.Color

セルに色をつける

Range("C7").Font.Color = RGB(255,0,0)

Range("C7")：セル選択
Font.Color：色の種類
RGB(255,0,0)：色を指定

背景色をつける、を繰り返す

手作業だと？

1. セルB4を選択
2. 選択セルから下に2セル、右に5セル先まで範囲選択
3. 選択範囲の背景色を青にする
4. 選択セルから6つ下に移動してセル選択

Sub 一支店おきに背景色を青()
  Range("B4").Select
  Range(Selection, Selection.Offset(2,5)).Select
  Selection.Interior.Color = RGB(221,235,247)
  Selection.Offset(6,0).Select
End Sub

これを繰り返す!!