Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3901 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59586】ループ中特定周期毎にコマンドを実行させたい （・ｘ・） 08/12/24(水) 10:38 質問[未読]
【59587】Re:ループ中特定周期毎にコマンドを実行さ... ひげくま 08/12/24(水) 10:58 発言[未読]
【59591】Re:ループ中特定周期毎にコマンドを実行さ... （・ｘ・） 08/12/24(水) 12:12 発言[未読]
【59597】Re:ループ中特定周期毎にコマンドを実行さ... ひげくま 08/12/24(水) 13:54 発言[未読]
【59599】Re:ループ中特定周期毎にコマンドを実行さ... （・ｘ・） 08/12/24(水) 14:40 発言[未読]
【59598】Re:ループ中特定周期毎にコマンドを実行さ... SS 08/12/24(水) 14:34 発言[未読]
【59600】Re:ループ中特定周期毎にコマンドを実行さ... （・ｘ・） 08/12/24(水) 14:44 お礼[未読]
【59588】Re:ループ中特定周期毎にコマンドを実行さ... SS 08/12/24(水) 11:01 発言[未読]
【59593】Re:ループ中特定周期毎にコマンドを実行さ... （・ｘ・） 08/12/24(水) 12:18 発言[未読]
【59589】Re:ループ中特定周期毎にコマンドを実行さ... にぃ 08/12/24(水) 11:12 発言[未読]
【59592】Re:ループ中特定周期毎にコマンドを実行さ... （・ｘ・） 08/12/24(水) 12:17 発言[未読]
【59586】ループ中特定周期毎にコマンドを実行させ...
質問  （・ｘ・）  - 08/12/24(水) 10:38 -
引用なし
パスワード
   For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合

v = カウント中のループ回数 Mod 10
　 If v = 指定周期数 Then
　　 特定処理
　 Else

こうすると、１０回に１回しかやってくれません
他に適切な構文がありそうなのですが、わからない状態です

おバカな質問で申し訳ありませんが、どなたかアドバイスお願いします
【59587】Re:ループ中特定周期毎にコマンドを実行...
発言  ひげくま  - 08/12/24(水) 10:58 -
引用なし
パスワード
   ▼（・ｘ・） さん：
>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>
>v = カウント中のループ回数 Mod 10
>　 If v = 指定周期数 Then
>　　 特定処理
>　 Else
>
>こうすると、１０回に１回しかやってくれません

なぜ、Mod 10にしているのでしょうか？
この10にはどんな意味があるのでしょうか？

それが解れば、どうすれば良いのかも解ると思いますよ。
【59588】Re:ループ中特定周期毎にコマンドを実行...
発言  SS  - 08/12/24(水) 11:01 -
引用なし
パスワード
   ▼（・ｘ・） さん：

FOR文を重ねたら如何でしょうか？
例）
Sub test()
　　Dim i As Integer, j As Integer
　　For i = 1 To 2
　　　　For j = 1 To 3
　　　　　　'処理１
　　　　　　MsgBox 3 * (i - 1) + j
　　　　Next j
　　　　'処理２
　　　　MsgBox i & "回目"
　　Next i
End Sub
こんな感じです。

>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>
>v = カウント中のループ回数 Mod 10
>　 If v = 指定周期数 Then
>　　 特定処理
>　 Else
>
>こうすると、１０回に１回しかやってくれません
>他に適切な構文がありそうなのですが、わからない状態です
>
>おバカな質問で申し訳ありませんが、どなたかアドバイスお願いします
【59589】Re:ループ中特定周期毎にコマンドを実行...
発言  にぃ  - 08/12/24(水) 11:12 -
引用なし
パスワード
   ▼（・ｘ・） さん：
こんにちは！

SSさんとほぼ同じですがこんなのどうでしょう？

途中で止めたかった場合Ctrl + Break を押してください。

Sub test0()

　　Dim i As Integer
　　Dim j As Integer
　　
　　For i = 1 To 100 Step 10
　　　　For j = i To i + 8
　　　　　　MsgBox j & "回目"
　　　　Next
　　　　
　　　　MsgBox j & "回目　10の倍数"

　　Next

End Sub

Sub test1()

　　Dim i As Integer
　　Dim j As Integer
　　
　　For i = 1 To 30 Step 3
　　　　For j = i To i + 1
　　　　　　MsgBox j & "回目"
　　　　Next
　　　　
　　　　MsgBox j & "回目　3の倍数"

　　Next

End Sub
【59591】Re:ループ中特定周期毎にコマンドを実行...
発言  （・ｘ・）  - 08/12/24(水) 12:12 -
引用なし
パスワード
   ▼ひげくま さん：
Mod 10 にしている理由は、ループ回数の下１桁を求めようとしたからです。
ループ回数を１０で割ったら簡単に下１桁が出ますから…
他に方法が思いつかなかったので、何かいい方法があれば教えて下さい。

>▼（・ｘ・） さん：
>>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>>
>>v = カウント中のループ回数 Mod 10
>>　 If v = 指定周期数 Then
>>　　 特定処理
>>　 Else
>>
>>こうすると、１０回に１回しかやってくれません
>
>なぜ、Mod 10にしているのでしょうか？
>この10にはどんな意味があるのでしょうか？
>
>それが解れば、どうすれば良いのかも解ると思いますよ。
【59592】Re:ループ中特定周期毎にコマンドを実行...
発言  （・ｘ・）  - 08/12/24(水) 12:17 -
引用なし
パスワード
   ▼にぃ さん：
ありがとうございます。
組み込んで試してみることにします。

>▼（・ｘ・） さん：
>こんにちは！
>
>SSさんとほぼ同じですがこんなのどうでしょう？
>
>途中で止めたかった場合Ctrl + Break を押してください。
>
>Sub test0()
>
>　　Dim i As Integer
>　　Dim j As Integer
>　　
>　　For i = 1 To 100 Step 10
>　　　　For j = i To i + 8
>　　　　　　MsgBox j & "回目"
>　　　　Next
>　　　　
>　　　　MsgBox j & "回目　10の倍数"
>
>　　Next
>
>End Sub
>
>Sub test1()
>
>　　Dim i As Integer
>　　Dim j As Integer
>　　
>　　For i = 1 To 30 Step 3
>　　　　For j = i To i + 1
>　　　　　　MsgBox j & "回目"
>　　　　Next
>　　　　
>　　　　MsgBox j & "回目　3の倍数"
>
>　　Next
>
>End Sub
【59593】Re:ループ中特定周期毎にコマンドを実行...
発言  （・ｘ・）  - 08/12/24(水) 12:18 -
引用なし
パスワード
   ▼SS さん：
ありがとうございます。
にぃさんのアドバイスと平行して試してみようと思います。

>▼（・ｘ・） さん：
>
>FOR文を重ねたら如何でしょうか？
>例）
>Sub test()
>　　Dim i As Integer, j As Integer
>　　For i = 1 To 2
>　　　　For j = 1 To 3
>　　　　　　'処理１
>　　　　　　MsgBox 3 * (i - 1) + j
>　　　　Next j
>　　　　'処理２
>　　　　MsgBox i & "回目"
>　　Next i
>End Sub
>こんな感じです。
>
>>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>>
>>v = カウント中のループ回数 Mod 10
>>　 If v = 指定周期数 Then
>>　　 特定処理
>>　 Else
>>
>>こうすると、１０回に１回しかやってくれません
>>他に適切な構文がありそうなのですが、わからない状態です
>>
>>おバカな質問で申し訳ありませんが、どなたかアドバイスお願いします
【59597】Re:ループ中特定周期毎にコマンドを実行...
発言  ひげくま  - 08/12/24(水) 13:54 -
引用なし
パスワード
   >Mod 10 にしている理由は、ループ回数の下１桁を求めようとしたからです。
>ループ回数を１０で割ったら簡単に下１桁が出ますから…

なるほど。
それは良い方法だと思います。

ただ、ループ回数の下1桁を利用して、指定周期ごとに処理を行うのは無理があります。
下1桁をもとめるのと、指定周期ごとに処理を行うのは、独立して考えたほうが良いですね。

下1桁とか考えないで、「指定周期ごとに処理を行う」ということだけを考えた場合、どうすれば良いのかを考えてみてください。
そしてそのあとで、「指定周期ごとの処理」の中で、ループ回数の下1桁を求めるようにしてはどうでしょうか？
【59598】Re:ループ中特定周期毎にコマンドを実行...
発言  SS  - 08/12/24(水) 14:34 -
引用なし
パスワード
   ▼（・ｘ・） さん：

先の回答でも良いと思うのですが
Modを使った周期管理方法ではこんな感じだと思います。

v = カウント中のループ回数 Mod 指定周期数
　 If v = 0 Then
　　 特定処理
　 Else


>▼ひげくま さん：
>Mod 10 にしている理由は、ループ回数の下１桁を求めようとしたからです。
>ループ回数を１０で割ったら簡単に下１桁が出ますから…
>他に方法が思いつかなかったので、何かいい方法があれば教えて下さい。
>
>>▼（・ｘ・） さん：
>>>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>>>
>>>v = カウント中のループ回数 Mod 10
>>>　 If v = 指定周期数 Then
>>>　　 特定処理
>>>　 Else
>>>
>>>こうすると、１０回に１回しかやってくれません
>>
>>なぜ、Mod 10にしているのでしょうか？
>>この10にはどんな意味があるのでしょうか？
>>
>>それが解れば、どうすれば良いのかも解ると思いますよ。
【59599】Re:ループ中特定周期毎にコマンドを実行...
発言  （・ｘ・）  - 08/12/24(水) 14:40 -
引用なし
パスワード
   ▼ひげくま さん：
ありがとうございます。
SSさんがModを使った方法を提示していただけたので、それを軸に組んでみようと思います。
指定周期ごとでのやり方も考えてみたいと思います。

>>Mod 10 にしている理由は、ループ回数の下１桁を求めようとしたからです。
>>ループ回数を１０で割ったら簡単に下１桁が出ますから…
>
>なるほど。
>それは良い方法だと思います。
>
>ただ、ループ回数の下1桁を利用して、指定周期ごとに処理を行うのは無理があります。
>下1桁をもとめるのと、指定周期ごとに処理を行うのは、独立して考えたほうが良いですね。
>
>下1桁とか考えないで、「指定周期ごとに処理を行う」ということだけを考えた場合、どうすれば良いのかを考えてみてください。
>そしてそのあとで、「指定周期ごとの処理」の中で、ループ回数の下1桁を求めるようにしてはどうでしょうか？
【59600】Re:ループ中特定周期毎にコマンドを実行...
お礼  （・ｘ・）  - 08/12/24(水) 14:44 -
引用なし
パスワード
   ▼SS さん：
ありがとうございます。
Modで割った後どの数字を指定すればいいか分からなかったので10で割ってから考えていたんです。
0で試してみることにします。

>▼（・ｘ・） さん：
>
>先の回答でも良いと思うのですが
>Modを使った周期管理方法ではこんな感じだと思います。
>
>v = カウント中のループ回数 Mod 指定周期数
>　 If v = 0 Then
>　　 特定処理
>　 Else
>
>
>>▼ひげくま さん：
>>Mod 10 にしている理由は、ループ回数の下１桁を求めようとしたからです。
>>ループ回数を１０で割ったら簡単に下１桁が出ますから…
>>他に方法が思いつかなかったので、何かいい方法があれば教えて下さい。
>>
>>>▼（・ｘ・） さん：
>>>>For〜Next構文の最中、たとえばループ数回ごとに特定の処理をさせたい場合
>>>>
>>>>v = カウント中のループ回数 Mod 10
>>>>　 If v = 指定周期数 Then
>>>>　　 特定処理
>>>>　 Else
>>>>
>>>>こうすると、１０回に１回しかやってくれません
>>>
>>>なぜ、Mod 10にしているのでしょうか？
>>>この10にはどんな意味があるのでしょうか？
>>>
>>>それが解れば、どうすれば良いのかも解ると思いますよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3901 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free