Adicionado em: | 01/12/2010 |
Modificado em: | 01/12/2010 |
Tamanho: | Vazio |
Downloads: | 479 |
Essas macros do Aplicativo Microsoft Excel VBA, inserem uma autonumeração em diferentes posições na folha de planilha, esses exemplos tem a finalidade didática. Espero que lhe sejam úteis em seu aprendizado. Fiquem com Deus, E_Marcondes
Public i As Integer
'insere uma autonumeração transversal descendente
Sub transversal()
For i = 1 To 10
Cells(i i ) = i
Next
End Sub
'insere contagem na linha 10 até coluna 10
Sub Linha_10()
For i = 1 To 10
Cells(10, i) = i
Next
End Sub
'insere contagem na linha 10 até coluna 10
Sub Linha1_1()
For i = 1 To 10
Cells(1, i ) = i
Next
End Sub
'insere contagem na coluna 1 a1:A10
Sub Coluna_1()
For i = 1 To 10
Cells(i , 1) = i
Next
End Sub
'insere contagem na linha 10 até coluna 10
Sub Coluna_10()
For i = 1 To 10
Cells(i , 10) = i
Next
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Baixe o exemplo de planilha contendo os loops acima
Compre com segurança garantia e baixos preços. Lojas SubMarino
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: | 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: | 19/03/2011 |
Modificado em: | 19/03/2011 |
Tamanho: | Vazio |
Downloads: | 1476 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém dois Loop(s) For...Next, que insere um contador na coluna(A) e também contador que auto-incrementa linha e coluna. Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
Sub Contador_linha_coluna()
Dim vLinha As Long
Dim vColuna As Long
Cells(5, 5) = "Aprenda VBA"
Cells(6, 5) = "Praticando - produtos didáticos Saberexcel"
For vLinha = 1 To 10
Cells(vLinha, 1) = vLinha
Next vLinha
For vColuna = 1 To 10
Cells(12, vColuna) = vColuna
Next vColuna
End Sub
Sub limpar_teste()
[sbx].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
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