Macro para repetir através de todas as folhas de cálculo num livro

Resumo

Este artigo contém uma Microsoft macro Visual Basic for Applications (procedimento Sub) que percorre todas as folhas de cálculo do livro activo. Esta macro também apresenta o nome de cada folha de cálculo.

Mais Informações

Microsoft fornece exemplos de programação apenas, a título sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Para tentar a macro de exemplo, siga estes passos:

1. Escreva o seguinte código de macro numa nova folha de módulo.

         Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub

2. Para executar a macro, posicione o ponto de inserção na linha onde se lê "Sub WorksheetLoop()" e prima F5.

A macro irá efectuar um ciclo através do livro e apresentar uma caixa de mensagem com um nome de folha de cálculo diferente sempre que for executada através do ciclo. Tenha em atenção que esta macro só apresentará os nomes de folha de cálculo; não apresentará os nomes de outros tipos de folhas do livro. Também é possível saltar através de todas as folhas de cálculo no livro utilizando um ciclo 'For Each'.

1. Introduza o código de macro seguinte numa nova folha de módulo.

         Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub

2. Para executar a macro, posicione o ponto de inserção na linha onde se lê "Sub WorksheetLoop2()" e prima F5.

Esta macro funciona idêntica à macro de WorksheetLoop, mas utiliza um tipo diferente de ciclo para processar todas as folhas de cálculo do livro activo.

Referências

Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo na Microsoft Knowledge Base:

163435 VBA: recursos de programação para Visual Basic for Applications

226118 OFF2000: recursos de programação para Visual Basic for Applications