Home Excel - Downloads / Areas Restritas Excel VBA - Gravador de Macros

Excel VBA - Gravador de Macros

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    vba gravador macros arrastar soltar autonumeracao vba gravador macros arrastar soltar autonumeracao

    popular!
    Adicionado em: 01/12/2010
    Modificado em: 01/12/2010
    Tamanho: 18.84 KB
    Downloads: 873

    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






    Publicidade:
    Compre com segurança, garantia e ótimos preços nas lojas SubMarino
    .

    Informática - Submarino.com.br


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    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