Como listar todos os livros abertos e alternar facilmente entre eles no Excel?
O Microsoft Excel permite-lhe abrir vários livros em simultâneo, mas alternar entre eles nem sempre é fácil. Por isso, pode ser útil listar todos os livros abertos numa única lista para alternar rapidamente entre eles. Neste artigo, mostramos-lhe como listar todos os livros abertos e navegar com facilidade no Excel.
Listar apenas todos os livros abertos com VBA
Listar todos os livros abertos e mudar facilmente para um livro com VBA
Listar todos os livros abertos e mudar facilmente para um livro com uma ferramenta incrível
Listar apenas todos os livros abertos com VBA
Nesta secção, vai aprender a utilizar um código VBA para listar todos os livros abertos no Excel.
1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo.
2. Em seguida, copie e cole o seguinte código VBA no editor de código.
VBA: listar todos os Nome da Pasta de Trabalho abertos no Excel
Sub ListWorkbooks()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Range("A1")
xNum1 = Application.Workbooks.Count
For i = 1 To xNum1
xNum2 = Application.Workbooks(i).Sheets.Count
WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
For j = 1 To xNum2
WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
Next
Next
End Sub3. Execute o código VBA premindo a tecla F5. Na caixa de diálogo Kutools for Excel, especifique uma célula para colocar a lista de livros e, em seguida, clique no botão OK. Veja a captura de ecrã:
Em seguida, são apresentados todos os livros abertos, juntamente com as respetivas folhas de cálculo.
Tem dificuldade em lidar com código VBA? Pode resolvê-lo com apenas alguns cliques através do terceiro método.
Listar todos os livros abertos e mudar facilmente para um livro com VBA
Se pretender listar todos os livros para alternar facilmente entre eles, experimente utilizar o VBA da seguinte forma:
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo.
2. Copie e cole o seguinte código VBA na janela do módulo que abriu.
Código VBA: listar todos os livros abertos e mudar para um livro
Sub SelectWB()
Dim xWBName As String
Dim xWb As Workbook
Dim xSelect As String
For Each xWb In Application.Workbooks
xWBName = xWBName & xWb.Name & vbCrLf
Next
xTitleId = "KutoolsforExcel"
xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
Application.Workbooks(xSelect).Activate
End Sub3. Prima a tecla F5 para executar o código. Em seguida, surge uma caixa de diálogo KutoolsforExcel com uma lista de todos os livros abertos. Para mudar para um determinado livro, introduza o respetivo nome da pasta de trabalho na caixa e clique no botão OK. Veja a captura de ecrã:
Listar todos os livros abertos e mudar facilmente para um livro com uma ferramenta incrível
Com a Navegação do Kutools para Excel, todos os livros abertos são listados automaticamente num painel, permitindo-lhe navegar facilmente entre eles. Basta clicar num dos livros abertos para ser imediatamente redirecionado para esse livro.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos