Neste artigo, aprenderemos como gravar macro e, em seguida, como modificá-la e torná-la mais fácil de aprender.
Como escrever macro para fórmula de soma em VBE
Temos um dado Excel no intervalo A1: C14, em que a coluna A contém nomes, a coluna B com as marcas do assunto 1 e a coluna C com as marcas do assunto 2. Na coluna D, desejo retornar as notas totais.
Para inserir a fórmula de soma usando VBA no Microsoft Excel, siga as etapas abaixo mencionadas: -
- Abra os dados do Excel.
- Primeiro, você grava a macro para retornar marcas totais na célula D2.
- Na guia “Desenvolvedor”, selecione “Gravar Macro” do grupo de “Código”.
- A caixa de diálogo “Gravar Macro” aparecerá.
- Na caixa “Nome da macro” escreva o nome da macro sem usar nenhum espaço e caractere especial.
- Digite a tecla de atalho que desejar.
- E escreva a descrição sobre a macro na caixa de descrição.
- A gravação começará agora.
- Escreva a fórmula da soma na célula D2.
- Cole a fórmula no intervalo D3: D14.
- Clique em “Stop Recording”
- Para ver as macros gravadas, pressione a tecla “ALT + F11”.
- O código gravado seria assim: -
Sub SUM () '' SUM Macro 'Total de marcas obtidas' 'Atalho de teclado: Ctrl + Shift + S' Intervalo ("D2"). Selecione ActiveCell.FormulaR1C1 = "= SUM (RC [-2]: RC [-1] ) "Selection.Copy Range (" C2 "). Selecione Selection.End (xlDown) .Select Range (" D14 "). Selecione Range (Selection, Selection.End (xlUp)). Selecione ActiveSheet.Paste Range (" D2 " ) .Selecione End Sub
Como você pode ver, o código VBA mencionado acima é muito extenso para retornar notas totais e também não é fácil de entender. Assim, modificamos a codificação.
Sub SUM () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("D2: D" & X) .Value = "= Sum (B2: C2)" End Sub
Como escrever macro para fórmula média em VBE
Temos dados do Excel no intervalo A1: C14, em que a coluna A contém nomes, a coluna B com as marcas do sujeito 1 e a coluna C com as marcas do sujeito 2. Na coluna D, desejo retornar as notas médias.
Para inserir a fórmula média usando VBA no Microsoft Excel 2010 e 2013, siga as etapas mencionadas abaixo: -
- Abra os dados do Excel.
- Primeiro você grava a macro para retornar marcas médias na célula D2.
- Na guia “Desenvolvedor”, selecione “Gravar Macro” do grupo de “Código”.
- A caixa de diálogo “Gravar Macro” aparecerá.
- Na caixa “Nome da macro”, escreva o nome da macro sem usar nenhum espaço e caractere especial.
- Digite a tecla de atalho, conforme desejar.
- E escreva a descrição sobre a macro na caixa de descrição.
- A gravação começará agora.
- Escreva a fórmula “MÉDIA” na célula D2.
- Cole a fórmula no intervalo D3: D14.
- Clique em “Stop Recording”.
- Para ver as macros gravadas, pressione a tecla “ALT + F11”.
- O código gravado seria assim: -
SubMÉDIA () '' MÉDIA Macro 'Total de notas obtidas' 'Atalho de teclado: Ctrl + Shift + A' ActiveCell.FormulaR1C1 = "= MÉDIA (RC [-3]: RC [-2])" Seleção.Cópia de intervalo (" E2 "). Selecione Selection.Copy Range (" D2 "). Selecione Selection.End (xlDown) .Select Range (" E14 "). Selecione Range (Selection, Selection.End (xlUp)). Selecione ActiveSheet.Paste Range ( "E13"). Selecione Selection.End (xlUp) .Select End Sub
Como você pode ver, o código VBA mencionado acima é muito extenso para retornar notas totais e também não é fácil de entender; assim, modificamos o código.
Submédia () Dim X As Integer X = Application.WorksheetFunction.CountA (Range ("A: A")) Range ("E2: E" & X) .Value = "= Average (B2: C2)" End Sub
Desta forma, podemos aprender como gravar macro e, em seguida, como modificá-lo.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail