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