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

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

No.1 回答者： ASIMOV 回答日時： 2007/04/13 21:48

クリックだけでやるのは、マクロでないと出来ないと思いますが

「入力規則」を使えば、マウス操作だけで、出来るようになります

この回答へのお礼

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

お礼日時：2007/04/13 22:34

No.2 回答者： zap35 回答日時： 2007/04/13 22:00

マクロでやる方法です。

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

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

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

この回答へのお礼

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

お礼日時：2007/04/13 22:31

No.3 回答者： kobouzu_su 回答日時： 2007/04/13 22:35

こんばんは。

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

以下のように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
'--------------------------------------------------------
　
　

この回答へのお礼

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

お礼日時：2007/04/13 23:24