Calculadora

Criar uma calculadora simples no Excel usando VBA envolve definir algumas funções básicas de matemática (como adição, subtração, multiplicação e divisão) e configurar as células do Excel para usar essas funções. Abaixo, vou fornecer um exemplo de como você pode estruturar isso.

No exemplo, vamos supor que:

• A célula A1 conterá o primeiro número.
• A célula A2 conterá o segundo número.
• A célula A3 conterá a operação (por exemplo, “+”, “-“, “*”, “/”).
• A célula A4 exibirá o resultado.

Primeiro, crie as funções básicas:

Function Somar(a As Double, b As Double) As Double
    Somar = a + b
End Function

Function Subtrair(a As Double, b As Double) As Double
    Subtrair = a - b
End Function

Function Multiplicar(a As Double, b As Double) As Double
    Multiplicar = a * b
End Function

Function Dividir(a As Double, b As Double) As Double
    If b <> 0 Then
        Dividir = a / b
    Else
        Dividir = "Erro: Divisão por zero"
    End If
End Function

Sub Calcular()
    Dim num1 As Double
    Dim num2 As Double
    Dim operacao As String
    Dim resultado As Variant

    ' Lê os valores das células
    num1 = ThisWorkbook.Sheets(1).Range("A1").Value
    num2 = ThisWorkbook.Sheets(1).Range("A2").Value
    operacao = ThisWorkbook.Sheets(1).Range("A3").Value

    ' Determina a operação a ser realizada
    Select Case operacao
        Case "+"
            resultado = Somar(num1, num2)
        Case "-"
            resultado = Subtrair(num1, num2)
        Case "*"
            resultado = Multiplicar(num1, num2)
        Case "/"
            resultado = Dividir(num1, num2)
        Case Else
            resultado = "Operação inválida"
    End Select

    ' Exibe o resultado na célula A4
    ThisWorkbook.Sheets(1).Range("A4").Value = resultado
End Sub

1. Abra o Excel e pressione ALT + F11 para abrir o Editor do VBA.
   No menu “Inserir”, escolha “Módulo” para criar um novo módulo.
   Cole o código das funções e da sub-rotina no módulo.
2. No Excel, digite os dois números nas células A1 e A2, e a operação desejada (+, -, *, /) na célula A3.
   Execute a sub-rotina Calcular para ver o resultado na célula A4.
   Este é um exemplo básico de como você pode criar uma calculadora simples no Excel usando VBA. Você pode expandir ou modificar este exemplo conforme necessário para incluir mais funcionalidades.