tăng front tự động cho Blog + website

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lZoom As Long
    Dim lZoomDV As Long
    Dim lDVType As Long
    lZoom = 100
    lZoomDV = 150
    lDVType = 0
    Application.EnableEvents = False
    On Error Resume Next
    lDVType = Target.Validation.Type
    On Error GoTo exitHandler
    If lDVType <> 3 Then
        With ActiveWindow
            If .Zoom <> lZoom Then
                .Zoom = lZoom
            End If
        End With
    Else
        With ActiveWindow
            If .Zoom <> lZoomDV Then
                .Zoom = lZoomDV
            End If
        End With
    End If
exitHandler:
    Application.EnableEvents = True
    Exit Sub
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim lZoom As Long
  Dim lZoomDV As Long
  Dim lDVType As Long
  lZoom = 100
  lZoomDV = 120
  lDVType = 0

  Application.EnableEvents = False
  On Error Resume Next
  lDVType = Target.Validation.Type
 
    On Error GoTo errHandler
    If lDVType <> 3 Then
      With ActiveWindow
        If .Zoom <> lZoom Then
          .Zoom = lZoom
        End If
      End With
    Else
      With ActiveWindow
        If .Zoom <> lZoomDV Then
          .Zoom = lZoomDV
        End If
      End With
    End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub
errHandler:
  GoTo exitHandler
End Sub