Home Excel - Dicas Microsoft Excel VBA Excel VBA - Combustivel Excel planilha vba combustivel verifica preco Alcool x Gasolina

Excel planilha vba combustivel verifica preco Alcool x Gasolina

E-mail Imprimir PDF

Saberexcel - site de quem precisa aprender Macros Microsoft Excel VBA

Esse exemplo de Planilha do Aplicativo Microsoft Excel VBA(Visual Basic Application) está equipado com macros e fórmulas que verifica o preço do combustível Álcool em relação à Gasolina.   - Se o preço estiver abaixo de 70% do valor, fórmula calculará o percentual de diferença com o preço da gasolina e retornará o valor que está economizando com relação à gasolina, fornecendo o percentual e valor, quando o valor for favorável ao preço do Álcool, uma macro ligada ao Evento Worksheet_Change da Folha de Planilha mostra uma mensagem "Natureza Ganhando", se for gasolina "Natureza Perdendo"

Pedido: Sr. Marcondes precisamos de uma planilha para expor em nosso site, que calcula o preço Alcool X Gasolina, e uma retorna a porcentagem e Valor (acima ou abaixo - calculandos perdas ou ganho)  - (Manteremos um link para seu site, como agradecimento) - Gilberto.
R.:  Prezado, Gilberto, segue a planiilha conforme sua solicitação, adpte segundo às suas necessidades. 
Fique com  Deus, - E_Marcondes  - SaberExcel





FÓRMULA USADA PARA O RETORNO DA MENSAGEM:
=SE(G26>=G20;"Cuidado preço álcool não compensa "&TEXTO(G26-G20;" #0,00%")&" acima! você estará perdendo"&TEXTO(G24*SOMA(G26-G20);" R$#0,00")& " por litro";SE(G26<G20;"Compensa, pois a diferença está em :"&TEXTO(G20-G26;" #0,000%")&" você está lucrando "&TEXTO(G24*SOMA(G20-G26);"R$#0,00")&" por litro"))

Observe a macro usadas para mostrar o shapes(Autoforma) muito simples.

MACRO USADA
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("O22").Value = 1 Then
   ActiveSheet.Shapes("sna").Visible = True
   ActiveSheet.Shapes("snab").Visible = False
   ActiveSheet.Shapes("ntg").Visible = False
   ActiveSheet.Shapes("ntp").Visible = True
Else
   ActiveSheet.Shapes("snab").Visible = True
   ActiveSheet.Shapes("sna").Visible = False
   ActiveSheet.Shapes("ntg").Visible = True
   ActiveSheet.Shapes("ntp").Visible = False
End If
End Sub



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



  Baixe o exemplo de planilha contendo macro e fórmulas acima
vba combustivel verifica abastecimento alcool (113.41 KB 2011-02-03 10:20:16)

Última atualização em Qua, 10 de Agosto de 2011 08:17  

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