|
▼とく さん:
たとえば以下。
なお、指定領域内であっても、間違ったセルをダブルクリックして色を付けた。
しまった!!
という場合に、再度、そのセルをダブルクリックすれば色が消えるようにしてあります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myColor As Long
If Not Intersect(Target, Range("A1:A30")) Is Nothing Then
myColor = vbRed
ElseIf Not Intersect(Target, Range("B1:B30")) Is Nothing Then
myColor = vbBlue
ElseIf Not Intersect(Target, Range("C1:C30")) Is Nothing Then
myColor = vbGreen
End If
If myColor = 0 Then Exit Sub
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.Color = myColor
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub
|
|