Excelのマクロについて質問です

質問

Excelのマクロについて質問です

2行置き毎に範囲指定した場所の行に色をつけるというマクロを考えているのですが、どのように行数を認識させて動かせばいいのか難しくて中々思いつきません
仮にA列～K列　50行から～終わりまでを範囲指定した場合に以下のようにしたいのですがよければご助言、こういうマクロにすればいいかも？と教えてくださると助かります
条件書式の場合ではきまった行にしか色をぬれなかったので無理でした。

A K

50　--------------------------------
51　--------------------------------
52　色なし
53　色なし
54　--------------------------------
55　--------------------------------
56　色なし
57　色なし
以下指定範囲まで繰り返し

条件
範囲は不規則
開始の2行を色なしスタート、色有りスタートのどちらでも問題ありません
（2行色を塗って、2行色をなし、を繰り返したいだけなので）
偶数行、奇数行関係なく最初の2行から綺麗に始まれる様にしたいです
このマクロを動かす際のユーザーフォームボタンは用意してあるのですが、その際に色を指定して動かす事ができるのでしょうか？

色々質問内容が多いですが、何卒お願いします。

回答No.3

myRange · ベストアンサー

選択した範囲は、Selectionで表せるので、、、

'--------------------------------
Private Sub CommandButton1_Click()
　Dim R As Long
　For R = 1 To Selection.Rows.Count Step 4
　　　Selection.Rows(R).Resize(2, Selection.Columns.Count).Interior.ColorIndex = 3
　Next R
End Sub
'-------------------------------

以上です。

お礼

無事できました！
すごい頭を悩ませていましたが、かなり短い構成でできるんですね

意図した形のものできて大変助かりました
どうもありがとうございました

回答No.4

noname#187541

こんばんは。

先に範囲指定してからマクロを実行するのであれば、選択した範囲は「Selection」です。

回答No.2

xls88

一例です。

Dim rng As Range
Dim i As Long

Set rng = Range("A50:K300")
For i = 1 To rng.Rows.Count
If i Mod 4 = 1 Or i Mod 4 = 2 Then
rng.Rows(i).Interior.ColorIndex = 6
End If
Next i
Set rng = Nothing

お礼

ご回答ありがとうございます
Setの所でおそらく範囲指定を行うと思うのですが、
範囲が常に一定しないため、
選んだ所を自由に当てはめられるにはどうすればよろしいのでしょうか？

回答No.1

yama1718

条件付き書式で
=(MOD(ROW()-1,4)<2)
ですね。

お礼

回答ありがとうございます
これに似た様な式はもう知っておりまして
これを用いた場合、奇数行を無視した偶数行＋奇数行の2行をスタートとしてしまうので
奇数行から構成された表の場合色をつける箇所がずれてしまうのです

なので偶数行からはじめても奇数行からはじめてもそこを基点としたものがほしいので
条件付書式ではおそらく無理かと思いマクロでやれる方法を質問させていただいております