Segue em anexo uma macro que lê dados das tabelas 1 e 2, coloca uma debaixo da outra, e cola na aba de resultados. Link para download.
Esta utiliza um “toolbox” que fiz ao longo dos anos.
Tem uma função para copiar dados e jogar numa variável
copiaDados 2, 1, 10, tab1, “Tab1”
copiaDados 2, 1, 10, tab2, “Tab2”
Outra função para colocar uma tabela embaixo da outra
appendlins tab1, tab2, consolidado
e outra função para colar.
Templates de mapas são muito úteis, tanto no Excel quanto no Power Point.
Para colorir um país específico, basta selecionar o shape e pintar manualmente.
Cada país foi desenhado como um shape. Peguei os templates a seguir de diversas fontes. A própria Microsoft oferece diversos templates interessantes.
Mapa Múndi. Link para download.
Mapa do Brasil e outros mapas. Link para download.
Segue neste link uma implementação de um método muito simples de criptografia, a XOR.
É necessário ter uma chave, digamos o número 10. Este método é simétrico, o que significa que tanto a pessoa que encripta quanto a que decripta deve conhecer a mesma chave.
Clicando em encriptar, gera-se o resultado com as letras esquisitas.
Ao decriptar, volta-se à mensagem original.
Segue aqui um exemplo de como obter o usuário de rede, e nome do computador pelo vba.
É um truque bem simples, e serve para gravar a pessoa que fez alguma ação.
Dim GetUserN
Dim ObjNetwork
Set ObjNetwork = CreateObject(“WScript.Network”)
Dim UsuarioRede As String
Dim computer As String
Dim domain As String
UsuarioRede = ObjNetwork.UserName
computer = ObjNetwork.computername
domain = ObjNetwork.userdomain
MsgBox “Usuário: ” & UsuarioRede & Strings.Chr(10) & “Computador: ” & computer & Strings.Chr(10) & “Domínio: ” & domain
Seguem algumas dicas de formatação condicional.
Há uma série de formas de pintar as células segundo regras de cores, ícones, etc.
Por exemplo, realçar quem tem valor igual a 1:
Página Inicial -> formatação condicional -> realçar regras das células -> É igual a
Resultado:
Para valores duplicados, selecionar o range desejado e ir em Página Inicial -> formatação condicional -> realçar regras das células -> valores duplicados.
Resultado:
E assim sucessivamente, há uma infinidade de regras à disposição.
A parte mais avançada e difícil é criar fórmulas personalizadas.
Primeiro, escolher o range onde a regra será aplicada.
=$C$6:$D$15
Coloquei a fórmula a seguir.
=SE($C6=”b”;1;0)
O que confunde muito é a forma de travar a célula:
C6: sem travamento
$C6 : trava a coluna C
C$6: trava a linha 6
$C$6: trava a linha e coluna
Para escolher a opção desejada, é só imaginar que é uma fórmula da planilha, que vai ser arrastada no range selecionado.
Segue exemplo aqui.
Segmentação de dados é um truque interessante, para quem monta dashboards.
O primeiro passo é criar uma tabela dinâmica, ou gráfico dinâmico.
Depois, Inserir -> segmentação de dados.
E escolher o que vai aparecer no menu.
O resultado é um gráfico com um menu visual.
Vale somente do Excel 2007 em diante.
Download de exemplo aqui.
Segue aqui uma rotina que copia e cola um shape segundo um padrão retangular.
O shape deve estar selecionado, ao rodar a macro.
Define-se o número de linhas e colunas, e o espaçamento entre shapes.
Deve-se agrupar shapes (selecionar shapes, botão direito, agrupar), quando há uma composição de shapes formando um desenho.
O VBA é basicamente uma automação do ctrl+c + ctrl +v:
.Copy
ActiveSheet.Paste
E depois um redirecionamento da posição do shape.
.Left = x0 + (i – 1) * space
.Top = y0 + (j – 1) * space
Uma aplicação possível?
Brincar de Escher, como no post a seguir.
https://ideiasesquecidas.com/2015/11/23/escher-e-aspirantes-a-escher/
Att
