Segue abaixo um exemplo de subrotina em VBA que calcula a nota final de um aluno e sua situação, de acordo com as informações fornecidas: ``` Sub calcularNota() Dim nota1 As Double Dim nota2 As Double Dim nota3 As Double Dim media As Double Dim situacao As String nota1 = Range("A1").Value nota2 = Range("B1").Value nota3 = Range("C1").Value media = (nota1 * 3 + nota2 * 4 + nota3 * 5) / 12 If media >= 70 Then situacao = "Aprovado" ElseIf media >= 40 Then situacao = "Exame" Else situacao = "Reprovado" End If Range("A3").Value = media Range("B3").Value = situacao End Sub ``` Para utilizar essa subrotina, basta abrir o editor de VBA no Excel (pressionando Alt + F11), criar um novo módulo e colar o código acima. Em seguida, basta selecionar a célula onde deseja que a nota final seja exibida e executar a subrotina. A nota final e a situação do aluno serão preenchidas automaticamente nas células A3 e B3, respectivamente.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar