コマンドボタン

質問

こんにちは。
エクセル2007を使用しています。
コマンドボタンを押すと選択したセルに○が入るようにしてみたのですが複数選択すると最後に選択したセルにしか○が入りません。
選択したセル全てに○を入れるにはどのように変更すればよいのでしょうか？

Private Sub CommandButton1_Click()
ActiveCell.FormulaR1C1 = "○"
End Sub

お手数おかけしますがご返答お願いいたします。

回答No.2

imogasi

Private Sub CommandButton1_Click()
Selection = "○"
End Sub
Activecellは１つのシートに１つしかないから質問のようなのはダメ。
使い方はCTRLを押したままで、複数セルを選択するためクリックし、コマンドボタンをクリック。
選択セルが全て○になる。
ーーー
Private Sub CommandButton1_Click()
Dim cl As Range
For Each cl In Selection
If cl = "○" Then
cl = ""
Else
cl = "○"
End If
Next
End Sub
これは質問の機能拡張版です。
回転式値セットと抹消をします。

お礼

ありがとございます。
空欄というボタンも作ってましたので一つのボタンでできるようになり便利になりました。
ほんとにありがとうございました。

回答No.1

YSNR-HRN

ActiveCellではなくSelectionでいけると思います。

お礼

できました。
ありがとうございました。