|
|
|
|
|
|
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngX As Range: Set rngX = Range("C3:G10")
'----------------------------------
'1st intersect
'----------------------------------
' Dim rngY As Range: Set rngY = Application.Intersect(Target, rngX)
' If rngY Is Nothing Then Exit Sub
'
' MsgBox "Inside"
'----------------------------------
' 2nd Areas.count
'----------------------------------
'If Application.Union(Target, rngX).Areas.Count = 2 Then Exit Sub
'----------------------------------
'3rd Row/column
'----------------------------------
Dim iRow As Long: iRow = Target.Row
Dim iCol As Long: iCol = Target.Column
If iRow < 3 Then Exit Sub
If iRow > 10 Then Exit Sub
If iCol < 3 Then Exit Sub
If iCol > 7 Then Exit Sub
' Cell 안쪽으로 못 들어가기 즉 더블클릭 효과 해제
Cancel = True
MsgBox "Inside"
End Sub
제 YouTube를 소개합니다.
'=====================================================
Excel,VBA,Google SpreadSheet 등 다양한 자료가 있습니다.
=====================================================
https://www.youtube.com/channel/UChR2YTnlpU9OVfLyH_09YeA
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-07(03:16)
최종수정일 : 2019-04-07(03:16) |
|
|
|
|