Home Excel - WorksheefFunction vba worksheetfunction soma valores range nomeadas em plans diferentes

vba worksheetfunction soma valores range nomeadas em plans diferentes

E-mail Imprimir PDF

Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, usam Funções de Planilhas para retornar uma determinada soma, como também somando valores em células em diferentes folhas de planilhas e retornando uma soma de um range nomeado de uma determinada folha de planilha com outra célula em outra folha de planilha. Esse exemplo tem finalidade didática para que voce possa aprender, isso é, se não souber, retornar valores de soma através do vba usando a Woksheetfunction, "Funções de Planilha" . Espero que lhe seja útil, Fiquem com Deus, --- E_Marcondes.

'modelo1
Sub WorksheetFunction_Soma_retorna_F1()
[G25].Value = "Esta macro soma as células Plan2(A1 + A7) e retorna na Plan1(F1)."
[G26].Value =
""

sb = WorksheetFunction.Sum(Worksheets("Plan2").Range(Worksheets("Plan2"). _
Range("A1"), Worksheets("Plan2").Range("A7")))
Plan1.[f1].Value = sb

MsgBox "WorkshSheetFunction Soma das celulas (Plan2(A1,A7))em F1= [ " & sb & " ]", vbInformation, "Saberexcel"

End Sub

'modelo2
Sub WorksheetFunction_soma_celulas_plans_diferentes()
[G25].Value = "Esta macro SOMA células Plan2(A1) + Plan2(A7), MULTIPLICA por 2 e DIVIDE por nove "
[G26].Value = "Observe a tabelinha ao lado - conferindo a macro!"

X = Worksheets("Plan2").Range("A1").Value
Y = Worksheets("Plan2").Range("A7").Value
Z = Worksheets("Plan1").Range("F1").Value

G = WorksheetFunction.Sum(X, Y, Z)
H = (G * 2 / 9) + 100

Plan1.[B1].Value = H

'MsgBox H, vbInformation, "Saberexcel"
MsgBox "WorksheetFunction.Soma, somando células(A1,A7,Plan1(F1)) = [ " & H & " ]", vbInformation, "Saberexcel"

End Sub

'modelo3
Sub WorksheetFunction_soma_range_nomeada()
[G25].Value = "Esta macro soma tres células na Plan2 = A1 + A7 + A8)" 'somente informações para orientação
[G26].Value = "Também soma a range nomeada (area1) + A7 "
'somente informações para orientação

With Worksheets("Plan2")
sbxSoma = WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A7", "A8")))
sbySoma = WorksheetFunction.Sum(.Range("Area1"), .Range("A7"))


MsgBox "Soma celulas A1,A7,A8 Plan2 = [ " & sbxSoma & " ]", vbInformation, "Saberexcel"
MsgBox "Soma celulas Range(Area1) + Celula(A7) = [ " & sbySoma & " ]", vbInformation, "Saberexcel"
End With

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



   Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba worksheetfunction soma valores range nomeadas em plans diferentes (29.28 kB)

Última atualização em Dom, 18 de Setembro de 2011 18:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3880
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23386
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37115
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10459944
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA