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

お世話になっています。

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

コードに

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

と入力しました。

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

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

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2005/07/19 09:18

こんにちは。

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

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

お礼日時：2005/07/19 10:17