| |
▼MIKA さん：
繰り返す処理に、一定の間隔になるような法則性を見つけることがコツです。
Sub Macro1()
Dim i As Long
Const MinValue = 23
Const MaxValue = 30
'方法１ ３列に１回は処理しない。
For i = MinValue To MaxValue
If (i - (MinValue - 1)) Mod 3 > 0 Then MsgBox i & "列"
'23→24→(25)→26→27→(28)→29→30 ()の列は処理されない
Next
'方法２ ２列おきに２列ずつ処理する。
For i = MinValue To MaxValue Step 3
MsgBox i & "列" '23→26→29
MsgBox i + 1 & "列" '24→27→30
Next
'方法３ ２列おきを２回処理する。(順番不問の場合)
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
