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

Saberexcel o site de quem precisa aprender macros microsoft excel vba

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), chamando um rotina para somar duas células em determinada folha de planilha, retorna o resultado da soma em outra célula, juntamente com uma mensagem contendo uma formtação de números.
Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes.

Sub sbm_somando_Rotina(ByVal sbx As Integer)
sbx = Range("c3") + Range("e3")
MsgBox "Célula(G3) é igual a soma das celulas(C3+E3) = [ " & Format(sbx, "##,###.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"
[G3].Value = sbx
End Sub

Sub sbm_chamando_rotina()
sbm_somando_Rotina (sbx)
End Sub

'limpar célula para repetir o teste
Sub sbm_limpar_teste()
[G3].ClearContents
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




.

Escola SaberExcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

Esses macros do Aplicativo Microsoft Excel VBA, verifica a última linha desloca duas linhas abaixo e insere total dos valores das colunas(D e F), como também a diferença entre os totais dos dois valores verificados.

Sub sbx_soma_coluna()

Dim vContador As Integer
Dim vTotal, fTotal As Long

If Left([c65000].End(xlUp).Value, 2) = "To" Then 'observe o macro abaixo
MsgBox ("Total já inserido"), vbInformation, "saberexcel - o site das macros"
Else

For vContador = 2 To Saber1.Range("D65000").End(xlUp).Row
vTotal = vTotal + Range("D" & vContador)
Next vContador

For vContador = 2 To Saber1.Range("F65000").End(xlUp).Row
fTotal = fTotal + Range("F" & vContador)
Next vContador

[d65000].End(xlUp).Offset(2, 0).Value = Format(vTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, 2).Value = Format(fTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, -1).Value = "Total...:"

xb = [d65000].End(xlUp).Value - [f65000].End(xlUp).Value

[D50000].End(xlUp).Offset(2, 2).Value = xb ', "##,###.00")
[d65000].End(xlUp).Offset(2, 0).Value = "Diferença.:"

End If
Saber1.Shapes("oct").Visible = True
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Essse macro vai verificar os dois últimos valores (soma total) inserido pelos macros e os deleta
Sub sbx_limpar_teste()
[c65000].End(xlUp).Offset(0, 0).Value = ""
For i = 1 To 2
[f65000].End(xlUp).Offset(0, 0).Value = ""
[d65000].End(xlUp).Offset(0, 0).Value = ""
Next i
Saber1.Shapes("oct").Visible = False
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_busca_valores_esquerda()
x = Left("Vtotal", 2)
MsgBox x
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_apagar()
Plan1.Range("D2:F2").Select
Selection.End(xlUp).Offset(2, 0).Clear
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub busca_parte_da_string_ultima_celula() 'somente para o teste e treinamento
'x = [c65000].End(xlUp).Value
[c65000].End(xlUp).Select
If Left(ActiveCell, 2) = "To" Then
MsgBox ("To")
Else
MsgBox ("sai")
End If
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



 
.

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento change(ao digitar) soma (acumula) valores em determinada célula.
Observe que ao digitar na célula (D10) o range.propriedade offset, desloca duas colunas à direita e soma o valor, isto é acumulando o valor digitado,
Espero que lhe possa ser útil. Fique com Deus, Boa Sorte. E_Marcondes


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim vRange As Range

If Target.Cells.Count > 4 Then Exit Sub

Set vRange = Range("D10")

If Not Intersect(Target, vRange) Is Nothing Then
If IsNumeric(Target) And IsNumeric(Target.Offset(0, 2)) Then
Target.Offset(0, 2) = Target + Target.Offset(0, 2) 'pulando uma coluna e inserindo a soma
End If
End If
Set vRange = Nothing
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

Essa Função personalizada do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o total da soma dos números existentes em determinada coluna, dependendo do critério inserido na fórmula contendo a função personalizada SomaColuna() abaixo.
'- Na folha de planiha use a seguinte fórmula, destacando o critério da soma da coluna desejada.
Retorna a soma da coluna do mês de Março.......: '=SOMA(SomaColuna("Plan1";"Março"))
Retorna a soma da coluna do mês de Dezembro.: '=SOMA(SomaColuna("Plan1";"Dezembro"))

Function SomaColuna(vDados As String, vNome As String) As Range
'variável vDados representa toda a tabela(meses e dados)
Dim i As Integer
Dim vCelula1 As String
Dim vCelula2 As String
Dim vColunas As Long
Dim vLinhas As Long

vColunas = Worksheets(vDados).UsedRange.Columns.Count
vLinhas = Worksheets(vDados).UsedRange.Rows.Count

For i = 1 To vColunas
If UCase(Worksheets(vDados).Cells(1, i)) = UCase(vNome) Then
vCelula1 = Worksheets(vDados).Cells(2, i).Address
vCelula2 = Worksheets(vDados).Cells(vLinhas, i).Address

Set SomaColuna = Worksheets(vDados).Range(vCelula1 & ":" & vCelula2)
End If
Next

End Function




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Publicidade
Compre com segurança, garantia e ótimos preços