Adicionado em: | 01/12/2010 |
Modificado em: | 01/12/2010 |
Tamanho: | Vazio |
Downloads: | 623 |
Essa macro do Aplicativo Microsoft Excel VBA, retornam as letras do alfabeto na coluna(A), e insere na coluna (B) os números correspondentes a as letras, auxiliados pela propriedade offset (desloc)
Sub Letras_numeros()
Dim vLetras(25) As String
Set x = Range("A1")
Range("A:B").ClearContents
x.Select
For n = 0 To 25
vLetras(n) = Chr(n + 65)
MsgBox "Letra [ " & vLetras(n) & "] Numero [" & n + 1 & "]"
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Value = vLetras(n)
ActiveCell.Offset(1, 1).Value = n + 1
Next n
x.Select
x.Offset(1, 0).Value = "LETRAS"
x.Offset(1, 1).Value = "NUMEROS"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 10/01/2011 |
Modificado em: | 10/01/2011 |
Tamanho: | Vazio |
Downloads: | 771 |
Saberexcel - Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém um Laço (Loop) que concatena os valores de duas colunas, neste caso optamos por concatenar (juntar) dados das coluna(C) e Coluna(D). Observe que o Loop ocorrerá enquanto houver dados na célula ativa, isto é, ao atingir a linha em branco sai do loop e finaliza o macro.
Sub Concatenar_colunas()
Do While ActiveCell <> "" 'faz um loop enquanto a célula ativa estiver vazia.
ActiveCell.Offset(0, 1).FormulaR1C1 = ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
[C28].Value = "Dados concatenados...."
End Sub
Sub copiar_para_teste()
'[dados].Copy Plan1.[C1] 'forma simplres de copiar dados (nomeei range dados)
[dados].Copy [destino] 'forma simples de copiar dados ( range nomeada 'dados' e 'destino' em planilhas diferentes
[C28].Value = "Dados Copiados para o teste de concatenação - SELECIONE CELULA(D1 ou D2, e execute a macro)"
End Sub
Sub limpar()
[C1:E25].ClearContents
[C28].Value = "Não se esqueça de copiar(MACRO) os dados para o teste!!"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),com produtos didáticos Saberexcel
Adicionado em: | 01/12/2010 |
Modificado em: | 01/12/2010 |
Tamanho: | Vazio |
Downloads: | 851 |
Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, inserem uma autonumeração reptindo os passos de arrastar e soltar.
Observe como inserir uma autonumeração a partir de uma macro gravada no GM(Gravador de Macros).
Neste exemplo eu peguei uma macro gravada, fiz uma pequena depuração para que fique melhor um pouquinho e abaixo inserí o modo correto de fazer uma macro para essa finalidade.
.
Na verdade essa macro é a mesma coisa de você digitar: 1 na célula(A1), 2 na célula(A2), selecionar(A1:A2), achar o ponto cruz escuro e arrastar os números até a linha desejada.
Em nosso Curso Completo Microsoft Excel VBA - o Caderno_1 aborda o assunto sobre o Gravador de Macros - a importancia de deter esse conhecimento. que é muito importante no aprendizado MS Excel VBA - 70% do aprendizado.
Se voce quiser praticar como gravar uma macro, acione o gravador de macros, na célula(A1) însira o número 1, na célula(A2) número 2, em seguida
selecione as células (A1:A2), ache o ponto cruz (escuro) na parte inferior direita da borda e arraste até a linha desejada, poderá em seguida,
selecionar a célula (B1), ao executar a macro, será selecionado a célula(b1). Espero que isso possa lhe ser útil.
Sub macro_gravada_sem_depuracao()
'
' Macro Gravada 20/07/2010 por Saberexcel
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("b1").Select
End Sub
depurando a macro e melhorando a qualidade no caso de fórmulas deverá manter o FormulaR1C1, do contrario não há necessidade,
observe que a macro seleciona a célula primeiro para depois enviar o valor, poderá fazer isso diretamente usando Range.Propriedade Value
Sub melhorando_um_pouquinho()
Range("A1").Value = "1"
Range("A2").Value = "2"
Range("A1:A2").AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A10").Select
End Sub
Sub maneira_correta()
With Cells(1, 1)
.Value = 1
.Resize(20).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=20
End With
End Sub
Sub limpar_teste()
[A1:A100].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Baixe o exemplo de planilha contendo as macros acima
Publicidade:
Compre com segurança, garantia e ótimos preços nas lojas SubMarino.
Adicionado em: | 20/11/2010 |
Modificado em: | 10/01/2011 |
Tamanho: | Vazio |
Downloads: | 1029 |
SaberExcel o Site das Macros
Macro do Aplicativo Microsoft Excel VBA, concatena valores da coluna(A) e Coluna(B) em uma terceira coluna(C).
observe que usei a Função SET para referenciar (Setar) as Colunas
Option Explicit
Option Base 1
Sub Concatena_dados_de_duas_colunas()
Dim vaColuna1 As Variant, vaColuna2 As Variant, vaDados() As Variant
Dim wsPlan As Worksheet
Dim rnColuna1 As Range, rnColuna2 As Range, rnDados As Range
Dim iNumero As Long
Set wsPlan = Worksheets("Plan1")
Set rnColuna1 = wsPlan.Range("A2", Range("A65536").End(xlUp))
Set rnColuna2 = wsPlan.Range("B2", Range("B65536").End(xlUp))
vaColuna1 = rnColuna1.Value
vaColuna2 = rnColuna2.Value
ReDim vaDados(1 To UBound(vaColuna1))
For iNumero = 1 To UBound(vaColuna1)
vaDados(iNumero) = vaColuna1(iNumero, 1) & " " & vaColuna2(iNumero, 1)
Next iNumero
Set rnDados = wsPlan.Range("C2", Range("C" & UBound(vaColuna1) + 1))
rnDados.Value = Application.Transpose(vaDados)
End Sub
Sub limpar()
Range("c1:C10").ClearContents
End Sub
Aprenda sobre Aplicativo Microsoft Excel VBA SaberExcel
Adicionado em: | 06/02/2012 |
Modificado em: | 06/02/2012 |
Tamanho: | Vazio |
Downloads: | 1187 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esse macro do Aplicativo Microsoft Excel VBA(visual Basic application) busca em determinada área de células pela primeira ocorrencia de célula
com interior verde claro, retorna o endereço da célula, desloca uma linha a direita e e também insere a cor verde
Esse exemplo de planiha faz parte de Assine nosso Modulo 2012 - Boletins Treinamentos VBA
Assine agora mesmo nosso Módulo 2012 - Contendo os Boletins Mensais.
Assine nosso Modulo 2012 - Boletins Treinamentos VBA
INSTRUÇÃO: DO..UNTIL...LOOP
Sub Loop_do_until_loop_encontrar_celula_verde_brilhante()
Dim vContador 'Declaração de uma variável
vNumLin = Row 'variável
With Selection
Range("c5:c20").Select
vNumLin = Selection.Rows.Count 'Número de linhas dentro da região selecionada
End With
vContador = 0 'atribuindo o valor zero a variável contador
Range("c6").Select 'iniciando pela célula c6 para efeturar a busca
Do Until Selection.Interior.ColorIndex = 4 'faça o loop enquanto não for da cor verde brilhante
ActiveCell.Offset(1, 0).Select 'desloque apenas uma linha abaixo por vez
If vContador > vNumLin - 3 Then Exit Sub 'Numero de loops limitado a 15 até achar a célula interior verde brilhante.
'localiza a célula verde brilhante e sai do loop mostrando a mensagem e copia célula para uma celula à direita
vContador = vContador + 1 'adicionando um ao contador
Loop
MsgBox "Selecionada célula de cor verde brilhante [" & ActiveCell.AddressLocal & " ] vamos copiar a célula para direita"
'Deslocar uma célula a direita
Selection.Copy
Selection.Offset(0, 3).Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub
'- - - - - - - - - - - - - - - -
Sub limpar_teste()
[F6:F20].Clear
[G1].Select
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA