Como listar todas as fórmulas no Excel?
Normalmente, no Excel, conseguimos exibir rapidamente as fórmulas nas células, mas o Excel não oferece uma funcionalidade nativa para listar todas as fórmulas de uma folha de cálculo. Listar todas as fórmulas pode ajudá-lo a manter um registo claro dos valores das células juntamente com as respetivas fórmulas reais. A seguir, explico como criar um código VBA para resolver este problema.
Listar todas as fórmulas de uma folha de cálculo com código VBA
Listar todas as fórmulas de uma folha de cálculo com código VBA
O código VBA seguinte permite-lhe listar as fórmulas de uma seleção ou de uma folha de cálculo inteira. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 e será aberta a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Listar todas as fórmulas de uma folha de cálculo
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de diálogo a solicitar que selecione um intervalo ou a folha de cálculo completa cujas fórmulas pretende listar, conforme ilustrado na imagem:
4. Depois, clique em OK e as fórmulas da sua seleção serão imediatamente listadas numa nova folha de cálculo à frente da folha ativa, com as informações do endereço da célula, da fórmula e do valor, tal como mostrado na imagem seguinte:
Artigos relacionados:
Como converter fórmulas em texto no Excel?
Como converter cadeias de texto em fórmulas no Excel?
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