|
▼VBWASURETA さん:
本当にありがとうございました。
要求したとおりの指示が出せました。
今後ともよろしくお願いします。
>▼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
|
|