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

|