エクセルでセルをクリックすると“○”と入力

質問

エクセルでセルをクリック（またはダブルクリック）すると“○”と入力され、もう一度クリックすると空欄に戻るよう設定したいのですが、マクロを使わないとできないのでしょうか？マクロを使用せずセルの設定でもできますか？どちらでできるのでしょうか、またその方法も教えてください。

回答No.3

kobouzu_su

こんばんは。

例えば、セルＢ５をクリックして、"○"を表示する場合
アクティブセルがＢ５以外であれば、Ｂ５をクリックして、"○"を表示したり、消したりすることはできます。
が、アクティブセルがＢ５の状態でクリック（続けてセルＢ５をクリック）して、それはできません。
もしクリックのみでそれをしたければ、一旦、Ｂ５以外のセルをクリックしてアクティブセルをＢ５以外にしてから再度Ｂ５をクリックする方法になります。

以下のようにSelectionChangeイベントを使います。

●Ｂ１～Ｂ５　で実行する場合。
'------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　If Target.Count <> 1 Then Exit Sub
　　If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub

　　If Target.Value = "" Then
　　　　Target.Value = "○"
　　Else
　　　　Target.Value = ""
　　End If

End Sub
'--------------------------------------------------------

お礼

こんばんは。回答有難うございます。マクロにもいろいろな方法があるものだと感心してしまいました。マクロがどのようなものかを知ったばかりの初心者ですが、今後も勉強していきたいと思います。ありがとうございました。

回答No.2

zap35

マクロでやる方法です。エクセルではセルのクリックイベントは拾えません。ダブルクリックなら可能です

以下のマクロを「シート名タブ右クリック」→「コードの表示」で開く画面に貼り付けて、目的のセル範囲を修正して下さい（２行目です）
シートに戻り目的のセルをダブルクリックしてみてください

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const rng As String = "A1:A3" '処理対象のセル範囲
　If Not Application.Intersect(Target, Range(rng)) Is Nothing Then
　　If Target.Value = "" Then
　　　Target.Value = "○"
　　Else
　　　Target.ClearContents
　　End If
　End If
End Sub

お礼

ありがとうございました。無事できるようになりました。

回答No.1

ASIMOV

クリックだけでやるのは、マクロでないと出来ないと思いますが
「入力規則」を使えば、マウス操作だけで、出来るようになります

お礼

ありがとうございます。いろいろ試して見たいと思います。