Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4134 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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回だけやってほしい動作を毎回やってしまいます。
>根本的に間違っているようなのですが、どうしたらいいのかわかりません。
>どなたかアドバイスいただけませんでしょうか？よろしくお願いします。

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

１０回ごとに違う動作なら、
Select Case i
　　 Case 10
　　　　xxxx
　　 Case 20
　　　 xxxxxx
End Select
といった感じではどうですか？
【58332】Re:ループ中、指定回数毎に特定動作をさ...
お礼  玉砕中  - 08/10/20(月) 10:29 -
引用なし
パスワード
   ▼ハチ さん：
Modでの取り出しが上手くいかなかったので、直接Case指定でなんとかなりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4134 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free