테스트 사이트 - 개발 중인 베타 버전입니다

퇴근하기전에 급하게 ...

· 7년 전 · 1037 · 3

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개

늦게 퇴근하셨네요. 즐거운 주말 되세요~~
고수가 나타났다.... ㅎㅎㅎ
우왕 대다나나

게시판 목록

자유게시판

글쓰기

첫글

1개월 전
🐛 버그신고