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





Publicidade
Compre com segurança, garantia e ótimos preços