Excel –Macros e Programação em VBA

13 de setembro de 2007Pág. 70

Excel –Macros e Programação em VBA

13 de setembro de 2007Pág. 70

UTFPR –DamatU s e r F o r m s   – E x e m p l o 1'Mostrar a figura no visor 2If P2 = 1 ThenImage2.Picture = Figura1.PictureElseIf P2 = 2 ThenImage2.Picture = Figura2.PictureElseIf P2 = 3 ThenImage2.Picture = Figura3.PictureElseIf P2 = 4 ThenImage2.Picture = Figura4.PictureEnd If 

 Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 1Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 1UTFPR –DamatU s e r F o r m s   – E x e m p l o 1'Mostrar a figura no visor 3If P3 = 1 ThenImage3.Picture = Figura1.PictureElseIf P3 = 2 ThenImage3.Picture = Figura2.PictureElseIf P3 = 3 ThenImage3.Picture = Figura3.PictureElseIf P3 = 4 ThenImage3.Picture = Figura4.PictureEnd If 

 Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 2Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 2UTFPR –DamatU s e r F o r m s   – E x e m p l o 1 

'Atualização do saldoS a l d o =   S a l d o - 1 'Verificar se o jogador ganhouIf P1 = P2 And P2 = P3 ThenIf P1 = 1 ThenSaldo = Saldo + 25MsgBox "Você tirou a sorte grande!!!"ElseSaldo = Saldo + 10MsgBox "Você venceu!!!"End If End If 

 Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 3Exce l –Macros e  Programação em VBA1 3   d e  s e t e m br o   d e  2 0 0 7 P ág .   7 3UTFPR –DamatU s e r F o r m s   – E x e m p l o 1'Calcular e exibir o total acumuladoLabel1.Caption = Format(Saldo, "R$0.00")If Saldo <= 0 ThenMsgBox "Você está sem crédito!"a = InputBox("Quer mais crédito? Em caso afirmativo, digite Sim.")If a = "Sim" Or a = "sim" ThenSaldo = InputBox("Quanto você deseja comprar?")Label1.Caption = Format(Saldo, "R$0.00")End If End If 

Job Board

About

Press

Blog

Stories

Terms

Privacy

Copyright

  We're Hiring!

  Help Center

Academia © 2015