Excel VBA - Zoom in Zoom out

[Luiz Roberti]

Olá,
Estou com uma dúvida, tenho a função:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$5" Or Target.Address = "$G$5" Then 'AQUI altere a celula c/ a Lista de validac.
ActiveWindow.Zoom = 125
Else
ActiveWindow.Zoom = 50
End If
End Sub

qual me retorna o zoom para 125 nas duas celulas definidas e retorna em 50 para as demais.

Gostaria de expandir essa selação para um conjunto de células bem maior, nao sei que função alterar ou onde alterar para conseguir isto.
OBS: Não conheço muito sobre VBA. A planilha que possuo tem seleção de dados e por possuir muitos dados a fonte fica pequena.

Grato.

[Midori]

@Luiz Roberti Para um intervalo maior você testar a seleção assim, p.ex para o range A1:A30

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim R As Range

    Set R = Intersect(Range("A1:A30"), Target)

    If R Is Nothing Then
        ActiveWindow.Zoom = 50
    Else
        ActiveWindow.Zoom = 125
    End If
End Sub

 

 

[Luiz Roberti]

34 minutos atrás, Midori disse:

@Luiz Roberti Para um intervalo maior você testar a seleção assim, p.ex para o range A1:A30

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim R As Range

    Set R = Intersect(Range("A1:A30"), Target)

    If R Is Nothing Then
        ActiveWindow.Zoom = 50
    Else
        ActiveWindow.Zoom = 125
    End If
End Sub

 

 

Muito obrigado, já me auxiliou com a dúvida.

Caso precisasse para mais de um intervalo ex: linhas intercaladas que precisassem zoom, como poderia inserir mais parâmetros de range?

[Midori]

@Luiz Roberti Para acrescentar p.ex C1:C20, a célula E5, a linha 40 toda e a coluna J,

Set R = Intersect(Range("A1:A30,C1:C20,E5,40:40,J:J"), Target)

Obs: Se a quantidade de intervalos entre vírgulas chegar no limite a macro vai falhar.

[Luiz Roberti]

4 minutos atrás, Midori disse:

@Luiz Roberti Para acrescentar p.ex C1:C20, a célula E5, a linha 40 toda e a coluna J,

Set R = Intersect(Range("A1:A30,C1:C20,E5,40:40,J:J"), Target)

Obs: Se a quantidade de intervalos entre vírgulas chegar no limite a macro vai falhar.

Muito obrigado!