Excel VBA - Soma

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba rotina somando duas células Excel planilha vba rotina somando duas células

    popular!
    Adicionado em: 22/10/2011
    Modificado em: 22/10/2011
    Tamanho: 84.37 KB
    Downloads: 1276

    Saberexcel o site de quem precisa aprender macros microsoft excel vba

    E
    sses 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.




    .

    Excel planilha vba soma funcao personalizada Excel planilha vba soma funcao personalizada

    popular!
    Adicionado em: 10/05/2011
    Modificado em: 10/05/2011
    Tamanho: 68.46 KB
    Downloads: 802

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

    E
    ssa 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
    Eletrônicos - Submarino.com.br

    Excel planilha vba soma verifica inconsistencia Excel planilha vba soma verifica inconsistencia

    popular!
    Adicionado em: 26/11/2011
    Modificado em: 26/11/2011
    Tamanho: 105.35 KB
    Downloads: 1260

    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.



     
    .

    Excel vba gera numeros aleatorios soma treinamento vba Excel vba gera numeros aleatorios soma treinamento vba

    popular!
    Adicionado em: 30/04/2013
    Modificado em: 30/04/2013
    Tamanho: 124.06 KB
    Downloads: 471

    Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
    Escola Saberexcel VBA Estudos®
    Treinamentos com Macros, Fórmulas e Funções
    Site....:
    http://www.microsoftexcel.com.br
    Email..: contato@saberexcel.com.br
    '//========================'

    RESPONDENDO A VARIAS DÚVIDAS:
    1- ) gera números Aleatórios(Colunas(C), Coluna(E))
    2-) Mostra as formulas da Coluna(G)) nas coluna(I) Função ExisteFormulas
    3-) faz os calculos por linha(como nas formulas )(usando Lin,col - Propriedade Cells() )
    '//======='(Subtrai(Colunas(E-C), Divide por 5 e multiplica por 5,76
    4-com o mesmo macro faz acumulo de Valores em Variavel ((xSoma))
    //=======' e retorna valores variaveis para linha 24 que é linha de totais
    - (Treinamento com Do While Until
    5- há também uma soma isolada das colunas(C), Coluna(E), Coluna(K)
    '//=======' o Loop percorrerá todas as células das colunas [acumulando valores em variaveis Soma]
    '//======='até encontrar a palavra Total, quando encontrar descarrega os valores das variaveis nas colunas correspondentes

    Sub sbx_gerar_numeros_aleatorios()
    Dim tSoma, vSoma, zSoma, ySoma As Double
    For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row
    If i = 21 Then Exit For 'para inserir números aleatórios depois da linha 21 (Palavra Total)
    Cells(i, "c").Value = CDbl(Application.WorksheetFunction.RandBetween(200, 1000) & "," & Application.WorksheetFunction.RandBetween(1, 99))
    Cells(i, "e").Value = CDbl(Application.WorksheetFunction.RandBetween(3000, 5000) & "," & Application.WorksheetFunction.RandBetween(1, 99))
    Cells(i, "b").NumberFormat = "0.00"
    Cells(i, "e").NumberFormat = "0.00"
    Cells(i, "i") = "'" & ExisteFomula(Range("G" & CStr(i)))
    Cells(i, "k").Value = (Cells(i, "e").Value - Cells(i, "c").Value) / 2 * 5.76
    '//========='variaveis soma acumulando valor (Linhas e Colunas especificas)
    tSoma = tSoma + Cells(i, "c").Value 'aproveitando o Instrução for next para inserção Soma
    vSoma = vSoma + Cells(i, "e").Value
    zSoma = zSoma + Cells(i, "g").Value
    ySoma = ySoma + Cells(i, "k").Value
    Next i
    Cells(i + 3, "c").Value = tSoma
    Cells(i + 3, "e").Value = vSoma
    Cells(i + 3, "g").Value = zSoma
    Cells(i + 3, "k").Value = ySoma
    End Sub
    '//======='
    'fiz a soma também por variaveis no macro anterior para ilustrar [Somando com Variaveis]
    'mas segue um treinamento com Do While
    Sub sbx_soma_do_while_treinamentos()
    Dim tSoma, vSoma, zSoma, ySoma As Double
    i = 4
    If Application.WorksheetFunction.CountA(Range("c4:c20")) = 0 Then
    MsgBox ("insira primeiramente os números aleatórios"), vbCritical, "Escola Saberexcel VBA Estudos®"
    End If
    Do Until Cells(i, "A").Value = "Total"
    tSoma = tSoma + Cells(i, "c").Value
    vSoma = vSoma + Cells(i, "e").Value
    zSoma = zSoma + Cells(i, "g").Value
    ySoma = ySoma + Cells(i, "k").Value
    i = i + 1
    Loop
    Cells(i, "c").Value = tSoma 'descarrega variavel - valores acumulados linha palavra "Total"
    Cells(i, "e").Value = vSoma
    Cells(i, "g").Value = zSoma
    Cells(i, "k").Value = ySoma
    End Sub
    '//=======' função personalizada mostra fórmulas
    Function ExisteFomula(sbxCell)
    ExisteFomula = sbxCell.FormulaLocal
    End Function
    '//=======' macro chama a funcao ExisteFormulas, mostrando formulas na coluna (I)
    Sub sbx_mostrar_formulas()
    Dim i As Integer
    For i = 4 To Cells(Rows.Count, "c").End(xlUp).Row
    Cells(i, "i") = "'" & ExisteFomula(Range("G" & CStr(i)))
    Next i
    End Sub
    '//=======' Limpar as os range nas colunas c,e,i,k, e celulas,
    Sub sbx_limpar_teste()
    Dim vRange As Range
    For Each vRange In Range("C4:C20,E4:E20,I4:I20,K4:K20,c24,e24,g24,k24")
    vRange.ClearContents
    Next vRange
    End Sub
    '//=======' Limpar as somas que foram inseridas pelo macro (Do While Until)
    Sub sbx_limpar_teste_Total()
    [c24,e24,g24,k24].ClearContents
    End Sub
    '//======='
    Fiquem com Deus,
    Expedito Marcondes

    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.



    Baixe o exemplo de planilha contendo os macros acima.

    Excel vba planiha autonumeracao e soma automatica Excel vba planiha autonumeracao e soma automatica

    popular!
    Adicionado em: 06/04/2013
    Modificado em: 06/04/2013
    Tamanho: 90.31 KB
    Downloads: 709

    Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funcoes

    Esse macro do aplicativo Microsoft excel VBA, chamado por um Evento_Change da folha de planilha, isto é, ao escrever 'digitar',
    na folha de planilha em coluna determinada pelo procedimento, acumula os valores em variavel e retorna para célula (C3)
    somando automaticamente ao digitar.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([c4:c500], Target) Is Nothing And Target.Count = 1 Then
    somar_questao_1
    End If
    End Sub

    Sub sbx_somar_questao_1()
    Dim i As Long
    Dim tSoma As Double 'se houver decimais

    For i = 4 To Plan1.Cells(Rows.Count, "c").End(xlUp).Row
    tSoma = tSoma + Cells(i, "c").Value
    Next i

    Cells(3, 3).Value = tSoma
    End Sub

    '//============= SEGUNDA QUESTÃO ==============='
    Esse macro responde a sua segunda questão que Deleta a linha da célula ativa,
    e insere um contador, mantendo-o na forma original.

    Sub sbx_deletar_linhas_questao_2()
    Dim i As Long
    'deletar linhas da célula ativa
    'msgbox pergunta
    x = MsgBox("Deseja deletar a linha celula da ativa " & ActiveCell.Address & " ?", vbYesNo, "titulo qualquer")
    If x = 6 Then ' 6 = sim
    ActiveCell.EntireRow.Delete
    End If
    'contador para repor o contador
    For i = 5 To 50
    Cells(i, "c").Value = (i - 4)
    Next i

    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.




    Baixe o exemplo de planilha contendo os macros e procedimento acima:

    Página 1 de 3

    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA