足し算をマクロでする方法

質問

セルを選択しそこに１を足すというマクロを作り、ボタンで実行出来るようにしたいと思っています。
sub Add()
Range("A1") = Range("A1") + 1
end sub
というマクロを見つけたのですが、Ａ１のところをどのように変えたらいいのでしょうか？

回答No.4

marbin · ベストアンサー

アクティブセルに対して+1
する場合のサンプルです。

With ActiveCell
.Value = .Value + 1
End With

お礼

marbinさん、２パターンの回答ありがとうございます。
１つのセル、複数セル、両方とものパターンでやろうと思います。
無事解決しました。

回答No.3

marbin

複数のセルを選択している場合のサンプル
です。

Dim c As Range
If TypeName(Selection) <> "Range" Then Exit Sub
For Each c In Selection
With c
.Value = .Value + 1
End With
Next c

回答No.2

suz83238

下記でOKです。

Sub Add()
Selection.Value = Selection.Value + 1
End Sub

お礼

suz83238さん、迅速で分かりやすい回答ありがとうございます。
早速導入してみました。
無事解決しました。

回答No.1

marbin

選択セルは一つのセルですか？
複数のセルですか？