Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4121 / 13644 ツリー ←次へ | 前へ→

【58306】ループ中、指定回数毎に特定動作をさせるには? 玉砕中 08/10/17(金) 15:19 質問[未読]
【58307】Re:ループ中、指定回数毎に特定動作をさせ... ハチ 08/10/17(金) 15:40 発言[未読]
【58332】Re:ループ中、指定回数毎に特定動作をさせ... 玉砕中 08/10/20(月) 10:29 お礼[未読]

【58306】ループ中、指定回数毎に特定動作をさせる...
質問  玉砕中  - 08/10/17(金) 15:19 -

引用なし
パスワード
   For〜Nextのループ中に、ループ10回ごとに1回だけ別の操作をさせたいんです。

For I = 1 To 2000
  '基本のループ操作

  a = Right(I, 2)
    If a = 1 Then
    '10回目にだけ行う操作
    ElseIf a = 2 Then
    '20回目にだけ行う操作
      ↓
      中略
      ↓
    ElseIf a = 0 Then
    '100回目にだけ行う操作
    Else
    End If

Next I

こうすると、10回に1回だけやってほしい動作を毎回やってしまいます。
根本的に間違っているようなのですが、どうしたらいいのかわかりません。
どなたかアドバイスいただけませんでしょうか?よろしくお願いします。

【58307】Re:ループ中、指定回数毎に特定動作をさ...
発言  ハチ  - 08/10/17(金) 15:40 -

引用なし
パスワード
   ▼玉砕中 さん:

>こうすると、10回に1回だけやってほしい動作を毎回やってしまいます。
>根本的に間違っているようなのですが、どうしたらいいのかわかりません。
>どなたかアドバイスいただけませんでしょうか?よろしくお願いします。

10回毎に同じ動作なら、
If i Mod 10 = 0 Then
とか。

10回ごとに違う動作なら、
Select Case i
   Case 10
    xxxx
   Case 20
    xxxxxx
End Select
といった感じではどうですか?

【58332】Re:ループ中、指定回数毎に特定動作をさ...
お礼  玉砕中  - 08/10/20(月) 10:29 -

引用なし
パスワード
   ▼ハチ さん:
Modでの取り出しが上手くいかなかったので、直接Case指定でなんとかなりました。
ありがとうございました。

4121 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free