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 - 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

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
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