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