Baixe o app para aproveitar ainda mais
Prévia do material em texto
Macros Construção de Base de Dados Utilizando Macros Definição da Planilha • Crie em uma folha em branco o layout de planilha demonstrado em seguida. Procure manter fielmente os mesmos endereços de células. • A planilha seguinte é utilizada como uma base de dados para o gerenciamento de informações relacionadas ao treinamento de funcionários de uma empresa. • Outro detalhe a ser considerado é que todas as funções de trabalho da planilha são executadas por macros, portanto, digite uma planilha como a mostrada em seguida. Área de Recepção dos Dados Com os princípios básicos de montagem de macros, é criada uma macro que faz o cadastramento dos dados na Base de Dados. Para que seja possível efetuar a entrada de dados, é necessário criar a área de Recepção de dados, pois eles não podem ser inseridos diretamente na área de Base de Dados. Procedimento: A primeira etapa é criar a área de Recepção, que deve ser, na verdade, uma área com os nomes dos campos da Base de Dados. Selecione a faixa de células A8:F8 e efetue a cópia. Em seguida, posicione o cursor na célula I3 e execute a colagem. Formate a célula J4 no formato de data dd/mm/aa e centralize o texto. Formate a célula N4 com formato numérico com duas casas decimais e separador de milhares e centralize o texto. Digite na célula I2: Área de Recepção de Dados Nas células I4, J4, K4, L4, M4, e N4 são atribuídos nomes de referência para serem utilizados posteriormente pela macro de cadastramento. É claro que é possível usar o endereço da célula, mas nomeando fica mais fácil para lembrar depois. Para atribuir nome a uma célula existem dois procedimentos. Para o primeiro procedimento posicione o cursor na célula desejada, no caso I4, e proceda à execução do comando: • Guia: Fórmulas • Grupo: Nomes Definidos • Botão: Definir Nomes Para definir os nomes das células, lembre-se de que são padronizados. Veja na Tabela a seguir: Digite o nome da célula no campo Nome: Mantenha o campo Escopo: como Pasta de Trabalho Acione o Botão OK Célula Nome Atribuído I4: EntraCurso J4: EntraData K4: EntraParticipante L4: EntraDepto M4: EntraEmpresa N4: EntraCusto I4 J4 K4 L4 M4 N4 Macro para Recepção de Dados Após ser definida o nome de cada célula, será então preparada a macro que fará a recepção dos dados e os armazenará nas células situadas a partir da célula I4:. Procedimento Execute o comando: Guia: Desenvolvedor Grupo: Código Botão: Visual Basic Para abrir o editor em que a macro de cadastramento será montada , execute o comando: - Inserir - Módulo Comece a digitar os códigos neste formulário Veja a digitação completa dos códigos Com a Macro Codificada, Execute o comando no editor VBA Ou <F5> para que a Macro seja Executada. Executar Executar Sub/UserForm Surge a seguinte caixa de diálogo Para este teste digite os Registros Seguintes: • Curso: Microsoft Office Excel 2010 – Avançado • Data: 25/08/10 • Participante: Sandra Alves Toledo • Departamento: Auditoria • Empresa: Magnum Informática • Custo: 750 Preencha os dados solicitados, verificando no final se eles são inseridos corretamente na Área de Recepção de Dados. • Observação Veja como ficou a planilha com os dados registrados na área de recepção de dados. Não Utilize o botão Cancelar das caixas de macro, pois não é feito o seu tratamento de cancelamento com a instrução If...Then. Se esse botão for usado, é inserido nas células o valor False. Mais adiante a forma de entrada dessa planilha é alterada para um recurso mais sofisticado. Macro de Transporte de Dados Elaborada a macro de Recepção é necessário transportar os dados para área de Base de Dados. Esse trabalho é necessário, pois ele não pode ser feito de forma direta. Para inserir o registro na área de Base de Dados, primeiramente é necessário copiar as informações da área de Recepção para a Base de Dados. Para realizar esse procedimento, primeiramente vamos renomear a última célula da primeira coluna, ou seja, a célula A1048576 com o nome Fim. PROCEDIMENTO Posicione o cursor na célula A1048576 para atribuir um nome a ela, no caso Fim. Proceda como orientado anteriormente para colocar nomes em células. Volte para a célula A1. Na planilha cadastro, execute o comando: Guia: Desenvolvedor Grupo: Código Botão: Visual Basic Agora realize o seguinte procedimento: Guia: inserir Opção: Módulo Digite o código a seguir Feitas as devidas alterações, volte à planilha para testar o funcionamento da nova versão da Macro Transporte. Execute a macro Recepção, informando o seguinte registro. • Curso: Microsoft Office Excel 2010 – Básico • Data: 25/08/10 • Participante: José Carlos Pereira • Departamento: Contabilidade • Empresa: Rotram Associados • Custo: 450 Execute a macro de transporte com a tecla de atalho <Ctrl> + <Shift> + <T> Macro para Cadastro dos Dados Anteriormente foram desenvolvidas duas macros, uma para armazenar um registro na área de recepção e outra para transferir os registros para a Base de Dados . É notório que se torna extremamente trabalhoso executar as duas macros todas as vezes que se deseja cadastrar um registro. A solução para esse problema é uma macro que faça a chamada das outras duas. O recurso que consiste em uma macro chamar outra é denominado, em programação, Sub-rotina. Para trabalhar com sub-rotina, é necessário criar uma macro com o nome Cadastra, que primeiramente execute a macro Recepção e depois execute a macro Transporte. Posicione-se no editor do Visual Basic e execute o comando: • Inserir • Módulo Escreva o código seguinte: (próximo slid) Volte a planilha e execute a macro Cadastra, digitando os dados para o registro seguinte: • Curso: Microsoft Office Word 2010 – Básico • Data: 25/09/10 • Participante: José Carlos Pereira • Departamento: Contabilidade • Empresa: Rotram Associados • Custo: 400 • Observe que o resultado foi satisfatório! Continue cadastrando os seguintes registros: • Curso: Microsoft Office Word 2010 – Básico • Data: 25/09/10 • Participante: Sandra Alves de Toledo • Departamento: Auditoria • Empresa: Magnum Informática • Custo: 400 • Curso: Microsoft Office Word 2010 – Básico • Data: 25/09/10 • Participante: Fernando Miguel • Departamento: Marketing • Empresa: Phoenix Imobiliário • Custo: 400 Macro Para Ordenar Dados Atualmente, a Base de Dados possui cinco registros, os quais podem já serem ordenados de várias formas. As macros seguintes têm a finalidade de efetuar quatro classificações dos dados da planilha proposta, em ordem de Curso, Data, Participante, e Relatório (Forma de ordenação que envolve vários campos, tais como: Empresa em ordem crescente com os departamentos também em ordem crescente e os participantes em ordem decrescente) com a utilização de macros. - Antes de iniciar o desenvolvimento das macros de ordenação, é necessário estabelecer o nome de cada uma e a tecla de atalho que vai acioná-la, para não haver confusão durante o procedimento. Descrição Nome da Macro Tecla de Atalho Classifica Curso SortCurso <CTRL> + <c> Classifica Data SortData <CTRL> + <d> Classifica Participante SortParticipante <CTRL> + <p> Classifica Empresa, Departamento e Participante Sort Relatório <CTRL> + <r> • Para escrever as próximas macros, posicione-se no editor do Visual Basic, execute o comando Inserir/Módulo e escreva as quatro macros apresentadas a seguir: Classifica Curso: SortCurso • Essa Macro tem por objetivo colocar os dados da planilha em ordem crescente de curso. • Para definir a tecla de atalho <Ctrl> + <c> Volte para a planilha, a partir da guia Exibição acione o botão Macros em Macros e escolha a opção Exibir Macros. Selecione a macro SortCurso e acione o botão Opções. Defina a letra “c” como atalho e acione para finalizar o botão OK e depois cancelar. • Retorne para o editor de Macros. Acione o botão Opções Acione para finalizar o botão OK Acione o botão Cancelar e retorne para o editor de macros • Classifica Data: SortData • Essa Macro tem por objetivo colocar os dados da planilha em ordem decrescente de data. • Para definir a tecla de atalho <Ctrl> + <d> Volte para a planilha, a partir da guia Exibição acione o botão Macros em Macros e escolha a opção Exibir Macros. Selecione a macro SortData e acione o botão Opções. Defina a letra “d” como atalho e acione para finalizar o botão OK e depois Cancelar. Acione o botão Opções Acione para finalizar o botão OK Acione o botão Cancelar e retorne para o editor de macros • Classifica Participante: SortParticipante • Essa Macro tem por objetivo colocar os dados da planilha em ordem ascendente de participante. • Para definir a tecla de atalho <Ctrl> + <p> Volte para a planilha, a partir da guia Exibição acione o botão Macros em Macros e escolha a opção Exibir Macros. Selecione a macro SortParticipante e acione o botão Opções. Defina a letra “p” como atalho e acione para finalizar o botão OK e depois Cancelar. Acione o botão Opções Acione para finalizar o botão OK Acione o botão Cancelar e retorne para o editor de Macros • Classifica Várias Chaves: SortRelatório • Para definir a tecla de atalho <Ctrl> + <r> Volte para a planilha, a partir da guia Exibição acione o botão Macros em Macros e escolha a opção Exibir Macros. Selecione a macro SortRelatório e acione o botão Opções. Defina a letra “r” como atalho e acione para finalizar o botão OK e depois Cancelar. Acione o botão Opções Acione para finalizar o botão OK Acione o botão Cancelar e retorne para o editor de Macros. Macro Para Salvar Dados Agora será desenvolvida uma macro que tem a finalidade de gravar a pasta de trabalho, apesar de existir esse recurso na barra de ferramentas com o botão Salvar. Procedimento Execute o comando: • Guia: Desenvolvedor • Grupo: Código • Botão: Gravar Macro Digite: SalvaCadastro Digite “s” Mantenha esta pasta de trabalho Salva Cadastro Acione o Botão OK Salve o Arquivo porém defina-o como Pasta de trabalho Habilitada para Macro do Excel. • Execute as teclas <CTRL> + <s> para rodar a macro recém criada. • A macro para salvar o cadastro pode ser uma sub- rotina da macro cadastra . • Assim sendo, acrescente a nova macro ao final das outras duas chamadas como descreve o exemplo a seguir: A partir desse momento efetue os cadastramentos dos registros a seguir: • Curso: Microsoft Office Word 2010 – Básico • Data: 10/08/10 • Participante: Pedro Abreu • Departamento: Contabilidade • Empresa: Magnum informática • Custo: 400 • Curso: Microsoft Office Excel 2010 – Básico • Data: 25/09/10 • Participante: Fernando Miguel • Departamento: Marketing • Empresa: Phoenix Imobiliária • Custo: 450 • Curso: Microsoft Office Power Point 2010 – Básico • Data: 05/09/10 • Participante: João Almeida da Silva • Departamento: Auditoria • Empresa: Phoenix Imobiliára • Custo: 350 • Curso: Lógica de Programação • Data: 25/07/10 • Participante: José Marcondes • Departamento: Desenvolvimento • Empresa: Phoenix Imobiliária • Custo: 1200 Teste as macros desenvolvidas. EXERCÍCIOS
Compartilhar