SaberExcel - O site de quem precisa Aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam determinado soma e subtração usando as funções de planilhas, WorksheetFunctions, Soma() e Procv(), por meios de códigos VBA. Não deixe de ler sobre as 340 planilhas worksheetfunctions(VBA) - um exemplo para cada função do excel, retornam valores em o auxílio de fórmulas. Excel planilhas WorksheetFunctions Funções de Planilhas
Option Explicit
Sub Somando_com_funcoes_planilhas()
Cells(17, 5) = WorksheetFunction.Weekday(Range("B17")) 'retorna o número do dia da semana(ex:1(Dom),2(seg) 3(Ter)
Cells(19, 5) = WorksheetFunction.Sum(Range("A1:B10")) 'primeiro exemplo de soma com função de planiha
Cells(20, 5) = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 2))) 'segundo exemplo soma com função de planiha
Cells(21, 5) = WorksheetFunction.VLookup(Range("B21"), Range("D1:E3"), 2, False) 'realizando busca com funcao de planilha
MsgBox "Dados Inseridos com Sucesso! Celulas(E16:E23)", vbInformation, "Saberexcel - site das Macros"
End Sub
Sub Limpar_Teste()
[E16:E23].ClearContents
End Sub
Sub somar_subtrair()
Dim x, y As Long
[k7,L7].ClearContents
x = WorksheetFunction.Sum(Range("L1:L6"))
y = WorksheetFunction.Sum(Range("K1:K10"))
Cells(7, 12) = x 'WorksheetFunction.Sum(Range("L1:L6")) 'se usar o código no lugar variavel mesma coisa
Cells(7, 11) = y 'WorksheetFunction.Sum(Range("K1:K10")) 'se usar o código no lugar variavel mesma coisa
'Cells(7, 12) = WorksheetFunction.Sum(Range("L1:L6")) - WorksheetFunction.Sum(Range("K1:K10"))
Cells(8, 12) = x - y
[N1].Value = " Soma e subtração realizada com sucesso!"
End Sub
Sub Limpar_teste_somar_subtrair()
[K7,L7,L8,N1].ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo os macros acima.
Excel planilha vba wkf soma subtrai e busca dados (78.49 KB)
Publicidade
Compre com segurança, garantia e ótimos preços 
