【Excel初心者です】複数セルに同一コマンドを実行したい

質問

お世話になっています。

Excel2003のVBAでコマンドボタンを貼り付け、

コードに

Private Sub CommandButton1_Click()
ActiveCell = ActiveCell + 1
End Sub

と入力しました。

この状態で、現在アクティブなセルに+1の値を入れることができるのですが、選択中のセルすべてに+1の値を入れることは可能でしょうか？

恐れ入りますがご教授願います。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

たぶん、こういうことかな？

For Each c In Selection
If VarType(c) = vbDouble Then
　c.Value = c.Value + 1
End If

解説
If VarType(c) = vbDouble Then
これは、文字の上に書き込んでしまわないように、数値のみにするためです。

お礼

ご回答ありがとうございます。
空のセルには無効みたいでしたので多少修正したらやりたいことができるようになりました。
どうもありがとうございました。

Private Sub CommandButton1_Click()

For Each c In Selection
c.Value = c.Value + 1
Next

End Sub