08/10/17 11:39:21
>>556
あくまで自分ならだが
For I = 1 To 1000
'「基本作業」
a = I Mod 10
Select Case a
Case 1
'「選択作業１」
Case 2, 3
'「選択作業２」
End Select
Next I
といった感じにする
08/10/17 11:39:21
>>556
あくまで自分ならだが
For I = 1 To 1000
'「基本作業」
a = I Mod 10
Select Case a
Case 1
'「選択作業１」
Case 2, 3
'「選択作業２」
End Select
Next I
といった感じにする