|
▼MIKA さん:
繰り返す処理に、一定の間隔になるような法則性を見つけることがコツです。
Sub Macro1()
Dim i As Long
Const MinValue = 23
Const MaxValue = 30
'方法1 3列に1回は処理しない。
For i = MinValue To MaxValue
If (i - (MinValue - 1)) Mod 3 > 0 Then MsgBox i & "列"
'23→24→(25)→26→27→(28)→29→30 ()の列は処理されない
Next
'方法2 2列おきに2列ずつ処理する。
For i = MinValue To MaxValue Step 3
MsgBox i & "列" '23→26→29
MsgBox i + 1 & "列" '24→27→30
Next
'方法3 2列おきを2回処理する。(順番不問の場合)
For i = MinValue To MaxValue Step 3
MsgBox i & "列" '23→26→29
Next
For i = MinValue + 1 To MaxValue Step 3
MsgBox i & "列" '24→27→30
Next
End Sub
|
|