|
▼芸人 さん:
>>やりたいことはセルA1をクリックしたさい
>>A1が空白であれば〇を書き込み
>>なにか書かれていたら空白にするということをしたいと思います。
すでにコメントがありますが、シートには Clickイベントがないので、
[A1]セルがアクティブセルになったとき、
[A1]セルがダブルクリックされたとき
の2つのイベントで 代替する例です。
当該シートのモジュールに記述してください。
'--------------------------------------------- Sheet モジュール
'セルA1をクリックしたさい
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
CheckA1
End If
End Sub
'セルA1をダブルクリックしたさい
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
If Target.Address(0, 0) = "A1" Then
Cancel = True
CheckA1
End If
End Sub
Private Sub CheckA1()
Application.EnableEvents = False
With Range("A1")
If IsEmpty(.Value) Then '空白セルなら
.Value = "○" '〇を書き込み
Else
.ClearContents
End If
End With
Application.EnableEvents = True
End Sub
|
|