7.3. Estrutura FOR – EACH – NEXT(4º EXEMPLO)

Mais uma atualização do curso VBA Excel


4º EXEMPLO

Vamos um pouquinho mais longe agora. Criaremos um algoritmo capaz de mudar o nome das planilhas usando o FOR-EACH-NEXT para localizar cada planilha na coleção WORKSHEETS. Depois de mudar os nomes, vamos exibi-los em uma MSGBOX.

Quando o FOR-EACH-NEXT seleciona um objeto, no caso deste exemplo uma planilha, podemos acessar as propriedades deste objeto e alterá-las. Neste código, vamos alterar a propriedade NAME das planilhas.

O bacana do nosso código será a possibilidade de inserirmos os nomes através de uma INPUTBOX, concedendo este direito ao usuário do sistema. Este conceito é extremamente importante e necessário ao programador VBA. Muitas vezes, você irá desenvolver pequenos aplicativos para seus colegas de trabalho, amigos e usuários pouco avançados em Excel e programação VBA. Desta forma é necessário entender a importância da interação com o usuário e a confecção de sistemas que possam ser utilizados por terceiras sem a necessidade de constantes intervenções do programador.

Vamos ao que interessa.

CÓDIGO PARA COPIAR

Sub ForEachNext4()

'Declaramos a variável que receberá a planilha.

Dim Planilha As Worksheet

    'Para cada planilha no no livro de trabalho aberto ou ativado, acessaremos a coleção planilhas

    For Each Planilha In ActiveWorkbook.Worksheets

    'Vamos selecionar planilha por planilha. Quando o LOOP rodar pela 1ª vez, ele selecionará a 1ª planilha,

    'no caso, Plan1.

    Planilha.Select

    'Após selecionar-mos a planilha, vamos dar um nome a ela. Para tanto, vamos usar uma INPUTBOX. É importante

    'lembrar, que estamos trabalhando ao nível do aplicativo, assim, o nome que você der a planilha, este será

    'o nome que ela terá à partir deste momento.

    Planilha.Name = InputBox("Introduza o nome que você quer dar a planilha", "INSERINDO PLANILHAS")

    Next

   

    'Agora é simples, criamos uma estrutura apenas para exibir o nome das planilhas.

    For Each Planilha In ActiveWorkbook.Worksheets

    Planilha.Select

    MsgBox "Nome da planilha: " & Planilha.Name

    Next

End Sub

Agora click em F5 para executar o código. A INPUTBOX será aberta.

Quando você clicar no botão OK o nome da planilha Plan1 passará a ser Daniel. O mesmo processo se repetirá por 3 vezes para que você digite o nome que quer dar às planilhas subseqüentes. Logo após serão exibidas 3 caixas de mensagens, cada uma apresentando o novo nome da planilha.

Perceba que a cada execução do LOOP, a planilha que terá o nome alterado será ativada, sendo possível visualizar o conteúdo da mesma.

OBS: Depois que fizer os testes do código, será necessário digitar os nomes antigos das  planilhas, sob pena dos códigos dos exemplos anteriores deste curso não funcionarem corretamente corretamente.


Para acessar o curso completo Clique aqui