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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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