ＶＢＡ Ｆｏｒ Eachの使い方

質問

For Each x In Range("A1:G1")
このようなコードにおいて、Ａ１からＧ１の全てに対して処理を行うのではなく、Ａ１とＣ１とＥ１とＧ１に対して処理を行い、Ｂ１とＤ１とＦ１は飛ばして処理をしないようにするにはどうすれば良いですか？

回答No.1

popesyu · ベストアンサー

やり方は色々あるけど、例えば列数で処理分けする場合
---
For Each x In Range("A1:G1")
　Select Case x.Column
　　Case 1, 3, 5, 7
　　　MsgBox ("○")
　　Case 2, 4, 6
　　　MsgBox ("×")
　End Select
Next

お礼

回答ありがとうございます。

STEP～とかで、一つ飛びなんてことは出来ないのですね。

回答No.3

imogasi

例データA1:C3
1 2 3
4 5 6
7 8 9
コード
Sub test03()
Dim cl As Range
For Each cl In Range("A1,c1,a3")
MsgBox cl
Next
End Sub
実行すると
１，３，７が表示されます。
ご参考に。

お礼

回答ありがとうございます。

STEP～とかで、一つ飛びなんてことは出来ないのですね。

回答No.2

BLUEPIXY

For Each x In Range("A1,C1,E1,G1")
'処理
Next
とか
flag = True
For Each x In Range("A1:G1")
If flag Then
'処理
End If
flag = Not flag
Next
とか

お礼

回答ありがとうございます。

STEP～とかで、一つ飛びなんてことは出来ないのですね。