Macro de equação quadrática no Excel: 3 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

você pode resolver facilmente uma equação quadrática simplesmente acessando ferramentas-macro-execução de macro. Eu sou um novo membro e realmente preciso de qualquer tipo de feedback que você possa dar. Gostaria de não usar nenhum papel para resolver essas equações!

Etapa 1: Configurando as coisas

abrir o Excel qualquer ano está bem (preferível 03 foi o que usei para fazer essa macro). Se você estiver usando o excel 07, ele estará em exibição e haverá uma pequena caixa que diz macro. Clique no ícone e vá para gravar macro. Uma janela aparecerá e configurará o nome e as descrições da macro. Depois de fazer isso, clique no ícone da macro novamente e uma outra janela aparecerá, deve haver na janela o nome da macro (o nome padrão será Macro1)

Etapa 2: Fazendo a macro

Ok, agora você vai editar na janela que apareceu, ela deve estar no terceiro lado direito para baixo. Quando você pressiona o botão de edição, uma nova janela aparece chamada de editor visual básico. Deve haver uma barra de ferramentas e tudo como qualquer janela, mas na janela deve haver uma grande área cinza com uma janela chamada Módulo1 (Código). Dentro do Módulo1, clique conforme ia digitar nele e copie e cole nele (faça com que você exclua tudo antes de fazer isso na caixa Módulo1.) Sub Quadrática Fórmula () Dim a As Long Dim b As Long Dim c As Long MsgBox prompt: = "ax^{2 + bx + c = 0 ", _} Title: = "Resolvendo um polinômio quadrático do formulário:" a = Application. InputBox (prompt: = "Insira o valor do coeficiente 'a'", Digite: = 1) b = Application. InputBox (prompt: = "Enter o valor do coeficiente 'b' ", Digite: = 1) c = Application. InputBox (prompt: =" Insira o valor do coeficiente 'c' ", Digite: = 1) If a = 0 Then MsgBox" A equação não é quadrático "Else If ((b * b) - (4 * a * c))> = 0 Then MsgBox ((-b + (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) MsgBox ((-b - (Sqr ((b * b) - (4 * a * c)))) / (2 * a)) Else MsgBox "Nenhuma solução real - Imaginária" End If End IfEnd Sub

Etapa 3: Concluindo

Quando essa janela tiver tudo que eu disse para você copiar e colar, feche o Editor Visual Basic. Por fim, vá para macros de visualização de macro e execute no lado direito o primeiro. Deverá haver uma janela que aparecerá clique em OK e então outra caixa aparecerá que terá o valor de A na equação, depois outra que terá o valor de B na equação e então outra que terá o valor de C. Está feito se você tiver um problema, diga-me e deixe-me algum tipo de feedback.