sábado, 20 de setembro de 2014

Faça uma aplicação VBA onde o usuário entra com seu nome e a opção desejada.



Sub lista_4()
'4) Faça uma aplicação VBA onde o usuário entra com seu nome e a opção desejada.
'1- Instalar Aplicativo
'2- Fazer Beckup
'3- Restaurar Cópia
Dim opcao As String
Dim nome As String
nome = InputBox(" Olá Qual seu Nome ")

MsgBox "Opções : " + Chr(13) + Chr(13) + _
       " 1 Instalar Aplicativo" + Chr(13) + _
       " 2 Fazer Backup " + Chr(13) + _
       " 3 Restaurar Copia " + Chr(13) + _
       " Escolha a Opcao na Proxima Tela."
     
       opcao = Val(InputBox(" Digite sua Opcao "))
     
       Select Case opcao
       Case 1
       opcao = " Ola " & nome & " Voce escolheu : Instalar Aplicativo "
       Case 2
        opcao = " Ola " & nome & " Voce escolheu : Fazer Backup "
       Case 3
        opcao = " Ola " & nome & " Voce escolheu : Restaurar Copia "
       Case Else
       opcao = " Opcao Invalida "
       End Select
       MsgBox (nome & Chr(13) & " Opção Escolhida : " & opcao)
End Sub



Nenhum comentário:

Postar um comentário