Ir ao conteúdo
  • Cadastre-se

Excel caixa de texto MsgBox para leitura de dados inseridos na caixa InputBox


Posts recomendados

Olá pessoal, como utilizar a caixa de texto MsgBox para leitura de dados inseridos na caixa InputBox? Por exemplo num módulo VBA que mostra se o aluno foi aprovado, em recuperação ou reprovado. Quando eu atribuo valores para n1 e n2 o programa funciona bem, porém eu gostaria que o usuário atribuísse os valores. Então, eu preciso de criar uma instrução InputBox, conforme abaixo e uma instrução MsgBox para ler a nota digitada pelo usuário. Já tentei várias soluções, mas, sem sucesso. Obrigado.

 

Sub nota_aluno()
    Dim n1, n2, med As Double
    InputBox ("Digite a 1ª Nota")
    MsgBox ?????

    InputBox ("Digite a 2ª Nota")
    MsgBox ?????
    med = (n1 + n2) / 2
    MsgBox "A média do aluno = " & med
    If med >= 7 Then
        MsgBox "aluno aprovado"
    ElseIf (med < 7) And (med >= 6) Then
        MsgBox "aluno em recuperação"
    Else
        MsgBox "aluno reprovado"
    End If
End Sub

Link para o post
Compartilhar em outros sites

@riberex00 Atribua o Inputbox a essas variáveis,

 

 Sub nota_aluno()
    Dim n1, n2, med As Double
    
    n1 = Val(InputBox("Digite a 1ª Nota"))
    n2 = Val(InputBox("Digite a 2ª Nota"))
    med = (n1 + n2) / 2
    
    MsgBox "A média do aluno = " & med
    If med >= 7 Then
        MsgBox "aluno aprovado"
    ElseIf (med < 7) And (med >= 6) Then
        MsgBox "aluno em recuperação"
    Else
        MsgBox "aluno reprovado"
    End If
End Sub

 

  • Curtir 1
Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

livros-black-friday.jpg

SEMANA BLACK FRIDAY
Clube do Hardware

Todos os livros por apenas R$ 9,99 cada!

Eletrônica | Montagem de Micros | Redes