퇴근하기전에 급하게 ... 정보
퇴근하기전에 급하게 ...
본문
Option Explicit
Dim k_key, k_value
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If k_key = 0 Then
k_value = 0
k_key = 1
Else
k_value = 1
k_key = 0
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If k_value = 1 Then
With Target.Interior
.Color = Cells(1, 1)
End With
End If
End Sub
추천
3
3
댓글 3개
늦게 퇴근하셨네요. 즐거운 주말 되세요~~
고수가 나타났다.... ㅎㅎㅎ
우왕 대다나나