|
 Saberexcel - site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma soma na coluna(B) referente aos números digitados na coluna(a)
observe que usamos uma Função para os calculos.
Poderá notar que a macro insere fórmulas envolvendo a função Calculo, depois deleta as fórmulas preservando os valores.
Sub insere_formula_funcao_calculo()
[B2].Select
With Range("B1:B" & Range("A65536").End(xlUp).Row)
'definindo a fórmulas
.Formula = "=Calculo(R1C1:R[1]C1)"
.Value = .Value 'deleta fórmulas e preserva valores, faça o teste, comente essa linha e execute a macro para visualizar as fórmulas.
End With
End Sub
Function Calculo(vRegiao As Range) As Double
Dim vCelula As Range
Application.Volatile
For Each vCelula In vRegiao
Calculo = Calculo + vCelula
Next vCelula
End Function
Sub limpar_teste()
[rst].ClearContents
End Sub
Function Calculo(vRegiao As Range) As Double
Dim vCelula As Range
Application.Volatile
For Each vCelula In vRegiao
Calculo = Calculo + vCelula
Next vCelula
End Function
Sub limpar_teste()
[rst].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
 |