VBA 足し算

質問

VBAの初心者です。
・Sheet1のA2に入力された値を『+1』していくにはどうしたらいいでしょうか

回答No.2

zap35 · ベストアンサー

質問はもう少し「何をしたい」のか明確に書くべきですよ。
曖昧な質問には曖昧な回答しか出せません。

ともあれ、Sheet1のA2セルの値を＋１（インクリメント）するだけならこんなマクロでしょう。元の値が数値でない場合も想定してIsNumeric関数で数値かどうかのチェックを行っています。

Sub Macro1()
　If IsNumeric(Sheets("Sheet1").Range("A2").Value) Then
　　Sheets("Sheet1").Range("A2").Value = Sheets("Sheet1").Range("A2").Value + 1
　End If
End Sub

お礼

出来ました！
ありがとうございました。

回答No.1

n-jun

・足した後にどうしたいのか？（結果を表示する、変数に入れるなど）
・『＋１』していくとは、繰り返すという意味ですか？

補足

そうです。
つねに+１にしていきたいのですが・・