超初心者ですみませんが・・・

質問

エクセルなんですが、このコーナーでチェックボックスについて教えていただいたのですが、

Private Sub CheckBox1_Click()
　　If CheckBox1 Then
　　　　Rows(1).Interior.Color = vbRed
　　Else
　　　　Rows(1).Interior.Color = xlNone
　　End If
End Sub

　　　　　　↑
これについてなんですが、例えばチェックすることによって「F」の６行目まで色が着くってやりかたはどうやればよいのでしょう？これですと1行全部に色がついてしまいますので・・・。

回答No.1

taocat

Private Sub CheckBox1_Click()
If CheckBox1 Then
Range("F1:F6").Interior.ColorIndex = 3
Else
Range("F1:F6").Interior.ColorIndex = xlNone
End If
End Sub

ColorIndex の方がいいかも。
以上です。

お礼

凄く勉強になりました。有難うございました。