Como tornar o Excel aberto na primeira coluna do gráfico em vez de na extrema direita?

Question

Toda vez que eu abro uma planilha Excel muito grande, ela é aberta na extrema direita do gráfico (como a coluna Z, depois o espaço em branco, em vez do início (coluna A) do gráfico. Como posso alterar isso para mostrar coluna Primeiro?

    

Answer 1

Como o datatoo indicou, o último local da célula ativa tem influência sobre onde a pasta de trabalho é aberta. Se você deseja garantir que ele seja aberto em um determinado local, prefiro o ActivewWindow. ScrollIntoView . Porque na verdade não altera a seleção salva.

Private Sub Workbook_Open()
    ActiveWindow.ScrollIntoView 1, 1, 1, 1
End Sub

Isso irá rolar a parte superior esquerda do documento para o canto superior esquerdo da sua janela.

    

Answer 2

Normalmente, isso é resultado do último local da célula ativa quando o arquivo foi salvo antes de fechar. A menos que você tenha uma macro em execução no evento Workbook_Open que altere isso.

Se você não se importa com uma macro na pasta de trabalho, ou quer forçar isso, tente isso

Private Sub Workbook_Open()
Range("A1").Select
End Sub

    

Answer 3

Graças à datatoo, adicionei a linha sugerida: Range ("A1"). Selecione para um script que eu já estava usando para abrir a pasta de trabalho, e funciona perfeitamente para o descongelamento de painéis se a célula selecionada estiver dentro da área congelada que você deseja exibir. Obrigado!

Aqui está, para quem quer o roteiro inteiro. Ele unfilters a pasta de trabalho e, em seguida, dispara para uma célula selecionada.

NOTAS SOBRE O USO:

• Altere " F1 " para uma célula dentro do intervalo do que você deseja exibir abrir.
• Isso está sendo usado em uma tabela criada no Excel chamada "Tarefas".
• Altere " Tarefas " para o nome da sua tabela.

• É relevante repetir a linha de filtro automático, porque a primeira instância remove todos os filtros e a segunda instância os coloca de volta, mas sem nenhuma seleção.

  Sub Auto_Open()
  ActiveSheet.ListObjects("Tasks").Range.AutoFilter
  ActiveSheet.ListObjects("Tasks").Range.AutoFilter
  Range("F1").Select
  End Sub}