Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

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, sozinho, praticando com os produtos didáticos SaberExcel




   Baixe o exemplo de planilha contendo a função acima
Excel planilha vba soma funcao ssomax vba igual funcao soma (33.15 kB)