VBA 워크시트, 이벤트

이벤트를 이용한 워크시트 제어

[셀 변경시] - G셀의 값이 단종이면 F열의 값을 0으로 바꿔주는 프로시저

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim 표 As Range
    Set 표 = Range("A1").CurrentRegion

    If Target.Count = 1 Then
       // 현재표의 범위와 수정하고자 하는 범위가 같을 경우 (교집합, And조건)
        If Not Intersect(Target, 표.Columns(7)) Is Nothing Then            
            If Target.Value = "단종" Then        
                Target.Offset(, -1).Value = 0                
            End If        
        End If
    End If
End Sub

[시트 삭제시 삭제 경고 메시지 없애기]
 Application.DisplayAlerts = False  // 없애기
 Application.DisplayAlerts = True   // 살리기

[A4용지에 가로맞춰 인쇄하기] - 프린트마다 인쇄되는 방식이 다르기 때문에 넣어주면 유용함
Sub A4가로맞춰인쇄()
    With Worksheets("sample 1")
        With .PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
        End With        
        .PrintPreview        
    End With
End Sub