Ir ao conteúdo
  • Cadastre-se

Excel VBA - Zoom in Zoom out


Ir à solução Resolvido por Midori,

Posts recomendados

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.

Link para o comentário
Compartilhar em outros sites

  • Solução

@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

 

 

Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

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!

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Como se tornar um desenvolvedor full-stack

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!