Saberexcel - Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando a Função de Planilha (WorkSheetFunction(SUBTOTAL)), obtém-se o resultado da soma de determinado intervalo de células, neste caso (Range(D3:D3)).
Não deixe de ler sobre as 340 Planilhas Exemplos Microsoft WorksheetFunctions(VBA)
wkf worksheetfunction funções de planilhas retornam valores vba
Sub somando_com_wkf_subtotal()
sby = Application.WorksheetFunction.SubTotal(9, Range("D3:D30"))
MsgBox "Resultaldo soma: [ " & sby & " ]", vbInformation, "Saberexcel - site das macros"
[G3].Value = sby
End Sub
'ou poderia ser simplesmente:
Sub somando_com_wkf_subtotal()
Msgbox Application.WorksheetFunction.SubTotal(9, Range("D3:D30"))
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel
Baixe o exemplo de Planilha contendo o Macro Acima
Excel vba soma usando wkf subtotal numeros negativos (22.64 KB)
