Apostila-de-formulas-funcoes-e-macros-pdf

Prévia do material em texto

28/7/2014 MACROS PARA EXCEL - VBA-
232
INDICE
VBA Excel - Função área.................................................................................................................................10
VBA Excel - Arredondas casas decimais para cima .......................................................................................10
VBA Excel - Verifica o formato personalizado da célula ......................................................... ............. ......10
VBA Excel verifica se a formatação personalizada é em Euro ......................................................................11
VBA Excel - Ver se existe ou não Formatação Condicional ..........................................................................11
Excel VBA - Extração de número de loto ......................................................................................................11
*Excel VBA - Loto - extrai seis números aleatórios ......................................................................................12
VBA Excel - Envia para lixeira determinado arquivo ..................................................................................12
VBA Excel - macro copia linhas da primeira até a ultima .............................................................................13
VBA Excel - macro conta linhas selecionadas (msgbox) ...............................................................................13
VBA Excel - deleta linhas/colunas em branco ..............................................................................................13
VBA Excel - atribui altura das linhas a uma seleção ....................................................................................14
VBA Excel Mostra a ajuda solicitada pelo ID ...............................................................................................14
VBA Excel - Exemplo de Ajuda (Show Help) ...............................................................................................15
Retorna o nome do usuário e nome máquina .................................................................................................15
Retorna o Número serial do HD do CPU .......................................................................................................16
Mostra o nível de segurança das macros ........................................................................................................16
Mostra os arquivos ativos na memória(Ram) .................................................................................................17
Mostra o total da memória ..............................................................................................................................18
Desabilita a macro do Excel ...........................................................................................................................19
Salva e encerra o Aplicativo Excel ................................................................................................................19
Mostra o dicionário de correção de uma planilha ..........................................................................................19
Lista todos os arquivos em C:\ ........................................................................................................................20
Todos os arquivos de programa instalado no computador .............................................................................21
Lista os arquivos em um determinado Diretório .............................................................................................22
Mostra o Diretório de determinado arquivo ...................................................................................................23
Cria um arquivo txt em C:\ chamado Meu Arquivo Ascii.txt ........................................................................24
Abre arquivo txt notepad e verifica a existência ............................................................................................25
Copia ColA da Plan2 no arquivo log.txt ..........................................................................................................26
Abre o Aplicativo NotePad (.EXE) .................................................................................................................26
Importa para o Excel um arquivo chamado Texto.txt ....................................................................................26
Abre um arquivo Log em determinado diretorio ............................................................................................26
Abre um determinado arquivo txt no Excel ....................................................................................................27
Abre um arquivo Txt e inseri texto .................................................................................................................27
Exibe e anima o assistente. .............................................................................................................................28
Exibe o Assistente do Office e o balão interno .............................................................................................28
http://saberexcel.com/blog/?p=289
http://saberexcel.com/blog/?p=285
http://saberexcel.com/blog/?p=284
http://saberexcel.com/blog/?p=283
http://saberexcel.com/blog/?p=281
http://saberexcel.com/blog/?p=5
http://saberexcel.com/blog/?p=4
http://saberexcel.com/blog/?p=17
http://saberexcel.com/blog/?p=16
http://saberexcel.com/blog/?p=15
http://saberexcel.com/blog/?p=14
http://saberexcel.com/blog/?p=13
http://saberexcel.com/blog/?p=8
http://saberexcel.com/blog/?p=7
http://saberexcel.com/blog/?p=33
http://saberexcel.com/blog/?p=32
http://saberexcel.com/blog/?p=31
http://saberexcel.com/blog/?p=30
http://saberexcel.com/blog/?p=29
http://saberexcel.com/blog/?p=27
http://saberexcel.com/blog/?p=26
http://saberexcel.com/blog/?p=25
http://saberexcel.com/blog/?p=23
http://saberexcel.com/blog/?p=22
http://saberexcel.com/blog/?p=21
http://saberexcel.com/blog/?p=20
http://saberexcel.com/blog/?p=19
http://saberexcel.com/blog/?p=40
http://saberexcel.com/blog/?p=39
28/7/2014 MACROS PARA EXCEL - VBA-
Chamar o assistente com determinada Animação ........................................................................................28
 Chama o assistente com dados personalizados ............................................................................................30
Cria um atalho na área de trabalho ...............................................................................................................30
VBA Excel - Testa se a célula a ser filtrada é a escolhida ...........................................................................31
Deleta valores e linhas onde há determinados valores..................................................................................31
Retorna o endereço células AutoFiltro aplicado .........................................................................................32
Permite o AutoFiltro em planilhas protegidas. .............................................................................................33
Retorna o número de linhas filtradas ...........................................................................................................33
Separa determinados dados e transfere outra planilha ................................................................................33
Deleta dados referente a determinado criterio .............................................................................................35
Checa se o autofiltro esta inserido ou não ...................................................................................................36
Exemplo da propriedade AutoFilterMode ...................................................................................................36
Ajusta todas as colunas(A) do workbook medida 17.43 .............................................................................36
Ajusta a coluna de acordocom o nome inserido ........................................................................................37
Usando Userform e Label para AutoNumeração .......................................................................................37
Faz um Backup de determinadas planilhas ................................................................................................37
Faz um Backup com senha do arquivo aberto ...........................................................................................37
Faz um Backup na pasta B, Formato Ano_Mes_dia ...................................................................................38
VBA Excel - Chama as barras de menu desejadas ....................................................................................38
Busca determinada palavra em todas as planilhas .....................................................................................39
Busca e localiza determ palavra e oculta linha ou deleta ..........................................................................39
Busca e elimina palavras “mal” deriv “maldoso” da col 3 (c) ...................................................................40
Localiza na Col(A) número igual contido em (B1) ....................................................................................40
Cria uma linha de cabeçalho .......................................................................................................................40
Abre caixa de dialogo alinhamento de células ............................................................................................41
Abre caixa de dialogo suplementos .............................................................................................................41
Abre caixa de dialogo Fontes ......................................................................................................................41
Abre caixa de dialogo abrir arquivo sugerindo o arquivo ...........................................................................41
Exibe a calculadora do windows ................................................................................................................41
Substitui o caracter .....................................................................................................................................42
Mostra caracter no prefixo .........................................................................................................................42
Retorna o mapa de caracteres CharMap.exe .............................................................................................42
Retorna determinado caracter ....................................................................................................................42
VBA Excel - Célula intermitente (piscando) ..............................................................................................43
Seleciona a próxima célula em branco à Direita .......................................................................................43
Retorna quantidade de células usadas range(a1:a10) ................................................................................43
Testar a cél se é Empty, vázia, Null, Integer, Long, Single, Currency .....................................................44
Selecionar células (vba) .............................................................................................................................44
http://saberexcel.com/blog/?p=38
http://saberexcel.com/blog/?p=37
http://saberexcel.com/blog/?p=41
http://saberexcel.com/blog/?p=54
http://saberexcel.com/blog/?p=53
http://saberexcel.com/blog/?p=52
http://saberexcel.com/blog/?p=51
http://saberexcel.com/blog/?p=50
http://saberexcel.com/blog/?p=49
http://saberexcel.com/blog/?p=48
http://saberexcel.com/blog/?p=47
http://saberexcel.com/blog/?p=46
http://saberexcel.com/blog/?p=56
http://saberexcel.com/blog/?p=55
http://saberexcel.com/blog/?p=59
http://saberexcel.com/blog/?p=62
http://saberexcel.com/blog/?p=61
http://saberexcel.com/blog/?p=60
http://saberexcel.com/blog/?p=150
http://saberexcel.com/blog/?p=75
http://saberexcel.com/blog/?p=74
http://saberexcel.com/blog/?p=73
http://saberexcel.com/blog/?p=71
http://saberexcel.com/blog/?p=77
http://saberexcel.com/blog/?p=81
http://saberexcel.com/blog/?p=80
http://saberexcel.com/blog/?p=79
http://saberexcel.com/blog/?p=78
http://saberexcel.com/blog/?p=82
http://saberexcel.com/blog/?p=86
http://saberexcel.com/blog/?p=85
http://saberexcel.com/blog/?p=84
http://saberexcel.com/blog/?p=83
http://saberexcel.com/blog/?p=278
http://saberexcel.com/blog/?p=117
http://saberexcel.com/blog/?p=116
http://saberexcel.com/blog/?p=115
http://saberexcel.com/blog/?p=113
28/7/2014 MACROS PARA EXCEL - VBA-
Deleta determinada células ........................................................................................................................45
Deleta planilha se Célula A1 estiver vazia ................................................................................................45
Deleta linhas em branco .............................................................................................................................46
Selecionar células (vários exemplos) .........................................................................................................47
Aciona o cursor pula uma coluna e seleciona cel abaixo ..........................................................................47
Seleciona a próxima célula em branco à Direita .......................................................................................48
Retorna quantidade de células usadas range(a1:a10) .................................................................................48
Testar a cél se é Empty, vázia, Null, Integer, Long, Single,..rrency ..........................................................48
Selecionar células (vba) ...............................................................................................................................49
Deleta determinada células .........................................................................................................................49
Deleta planilha se Célula A1 estiver vazia .................................................................................................50
VBA Excel - código morse codificação e decodifição ...............................................................................50
VBA Excel - numera colunas alternadas a partia col6 ...............................................................................51
VBA Excel - Copia conteúdo para outras co.as ..........................................................................................51
VBA Excel - Deleta todas linhas na coluna...................................................................................................52
VBA Excel -seleciona sete colunas e sete linhas .........................................................................................52
VBA Excel - macro apaga caracteres ..........................................................................................................52
VBA Excel - macro seleciona a coluna até ult.a célula ...............................................................................53
Tornam visíveis todos os comentários ..........................................................................................................53
Mostra uma lista e o texto dos comentariosxistentes ....................................................................................53
Remove o nome do autor dos comentáriona planilha ...................................................................................54
Pede o texto do comentário, se houver dleta .................................................................................................55
Formata um comentario existente na ceula D17 ...........................................................................................56
Mostranuma msgbox (MSG) o nome. o autor dos comentários ...................................................................56
Formata as quatro primeiras letras docomentário em negrito .......................................................................57
Ajusta o tamanho de todos os comentários na planilha .................................................................................57
Concatena valores a partir de variáveis declaradas .......................................................................................58
Concatena os dados da coluna A2:A.. e B2:B na coluna c2 ..........................................................................58
 VBA Excel - macro concatena duas colunas ................................................................................................59
Exemplo de Constantes ..................................................................................................................................59
Mostra o índice de variação (vba) .................................................................................................................59
Receita Bruta (contabilidade) ........................................................................................................................60
Copia 20 Linhas e cola em range pré-determinada .......................................................................................61
Copia ColA na ColB e ColB na ColC (concatena ABC) ..............................................................................61
Copia alternando uma linha na planilha .......................................................................................................61
Abre a caixa de dialogo “Cola Especial” ....................................................................................................62
Cola a palavra varias vezes na planilha ........................................................................................................62
http://saberexcel.com/blog/?p=112
http://saberexcel.com/blog/?p=110
http://saberexcel.com/blog/?p=109
http://saberexcel.com/blog/?p=108
http://saberexcel.com/blog/?p=107
http://saberexcel.com/blog/?p=117
http://saberexcel.com/blog/?p=116
http://saberexcel.com/blog/?p=115
http://saberexcel.com/blog/?p=113
http://saberexcel.com/blog/?p=112
http://saberexcel.com/blog/?p=110
http://saberexcel.com/blog/?p=120
http://saberexcel.com/blog/?p=128
http://saberexcel.com/blog/?p=126
http://saberexcel.com/blog/?p=125
http://saberexcel.com/blog/?p=124
http://saberexcel.com/blog/?p=123
http://saberexcel.com/blog/?p=121
http://saberexcel.com/blog/?p=142
http://saberexcel.com/blog/?p=141
http://saberexcel.com/blog/?p=140
http://saberexcel.com/blog/?p=139
http://saberexcel.com/blog/?p=138
http://saberexcel.com/blog/?p=137
http://saberexcel.com/blog/?p=134
http://saberexcel.com/blog/?p=133
http://saberexcel.com/blog/?p=144
http://saberexcel.com/blog/?p=143
http://saberexcel.com/blog/?p=122
http://saberexcel.com/blog/?p=145
http://saberexcel.com/blog/?p=147
http://saberexcel.com/blog/?p=146
http://saberexcel.com/blog/?p=157
http://saberexcel.com/blog/?p=156
http://saberexcel.com/blog/?p=155
http://saberexcel.com/blog/?p=154
http://saberexcel.com/blog/?p=153
28/7/2014 MACROS PARA EXCEL - VBA-
Copia uma célula com formato .....................................................................................................................62
Copia a ColA e vai inserindo quantas vezes for executada ..........................................................................63
Conduz o cursor e rola a tela para a primeira célula acima ..........................................................................63
Conduzem o cursor para cima, para baixo, direita e esquerda .....................................................................63
VBA Excel - encerra o aplicativo com dados na celula D1 .........................................................................64
Índice Lista liga função(array) meses e números .........................................................................................64
Decompõe palavras separadas por ífem v.....................................................................................................65
Decompõe uma frase de uma célula, cada palavra célula diferente ............................................................65
Relação de Auto-Correção de palavras do Excel (dicionário) ....................................................................66
Digitação faz uma ordem de tabulação ........................................................................................................66
Digitação ColC será aceita se número inserido ColC for > ColB ..............................................................67
Macros Excel VBA lista todas as LEtras_Drives_Existentes” ....................................................................68
Pocura e relaciona todos Arquivos do Excel/Word nos Diretórios .............................................................68
Macro Excel procura por Arquivo.EXE que estão ativos no Computador .................................................68
Procura por diretório se existe ou não ( função excel vba ) ........................................................................69
Cria um diretório em c:/ (Excel macros funções ) ......................................................................................70
Caminho e nome do diretório ......................................................................................................................70
Mostra os diretórios Excel contendo arquivos.xls (funções e procedimentos) ...........................................70
VBA Excel - Abre um diretório e salva um arquivo com nome escolhido ................................................72
VBA -Excel envia e-mail com anexos ........................................................................................................72
Macro Excel vba envia E-Mail ( tipo uma resposta automática ) ..............................................................75
Envia arquivo e mostra subject so 3 letras nome arquivo ..........................................................................75
Macro Excel envia determinada planilha via e-mail ..................................................................................76
Envia um e-mail com duplo click ...............................................................................................................76
Envia arquivo via e-mail endereços e assunto refere Células Excel ..........................................................77
Envia um e-mail ou conecta à determinada página Web ...........................................................................77
Envia um e-mail para um determinado e-mail ...........................................................................................78
Macro Excel com função Encriptar e Desencriptar dados ..........................................................................78
Propriedade Endereço ..................................................................................................................................79
Mostra um endereço de célula com valor absoluto .....................................................................................80
Macro excel vba mostra a última célula usada mesmo deletada ................................................................81
VBA - Excel macro descrimina um determinado erro ocorrido .................................................................81
VBA - Excel funciona se houver Erros na célula ........................................................................................81
VBA - Excel Deleta espaços entre as palavras ............................................................................................82
VBA - Excel - deleta os espaços ..................................................................................................................82
VBA Excel - Deleta os espaços nos caracteresinseridos ............................................................................82
VBA Excel mostra um modelo da estrutura Modo Case .............................................................................82
http://saberexcel.com/blog/?p=152
http://saberexcel.com/blog/?p=151
http://saberexcel.com/blog/?p=167
http://saberexcel.com/blog/?p=166
http://saberexcel.com/blog/?p=250
http://saberexcel.com/blog/?p=168
http://saberexcel.com/blog/?p=174
http://saberexcel.com/blog/?p=173
http://saberexcel.com/blog/?p=175
http://saberexcel.com/blog/?p=178
http://saberexcel.com/blog/?p=177
http://saberexcel.com/blog/?p=187
http://saberexcel.com/blog/?p=186
http://saberexcel.com/blog/?p=185
http://saberexcel.com/blog/?p=184
http://saberexcel.com/blog/?p=183
http://saberexcel.com/blog/?p=182
http://saberexcel.com/blog/?p=180
http://saberexcel.com/blog/?p=179
http://saberexcel.com/blog/?p=214
http://saberexcel.com/blog/?p=204
http://saberexcel.com/blog/?p=203
http://saberexcel.com/blog/?p=202
http://saberexcel.com/blog/?p=201
http://saberexcel.com/blog/?p=200
http://saberexcel.com/blog/?p=198
http://saberexcel.com/blog/?p=197
http://saberexcel.com/blog/?p=205
http://saberexcel.com/blog/?p=208
http://saberexcel.com/blog/?p=207
http://saberexcel.com/blog/?p=206
http://saberexcel.com/blog/?p=213
http://saberexcel.com/blog/?p=212
http://saberexcel.com/blog/?p=217
http://saberexcel.com/blog/?p=216
http://saberexcel.com/blog/?p=215
http://saberexcel.com/blog/?p=220
28/7/2014 MACROS PARA EXCEL - VBA-
VBA - Excel - Estrutura Case indica números correspondentes .................................................................83
VBA - Excel - Extenso número e moeda .....................................................................................................83
VBA Excel - Ver se existe ou não Formatação Condicional .......................................................................87
Excel - Formatação condicional (formulas) .................................................................................................88
VBA Excel - Arredondas casas decimais para cima ....................................................................................88
VBA Excel - Verifica o formato personalizado da célula ...........................................................................89
VBA Excel verifica se a formatação personalizada é em Euro ...................................................................89
Excel VBA - Formata o número da células selecionadas em Reais ............................................................90
VBA Excel - Copia e Cola formatos ............................................................................................................90
VBA Excel - Função área .............................................................................................................................90
VBA Excel - Alterna linhas grades ..............................................................................................................91
VBA Excel - Inseri hiperlink para navegar entre as planilhas ....................................................................91
VBA Excel - Inseri um Hiperlink na Célula A5 ...........................................................................................91
Excel VBA - inseri hiperlink para as navegar entre as planilhas ................................................................92
VBA Excel - Inseri hiperlink para navegação entre as planilhas ................................................................92
VBA Excel - Deleta todos os hiperlinks da coluna B Plan Ativa ...............................................................92
Sub Hyperlink_navegar_planilhas() .............................................................................................................93
VBA Excel - deleta todos os hiperlinks da planilha ativa ...........................................................................93
Excel VBA - Adiciona uma planilha e relaciona os hyperlink ...................................................................93
VBA Excel - aciona um link de e-mail celula A5 .......................................................................................94
 VBA Excel - Calcula a velocidade média horária (Km/h) .........................................................................94
VBA Excel - Cabeçalho e Rodapé com numero de Páginas .......................................................................95
VBA Excel - macro copia linhas da primeira até a ultima ..........................................................................96
VBA Excel - macro conta linhas selecionadas (msgbox) ............................................................................96
VBA Excel - deleta linhas/colunas em branco ............................................................................................96
VBA Excel - atribui altura das linhas a uma seleção ..................................................................................97
VBA Excel - Deleta linhas condicionalmente .............................................................................................97
VBA Excel - Envia para lixeira determinado arquivo .................................................................................98
Personalizam a tabulação .............................................................................................................................98
VBA Excel - Retorna o nome do usuário do computador ...........................................................................99
Macro para contagem de abertura de um programa quantas vezes abriu .................................................103
Ocultar Plan com ChekBox .......................................................................................................................103
Ocultar coluna com ChekBox ...................................................................................................................104
Faz em A1 um cronômetro decressivo ....................................................................................................104
Faz uma contagem até 10000 ................................................................................................................ ...104
Mensagem por botão e form ......................................................................................................................105
Piscar tela ...................................................................................................................................................106
http://saberexcel.com/blog/?p=219
http://saberexcel.com/blog/?p=218
http://saberexcel.com/blog/?p=224
http://saberexcel.com/blog/?p=223
http://saberexcel.com/blog/?p=229
http://saberexcel.com/blog/?p=228
http://saberexcel.com/blog/?p=227
http://saberexcel.com/blog/?p=231
http://saberexcel.com/blog/?p=230
http://saberexcel.com/blog/?p=232
http://saberexcel.com/blog/?p=234
http://saberexcel.com/blog/?p=241
http://saberexcel.com/blog/?p=242
http://saberexcel.com/blog/?p=240
http://saberexcel.com/blog/?p=239
http://saberexcel.com/blog/?p=238
http://saberexcel.com/blog/?p=237
http://saberexcel.com/blog/?p=246
http://saberexcel.com/blog/?p=243
http://saberexcel.com/blog/?p=261
http://saberexcel.com/blog/?p=275
http://saberexcel.com/blog/?p=285
http://saberexcel.com/blog/?p=284
http://saberexcel.com/blog/?p=283
http://saberexcel.com/blog/?p=281
http://saberexcel.com/blog/?p=280
http://saberexcel.com/blog/?p=289
http://saberexcel.com/blog/?p=114
http://saberexcel.com/blog/?p=11
28/7/2014 MACROS PARA EXCEL - VBA-
Célula piscante 1 ........................................................................................................................................106
Célula piscante 2 .......................................................................................................................................107
Célula que fica piscando ............................................................................................................................108Sub pioscar tela() ........................................................................................................................................108
Código para piscar célula ...........................................................................................................................109
Contador de vezes em que se abre uma plan’ programa ‘ ........................................................................109
Abrir combo com teclado “F4” ................................................................................................................110
Abrir combo ao receber foco evento ENTER ...........................................................................................110
Senha para Expirar tempo de uso ...............................................................................................................110
Esta macro seleciona em coluna especificada, está sendo repetido ..........................................................111
Inverter tabela horizontal vertical ......................................................................................................... ...112
Salvamento altomático 1 ...........................................................................................................................112
Salvamento altomático 2 ...........................................................................................................................114
Salvamento altomático 3 ........................................................................................................................ ...114
Código para form de fechar em 5 segundos ...............................................................................................115
Colocar o código abaixo no referido workbook .........................................................................................119
Macro para VER e OCULTAR Shapes de mensagem ...............................................................................119
Duplicados 2 Formata célula em vermelho ...............................................................................................................119
Macro para dizer bom dia com o nome da pessoa ....................................................................................120
A macro abaixo lista os nomes das planilhas existente no seu projeto .....................................................121
Ver SHAPES ocultar SHAPES .................................................................................................................121
Calendário mensal esta macro insere um calendário mensal atualizado basta formatar os dias e colocar em A7 dia/mês/ano. .................... ...121
Macro para inspirar tempo de programa .................................................................................................122
Função ano Bissexto ..................................................................................................................................122
Macro para calcular a soma de 2 TextBox ..............................................................................................122
'TextBox total .............................................................................................................................................123
Desproteger planilha .................................................................................................................................123
28/7/2014 MACROS PARA EXCEL - VBA-
Formato de moeda em TextBox ...............................................................................................................123
Formatação condicional ............................................................................................................................123
Desproteger planilha com senha ...............................................................................................................126
Adiciona planilha com mensagem ............................................................................................................128
'Função último dia do mês .........................................................................................................................128
Esta macro desabilita o XIS ......................................................................................................................128
Mensagem em label ...................................................................................................................................129
Função de extenso ......................................................................................................................................129
'Macro que impede de deletar planilha principal ......................................................................................132
'Macro que dá um aviso se quer ou não deletar ........................................................................................133
'Macro que reabilita a planilha ..................................................................................................................133
Macro para rodapé personalizado ..............................................................................................................133
Backup válido ............................................................................................................................................134
Backup perfeito ..........................................................................................................................................134
Backup ........................................................................................................................................................135
Criando Backup com senha .......................................................................................................................135
Resolução de tela .........................................................................................................................................136
‘ProgressBar percentual ............................................................................................................................136
Copia arquivo Excel para arquivo de texto ................................................................................................137
Esta macro apaga dados de todas as planilhas ...........................................................................................137
Excel XP: Propriedade FullName ..............................................................................................................138
Excel XP + VBA: Quantidade de planilhas ...............................................................................................139
Excel XP + VBA: Acessando várias planilhas ao mesmo tempo ..............................................................140
Excel XP: Método Select ............................................................................................................................140
Nome na barra de títulos ............................................................................................................................141
Controlador do tempo ...............................................................................................................................141
VBA – Nome da Guia baseado numa célula e vice-versa ........................................................................142
28/7/2014 MACROS PARA EXCEL - VBA-
Deixa maiúscula as células .......................................................................................................................142
Listar LISTVIEW Esta acro lista dados de uma plan p/ListView ...........................................................143
Macro que não deixa sair sem preencher os dados ...................................................................................143
Código que encerra o Excel em 1 minuto .................................................................................................143Esta macro ou função marca a letra da coluna digitando o n, da linha ....................................................144
Não fechar programa sem fazer tal coisa ..................................................................................................144
Utilizando artificios de segurança(auto destruição) ..................................................................................145
Substituindo Erros por Caracteres .............................................................................................................145
'Esta macro faz uma formatação especialnas células ...............................................................................145
Abrindo a página da Internet .....................................................................................................................146
Abrindo o Módulo do VBA direto do Excel .............................................................................................146
Abrir planilha pelo nome pelo InputBox ..................................................................................................146
Agrupando Colunas ...................................................................................................................................147
Criando atalhos na área de trabalho ..........................................................................................................147
Criando Menus Personalizados .................................................................................................................147
Copiando dados da Planilha no Bloco de notas ........................................................................................148
Criando pasta no diretório no Excel ..........................................................................................................148
Criando teclas de Atalho para Abrir Formulários ....................................................................................148
Criando uma nova Planilha do os Meses do Ano .....................................................................................148
Dividindo a Planilha .................................................................................................................................149
Duplicar Imagem ......................................................................................................................................149
Enviando E-mail da planilha atual ...........................................................................................................149
Evento duplo click na planilha .................................................................................................................150
Executando macro com tempo .................................................................................................................150
'Executando uma macro ao selecionar célula ..........................................................................................150
Exemplo de Loop ......................................................................................................................................150
 Exibir usuário ............................................................................................................................................151
Extrair apenas Numeros ............................................................................................................................151
Extrair valores Unicos de Uma lista .........................................................................................................151
Formatando textBox ..................................................................................................................................151
Esta macro cancela e envia digitação entre A1:C10 ................................................................................153
Proteger todas as celulas menos as Específicas ........................................................................................154
Protegendo e Desprotegendo todas as Planilhas .......................................................................................154
Removendo Duplicados .............................................................................................................................154
Ocultando os Valores Zero .......................................................................................................................155
Limitar Digitação ......................................................................................................................................155
Ocultando Menu principal ........................................................................................................................155
28/7/2014 MACROS PARA EXCEL - VBA-
Função personalizada que conta valores únicos .......................................................................................155
Ordenar Dados ...........................................................................................................................................156
Função que retorna Nome e Caminho .......................................................................................................156
Função para Extrair só textos ....................................................................................................................156
Sobre Escrever em Celulas .......................................................................................................................156
Msgbox com 3 Opções ...............................................................................................................................157
Função personalizada que extrai números de células ................................................................................157
Excel Fórmulas e Funções
Extrair apenas Números .............................................................................................................................157
Função para Extrair só textos ....................................................................................................................158
Função que retorna Nome e Caminho ........................................................................................................158
Função para calcular a direfença entre uma data qualque e hoje ................................................................158
Função REPT ..............................................................................................................................................158
Função "CARACT" ....................................................................................................................................158
Protege fórmula na plan ..............................................................................................................................158
Esta macro oculta plan designada colocar no módulo da plan …………………………………………………159
Cria planilha indicada .................................................................................................................................159
Programar ListView 1 ...............................................................................................................................159
Função criada para arredondar casas decimais ...........................................................................................160
'Esta função captura todo o conteúdo de sua tela atual e coloca em PictureBox .........................................160
Sub LimparDados() ......................................................................................................................................161
Esta macro controlada pela data, fecha o arquivo desaparecendo ..............................................................161
Senha 1 ............................................................................................................................................... ........162
Senha 2 .......................................................................................................................................................163Senha 3 ........................................................................................................................................................163
Acesso registrado …………………………………………………………………………………………..164
Planilha e ordem alfabética .........................................................................................................................164
Tempo expirado por vezes de abertura …………………………………………………………………….165
Deixar células em maiúsculas e minúsculas .................................................................................................166
Rodapé personalisado ....................................................................................................................................169
Funcionando uma macro ao selecionar a célula ...........................................................................................169
http://exceletudo.webnode.com.br/news/extrair-apenas-numeros/
http://exceletudo.webnode.com.br/news/fun%C3%A7%C3%A3o%20para%20extrair%20so%20textos/
http://exceletudo.webnode.com.br/news/fun%C3%A7%C3%A3o%20que%20retorna%20nome%20e%20caminho/
http://exceletudo.webnode.com.br/news/fun%C3%A7%C3%A3o%20para%20calcular%20a%20direfen%C3%A7a%20entre%20uma%20data%20qualque%20e%20hoje/
http://exceletudo.webnode.com.br/news/fun%C3%A7%C3%A3o%20rept/
http://exceletudo.webnode.com.br/news/fun%C3%A7%C3%A3o%20%22caract%22/
28/7/2014 MACROS PARA EXCEL - VBA-
Função personalizada inverter texto ..............................................................................................................169
Separa endereço em colunas .........................................................................................................................170
'Botão salvar .................................................................................................................................................171
Botão de inclusão de contatos ......................................................................................................................171
Ordenar por linha ..........................................................................................................................................178
Abrir sites direto do Excel ............................................................................................................................178
Abrir planilha pelo nome pelo InputBox ......................................................................................................178
Abrir a pasta onde a planilha esta Alojada ...................................................................................................179
Abrindo a página da Internet ........................................................................................................................179
Formatação de números ................................................................................................................................180
Ativar Cx Dialogo Abrir ................................................................................................................................181
Exibe um UserForm .....................................................................................................................................181
Para atualizar campeonato ............................................................................................................................181
Caixa de Dialogo Auto correção ...................................................................................................................181
Caixa ..............................................................................................................................................................182
Ativa Calculadora ..........................................................................................................................................182
Chama UserForm com duplo clic ..................................................................................................................182
Deletar linha especificada ..............................................................................................................................183
Dados duplicados ............................................................................................................................................183
Cx diálogo proteger ........................................................................................................................................183
Cx diálogo desproteger planilha .....................................................................................................................183
Cx diálogo bordas ...........................................................................................................................................183
Sub Copiar_Figura() ………………………………………………………………………….……………..184
Sub ConverterMinuscula() ............................................................................................................................184
Sub ConverterPriMaiuscula() ........................................................................................................................184
Converter em dólar ........................................................................................................................................184
Função nome contrário ..................................................................................................................................185
Cx diálogo conf pg ............................................................................................................................... ........185
Desproteger planinha ....................................................................................................................................185
28/7/2014 MACROS PARA EXCEL - VBA-
Sub Fechar() ..................................................................................................................................................186
Sub Formulário() ...........................................................................................................................................186
Extenso ..........................................................................................................................................................186
Inserir .............................................................................................................................................................190
Abre cx dialogo inserir figura .......................................................................................................................190
Sub Inserir_Objeto() ......................................................................................................................................190
Sub Limpar() ........................................................................................................................................ .........191
Sub Nomes_Barras() ......................................................................................................................................191
Sub Ola() ........................................................................................................................................................191
‘Exibe cx dialogo opções de cálculo .............................................................................................................191
Function Raiz() ..............................................................................................................................................191
Sub Termina() ................................................................................................................................................191
Sub Sair() .......................................................................................................................................................192
Sub Salvar() ...................................................................................................................................................192Sub Salvar_Como() .......................................................................................................................................192
Function Saudação() .....................................................................................................................................192
Sub Saudação() .............................................................................................................................................192
Sub separatexto() ..........................................................................................................................................192
Sub Sequencia_numerica() ...........................................................................................................................193
Sub Soma() ....................................................................................................................................................193
Sub Travar_Cel() ...........................................................................................................................................193
Sub Troco() ....................................................................................................................................................193
Sub Voltar() ....................................................................................................................................................194
Sub Zerar_Dados() ........................................................................................................................................194
Sub Zoon() .....................................................................................................................................................194
Cor na linha ...................................................................................................................................................194
‘Esta pasta de trabalho evento Open .............................................................................................................194
28/7/2014 MACROS PARA EXCEL - VBA-
CÓDIGOS
Sub ExibirForm() ...........................................................................................................................................195
Sub Abrir_Plan() ............................................................................................................................................195
Function Apelido(tot) ....................................................................................................................................195
Copiar para linha ...........................................................................................................................................196
Sub ConverterMaiuscula() .............................................................................................................................196
Sub ConverterMinuscula() .............................................................................................................................196
Sub ConverterPriMaiuscula() ........................................................................................................................196
Sub Entrada_Estoque() ..................................................................................................................................196
Sub Filtra_Cliente_Click() ............................................................................................................................198
Sub Lançamento_Caixa() ..............................................................................................................................198
‘Valor zero em célula ...................................................................................................................................200
Sub Macro1() .................................................................................................................................................200
Funções feriados e dias úteis .........................................................................................................................200
Comentários ...................................................................................................................................................202
Function Msg(ParamArray parm()) ...............................................................................................................202
Sub Testar_Msg() ...........................................................................................................................................203
Sub Limpar() ...................................................................................................................................................203
Sub Procura() .................................................................................................................................................203
Sub Transfer() ................................................................................................................................................203
‘Estenso para Euro .........................................................................................................................................203
Imagem ..........................................................................................................................................................204
MÓDULOS
Function ProcessaParcela(num) As String ....................................................................................................205
Converter a informação a Minúscula ou Maiúscula .....................................................................................206
28/7/2014 MACROS PARA EXCEL - VBA-
‘Deixar letras maiúsculas em células .............................................................................................................206
‘Código para formatar txtbox maiúsculo ......................................................................................................207
Soma valores de uma coluna .........................................................................................................................208
‘Formato moeda de um TexBox ....................................................................................................................208
‘Botões de próximo, anterior e alterar ...........................................................................................................208
Sub OrdenarPlanilhas() ..................................................................................................................................209
‘Esta macro soma automaticamente uma coluna apresentada ......................................................................210
Macro para puxar mensagem de célula em label ..........................................................................................210
Macro para inserir linhas ...............................................................................................................................211
Macro para inserir colunas ............................................................................................................................211
Insere um "ok" nas celulas "B2:B10" com um duplo click ..........................................................................211
VBA Excel - inseri uma marca d’agua .........................................................................................................212
Insere marca d’água .......................................................................................................................................212
*VBA Excel - inseri formatação em celulas com Zero - Ex: ( 0 ) - ( 0,00 ) .................................................213
Fórmulas Excel - Fórmula inseri uma formatação condicional quadriculada ..............................................213
Inseri Linhas no NotePad (Bloco de Notas) ..................................................................................................213Inseri um Autofiltro na coluna A ..................................................................................................................214
Fórmula inseri uma AutoNumeração ............................................................................................................214
Inseri uma barra de progressão ......................................................................................................................214
Inseri uma barra de progressão ......................................................................................................................214
Insere na coluna A1,B1,C1 (cabeçalho) .........................................................................................................216
Inseri shapes célula arredondando os cantos .................................................................................................216
VBA Excel - inseri colunas a partir de um InputBox ...................................................................................216
Inseri comentário e autor (predeterminado) e uma frase ..............................................................................217
Inseri as doze planilhas dos meses ................................................................................................................217
Inseri uma planilha por semana até o fim do ano .........................................................................................218
VBA Excel - inseri formatação em celulas com Zero - Ex: ( 0 ) - ( 0,00 ) ....................................................218
VBA Excel - Inseri um ícone do NotePad no Excel .....................................................................................219
VBA Excel - Inseri um rodapé personalizado ...............................................................................................219
Inserir um gráfico no comentário, será que é possível??? ............................................................................219
Inserir estes códigos no módulo da planilha ...................................................................................................220
Ordenar crescente ...........................................................................................................................................220
Ordenar Planilhas ...........................................................................................................................................221
Sub Classificar(List() As String) 'Classifica as planilhas em ordem crescente ............................................221
Macro para inserir dados ...............................................................................................................................222
http://saberexcel.com/blog/?p=24
http://saberexcel.com/blog/?p=45
http://saberexcel.com/blog/?p=58
http://saberexcel.com/blog/?p=69
http://saberexcel.com/blog/?p=67
http://saberexcel.com/blog/?p=76
http://saberexcel.com/blog/?p=111
http://saberexcel.com/blog/?p=127
http://saberexcel.com/blog/?p=135
http://saberexcel.com/blog/?p=171
http://saberexcel.com/blog/?p=169
http://saberexcel.com/blog/?p=297
http://saberexcel.com/blog/?p=262
http://saberexcel.com/blog/?p=270
28/7/2014 MACROS PARA EXCEL - VBA-
‘Desproteger plan ..........................................................................................................................................222
Desproteger várias planilhas .........................................................................................................................223
Proteger várias planilhas ...............................................................................................................................223
‘Reenzibindo várias planinhas ......................................................................................................................223
Sub InserirPlanilhaComNome() ...................................................................................................................224
Sub Ocultar_Coluna() ...................................................................................................................................225
Sub Exibindo_coluna2() ...............................................................................................................................225
Sub Selecionando_Planilha() ........................................................................................................................225
Sub Selecinar_Célula() .................................................................................................................................225
Sub Preencher_Célula() ................................................................................................................................225
Sub Ocultar_Linha() .....................................................................................................................................225
Sub RenomearPlanilha() ..............................................................................................................................225
Sub Copiar_e_colar() ...................................................................................................................................226
Sub MaximizarTela() ...................................................................................................................................226
Sub Calcula2() ..............................................................................................................................................226
Sub Macro_otimizada() ................................................................................................................................226
‘Selecionando planilhas com valores determinados .....................................................................................227
Criando uma planilha ....................................................................................................................................227
Excluindo planilha ........................................................................................................................................227
‘Macro para fazer alteração 1 ListBox -1 Form com TextBox- 1 commandButtom ..................................228
*VBA - Formatações e macros para TextBox's ..........................................................................................229
‘Texbox só para numéricos ........................................................................................................................229
‘Seleccionar o conteúdo de uma TextBox ..................................................................................................230
Gráfico .........................................................................................................................................................230
‘Inserir gráfico em form ..............................................................................................................................230
‘MACRO para pesquisa 1 UserForm 1 TextBox 1 Botão Comando ........................................................230
Sub Calcula2() ............................................................................................................................................231
28/7/2014 MACROS PARA EXCEL - VBA-
MACROS PARA EXCEL - VBA-
VBA EXCEL - FUNÇÃO ÁREA
VBA Excl - Função Área
=MPG(A18,A19,B19)
Function MPG(StartMiles As Integer, FinishMiles As Integer, Litres As Single)
MPG = (FinishMiles - StartMiles) / Litres * 4.546
End Function
função área
Function Area(Length As Double, Optional Width As Variant)
If IsMissing(Width) Then
Area = Length * Length
Else
Area = Length * Width
End If
End Function
=Area(B1;B1)
Function Area(Length As Double, Width As Double)
Area = Length * Width
End Function
VBA EXCEL - ARREDONDAS CASAS DECIMAIS PARA CIMA
Excel VBA - Esta macro arredonda casas para cima mas somente no formato,28/7/2014 MACROS PARA EXCEL - VBA-
 formato personalizado ex: 13,95 = 14, mas o valor real é 13,95
 
Sub Arred_para_cima_formato()
Worksheets(”Plan1″).Range(”b1″).NumberFormat = “0;-0;;@”
End Sub
Formatos especiais
 
 6154848484 (16) 84 84 84 84
184848484 (1) 84 84 84 84
74848484 84 84 84 84 Formato para as células B5:B7:
 
‘[>=200000000](##\ #) ##\ ##\ ##\ ##;[>=100000000](##) ##\ ##\ ##\ ##:00\ 00\ 00\ 00 este da um erro >> substitui pela formatação
abaixo
[>=2000000000](## #) ## ## ## ##;[>=100000000](##) ## ## ## ##;00 00 00 00
KILOFRANCS (KF):
Valores Simples Valores em KF
 
10.000,00 F 10 KF Formatos para as células B13:B15:
1.250.000,00 F .250 KF
15.000,00 F 15 KF # ##0 ” KF”
VBA EXCEL - VERIFICA O FORMATO PERSONALIZADO DA CÉLULA
VBA Excel - Esta macro verifica formato personalizado da célula
Sub Verificar_Formato()
Dim Frt As String
Range(”A1″).Select
Frt = Selection.NumberFormat
28/7/2014 MACROS PARA EXCEL - VBA-
MsgBox “O formato desta célula é :” & Frt
End Sub
VBA EXCEL VERIFICA SE A FORMATAÇÃO PERSONALIZADA É EM
EURO
VBA Excel - Esta macro verifica se é formato em Euro
 
Sub Formatação_perssonalizada()
ActiveCell.Select
If Selection.NumberFormat = “#,##0.00 [$€-1]” Then ‘verifica se o formato é Euro
ActiveCell.Value = ActiveCell.Value * 6.55957
Selection.Style = “Currency”
Else
If ActiveCell.Value = “” Then Exit Sub
‘verifica dentro da célula se existe ou não formato euro ou se está vazia
If IsNumeric(ActiveCell) = False Then Exit Sub
‘verifica a célula ativa se existe ou não euro se é tabem número
ActiveCell.Value = ActiveCell.Value / 6.55957
Selection.NumberFormat = “#,##0.00 [$€-1]”
End If
End Sub
VBA EXCEL - VER SE EXISTE OU NÃO FORMATAÇÃO CONDICIONAL
Excel VBA - Este procedimento e para ver ser existe ou não formação condicional
inserir no módulo Worksheet
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If HasCondFormat(ActiveCell) Then
MsgBox ActiveCell.Address & ” existe formato condicional nesta planilha.”
28/7/2014 MACROS PARA EXCEL - VBA-
End If
End Sub
EXCEL VBA - EXTRAÇÃO DE NÚMERO DE LOTO
Excel VBA - Extração de número de loto , loteria
=AleatórioLoto(1;49;6)
 
Function AleatorioLoto(Botao As Integer, Top As Integer, Amount As Integer)
Dim iNum As String
Dim strNum As String
Dim i As Integer
Application.Volatile
iNum = Int((Top - Botao + 1) * Rnd + Botao)
 
For i = 1 To Amount
strNum = Trim(strNum & ” ” & iNum)
Do Until InStr(1, strNum, iNum) = 0
iNum = Int((Top - Botao + 1) * Rnd + Botao)
Loop
Next i
 AleatorioLoto = strNum
End Function
*EXCEL VBA - LOTO - EXTRAI SEIS NÚMEROS ALEATÓRIOS
‘Esta macro extrai 6 números aleatórios
 Sub Loto()
Dim i, choice, balls(60)
For i = 1 To 60
28/7/2014 MACROS PARA EXCEL - VBA-
balls(i) = i
Next
Randomize Timer
For i = 1 To 6
choice = 1 + Int((Rnd * (60 - i)))
ActiveCell.Offset(0, i - 1).Value = balls(choice)
balls(choice) = balls(60 - i)
Next
End Sub
VBA EXCEL - ENVIA PARA LIXEIRA DETERMINADO ARQUIVO
VBA Excel - esta macro envia para lixeira o arquivo apg.xls
tem que copiar todo código para lixeira - somente copiar e colar no módulo normal
Declare Function SHFileOperation Lib “shell32.dll” Alias _
“SHFileOperationA” (lpFileOp As SHFILEOPSTRUCT) As Long
 
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
http://saberexcel.com/blog/?p=289
28/7/2014 MACROS PARA EXCEL - VBA-
 
Sub Enviar_Arquivo_Lixeira()
RecycleFile “c:\Meus documentos\apg.xls”
End Sub
Sub RecycleFile(sFile As String)
Const FO_DELETE = &H3
Const FOF_ALLOWUNDO = &H40
Dim FileOperation As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFileName As String
With FileOperation
.wFunc = FO_DELETE
.pFrom = sFile
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(FileOperation)
End Sub
VBA EXCEL - MACRO COPIA LINHAS DA PRIMEIRA ATÉ A ULTIMA
VBA Excel - macro copia linhas da primeira até a ultima
Sub Copia_linha_ate_a_ultima()
Dim i As Integer
ligne1:
If ActiveCell.Value <> “” Then ActiveCell.Offset(1, 0).Select: GoTo ligne1
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(1, 0).Select
GoTo ligne1:
ligne99:
http://saberexcel.com/blog/?p=285
28/7/2014 MACROS PARA EXCEL - VBA-
Range(”A1″).Select
End Sub
VBA EXCEL - MACRO CONTA LINHAS SELECIONADAS (MSGBOX)
VBA Excel - macro conta linhas selecionadas e mostra msgbox
Sub conta_linhas()
minha_linha = Selection.Rows.Count
MsgBox minha_linha
End Sub
VBA EXCEL - DELETA LINHAS/COLUNAS EM BRANCO
VBA Excel - deleta linhas/colunas em branco
 
Sub Deleta_Linhas_Branco()
Sheets(”SuaPlanilha”).Select
Dim r, c, x As Integer
‘r is your first row
For r = 1 To 150
‘c is your first column loop until c reaches 184 (unlikely)
For c = 1 To 184
‘if active cell in loop is blank then…
If Cells(r, c) = “” Then
‘find next non blank cell in this row - the column number will become x
x = Cells(r, c).End(xlToRight).Column
‘if x > 184 (your last column) then you can sk ip the rest of this row as it’s blank
If x > 184 Then GoTo 10
‘find out what the column before the next non-blank cell is
http://saberexcel.com/blog/?p=284
http://saberexcel.com/blog/?p=283
28/7/2014 MACROS PARA EXCEL - VBA-
Y = x - 1
‘test difference between column being processed and y
Select Case Y - c
‘if more than one blank cell in between current cell and next non blank then delete ‘range of blanks
Case Is > 0
Range(Cells(r, c), Cells(r, Y)).Delete Shift:=xlToLeft
Case 0
‘if difference between y & c is 0 then only one cell to delete
Cells(r, c).Delete Shift:=xlToLeft
Case Else
‘if it’s negative you have an error!!
MsgBox “Error: Macro Will Stop”, vbCritical, “Error”
Exit Sub
End Select
End If
‘move to next column
Next c
‘10 is a shortcut to cut out the above loop… so if all blank goto 10 - ie just go to the next row
10
Next r
End Sub
VBA EXCEL - ATRIBUI ALTURA DAS LINHAS A UMA SELEÇÃO
VBA Excel - Atribui altura de linhas a uma determinada seleção
Sub Atribui_altura_linhas()
Set ASelectionner = Application.InputBox _
(Prompt:=”selecionar a regiao da celulas “, _
Title:=” Regiao de celulas à serem selecionadas”, Type:=8)
AHauteur = Application.InputBox _
(Prompt:=”Entre com altura (pontos) (exemplo 12)”, Type:=1)
ASelectionner.Select ‘Seleciona a região desejada
http://saberexcel.com/blog/?p=281
28/7/2014 MACROS PARA EXCEL - VBA-
ASelectionner.RowHeight = AHauteur
End Sub
VBA EXCEL MOSTRA A AJUDA SOLICITADA PELO ID
 VBA Excel exemplo de ajuda, mostra o tipo de ajuda solicitado pelo ID 
Sub Example_Show_Help()
Dim IDNum As Long
 
‘Fill in the Help ID number
IDNum = 5199659
 
‘If the Excel version is 2000, 2002 or 2003
If Val(Application.Version) > 8 And Val(Application.Version) < 12 Then
Application.Help “XLMAIN” & Val(Application.Version) & “.CHM”, IDNum
End If
 
‘If the excel version is 12 (Excel 2007)
‘We use the new Application.Assistance.ShowHelp now but the old
‘Application.Help is also working in Excel 2007
If Val(Application.Version) = 12 Then
Application.Assistance.ShowHelp “XLMAIN11.CHM” & IDNum, “”
End If
End Sub
http://saberexcel.com/blog/?p=5
28/7/2014 MACROS PARA EXCEL - VBA-
VBA EXCEL - EXEMPLO DE AJUDA (SHOW HELP)
REtorna
‘Esta macro retorna informações do computador
Sub PCInformation()
Dim msg
msg = “UserName” & vbTab & Environ$(”username”) & vbNewLine _
& “UserProfile” & vbTab & Environ(”UserProfile”) & vbNewLine _
& “Computer #” & vbTab & Environ$(”ComputerName”) & vbNewLine _
& “Logon Server” & vbTab & Environ$(”Logonserver”) & vbNewLine _
& “UserDomain ” & vbTab & Environ$(”UserDomain”)
MsgBox msg, , “Environment Variables“
End Sub
Sub Retorna_Logon_Nome()
Dim wshNetwork As Object
Dim LogonName As Variant
 
Set wshNetwork = CreateObject(”WScript.Network”)
LogonName = “Logon Name = ” & wshNetwork.UserName
MsgBox LogonName
End Sub
http://saberexcel.com/blog/?p=4