Saberexcel - o site das macros
Esses procedimentos do Aplicativo Microsoft Excel VBA, soma ítem selecionado em uma Listbox (caixa de listagem) em uma caixa de TextBox(caixa de texto), adiciona valores selecionados a cada execução da macro.

Private Sub CommandButton3_Click()
Dim lItem As Double
Dim Tal As Double
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Tal = ListBox1.List(lItem, 1) * 1
TextBox4 = Tal * 1 + Val(TextBox4.Value)
ListBox1.Selected(lItem) = False
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
Sheets("Plan1").Select
ListBox1.RowSource = "B2:F100"
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Macro do Aplicativo Microsoft Excel VBA, faz uma soma através do Visual Basic Application, inserindo a fórmula na célula(A1)
sendo a soma de determinado range (A2:A18), e em A1 adicione a soma o Texto "SOMA TOTAL", texto precedido da soma.

Sub Inserir_Formula()
Range("A1").Select
Range("A1").Formula = "=SUM(A2:A18)"
Selection.Formula = " Soma Total = R$ " & Range("A1").Value
End Sub



Aprenda Microsoft Excel VBA --(SaberExcel)--

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, incrementa uma determinada soma na coluna(A) dos números digitados, é incrementado na fórmula


Sub variavel_endereco_dentro_da_soma()
Range("A1") = "=SUM(A2:" & Range("A2").End(xlDown).Address & ")"
End Sub

fórmula inserida a medida que for digitando e acionando a macro: =SOMA(A2:$A$6)

Aprenda Aplicativo Microsoft Excel VBA (( Saberexcel ))



Baixe o exemplo de planilha da macro acima

Saberexcel - o site das macros
Essa Função do Aplicativo Microsoft Excel VBA, exibe uma soma de determinado intervalo de células, mesma finalidade da Função Soma do Aplicativo Excel

Function SSOMAX(Valor_Cel As Range)
Dim rnCell As Range

Application.Volatile
For Each rnCell In Valor_Cel
If Not (rnCell.Rows.Hidden Or rnCell.Columns.Hidden) Then
If IsNumeric(rnCell.Value) Then
SSOMAX = SSOMAX + rnCell.Value
End If
End If
Next rnCell
End Function

Sub plan_calc()
Saber1.Calculate
End Sub



Aprenda tudo sobre Aplicativo Microsoft Excel VBA - com SaberExcel

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