Detalhes de vba soma funcao ssomax vba igual funcao soma

Saberexcel - o site das macros
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 - com SaberExcel