엑사남 강의 14강 BeforeRightClick event

엑사남 강의 14강 BeforeRightClick event

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

'If ActiveSheet.ChartObjects.Count > 0 Then
'    ActiveSheet.ChartObjects.Delete
'End If

    If Target.Count > 1 Then '선택, 타겟한 셀의 개수가 1개 이상이라면'
        
        If Target.Cells(1, 1) <> "" Then '선택, 타겟한 셀들 중 첫행 & 첫열의 셀이 공백이 아니라면'
            
            Call chart01 'chart01함수를 실행해라. 호출구문'
            Cancel = True  '우클릭으로 샐행되는 기존의 기능(팝업생성)을 취소할거니? = 예'
            
        Else
            With ActiveSheet.ChartObjects 'ActiveSheet.ChartObjects 묶음
           If .Count > 0 Then
             .Delete
            End If
            End With
        End If
    
    
    End If

End Sub

14. BeforeRightClick Event.xlsm

0.02MB

https://www.youtube.com/watch?v=77w2--MBQPc&list=PLX_j6S8lDkZ_Wr0S9fGLX6utD_Uznj6Dg&index=14