みんなの「教えて（疑問・質問）」にみんなで「答える」Q&Aコミュニティ

こんばんは。

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

以下のように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 22:35:42

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

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

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:00:47

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

投稿日時 - 2007-04-13 21:48:51