[[20190322143131]]　『1、3、5、・・・とカウントしたい』（ラーメン万）　ページの最後に飛ぶ

『1、3、5、・・・とカウントしたい』（ラーメン万）

初歩的なことかもしれませんが上手くカウントにないのでお教えください。

Sub Print_a()

    Range("H5").Value = 0
    For i = 1 To 10
        Range("H5").Value = Range("H5").Value + i
        If MsgBox(i & "枚目 : " & Range("I9").Value, vbOKCancel) = vbCancel Then
            Exit For
        End If
    Next i
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

H5セルに加算するのではなく、以下のようにしては？

    Range("H5").Value = i * 2 - 1
（???） 2019/03/22(金) 14:47

???さんがおっしゃるようにH5セルの値に加算するんじゃなくて、単純にStep 2　にして、変数「i」の値をH5に出力するようにしてみたらどうでしょう？

 Sub Print_a() 
    Range("H5").Value = 0
    For i = 1 To 10　Step 2
        Range("H5").Value = i
        If MsgBox(i & "枚目 : " & Range("I9").Value, vbOKCancel) = vbCancel Then
            Exit For
        End If
    Next i
 End Sub

（もこな２） 2019/03/22(金) 15:01

???さん
おかげさまでうまく動きました。
明日の仕事から利用しますね。
ありがとうございました。

（ラーメン万） 2019/03/22(金) 15:03

もこな２さん
そうですね、Stepが最適ですね。
ありがとうございました。

（ラーメン万） 2019/03/22(金) 15:06

 >For i = 1 To 10　Step 2
 とするのであれば
 >For i = 1 To 10　
 の10と
 >MsgBox(i & "枚目 :
 のi部分も変更しなければならないのでは？
（ねむねむ） 2019/03/22(金) 15:09

コメント返信：

[ 一覧(最新更新順) ]

[[20190322143131]] 『1、3、5、・・・とカウントしたい』（ラーメン万） ページの最後に飛ぶ

[[20190322143131]]　『1、3、5、・・・とカウントしたい』（ラーメン万）　ページの最後に飛ぶ