Segue abaixo o código em VBA para calcular a média ponderada de quatro valores inteiros informados pelo usuário: ``` Private Sub CommandButton1_Click() Dim num1 As Integer Dim num2 As Integer Dim num3 As Integer Dim num4 As Integer Dim media As Double num1 = Range("A1").Value num2 = Range("A2").Value num3 = Range("A3").Value num4 = Range("A4").Value media = (num1 * 1 + num2 * 2 + num3 * 3 + num4 * 4) / (1 + 2 + 3 + 4) Range("A5").Value = media End Sub ``` Explicação do código: - As variáveis num1, num2, num3 e num4 são utilizadas para armazenar os valores informados pelo usuário nas células A1, A2, A3 e A4, respectivamente. - A variável media é utilizada para armazenar o resultado da média ponderada. - A fórmula para calcular a média ponderada é: (num1 * 1 + num2 * 2 + num3 * 3 + num4 * 4) / (1 + 2 + 3 + 4). - O resultado da média ponderada é exibido na célula A5. - O código deve ser associado a um botão em uma planilha. Para isso, basta inserir um botão na planilha e atribuir a macro "CommandButton1_Click" a ele.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar