|
▼mako さん:
おはようございます。
詳しくというよりこれをWorksheetオブジェクト内に
そのままコピぺするだけで使える内容ですが・・・
後、範囲指定と消せる内容です。
Const VK_LBUTTON = &H1 '[LeftClick]
'User32ライブラリ定義
Private Declare Function GetAsyncKeyState Lib "User32.dll" ( _
ByVal vKey As Long _
) As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strfrom As String '範囲開始位置アドレス
Dim strto As String '範囲終了位置アドレス
'セルを複数選択した場合は無効
If Target.Count > 1 Then Exit Sub
'セル範囲
strfrom = "B6"
strto = "F15"
'範囲開始位置と終了位置比較
If (StrComp(strform, strto, 0) >= 0) Then
Exit Sub '開始位置と終了位置の範囲があってない
End If
If (Application.Intersect(Target, Range(strfrom & ":" & strto)) Is Nothing) Then
Exit Sub
End If
'左クリックされた時に入る処理
If GetAsyncKeyState(VK_LBUTTON) Then
If (Target.Text = "○") Then
Target.Value = "" '丸を消す
Else
Target.Value = "○" '丸をつける
End If
End If
End Sub
|
|