Notifications
Clear all

Inserir Fórmula no botão VBA

6 Posts
3 Usuários
0 Reactions
1,580 Visualizações
(@melresende)
Posts: 0
New Member
Topic starter
 

Olá, caros companheiros de Excel/ VBA.
Gostaria de pedir a ajuda de vocês para a solução de um problema que me vem ocorrendo: estou montando uma calculadora para utilizar além das fórmulas básicas e soma, multiplicação e etc, as fórmulas de engenharia existentes no assistente de fórmulas do Excel. A questão toda é que não estou conseguindo inserir nesses botões as fórmulas que desejo.
As únicas opções que encontro são justamente inserir uma fórmula na célula, e meu desejo é calcular na própria calculadora e se quiser inserir o valor na célula clicar em um botão.

 
Postado : 09/05/2015 2:50 pm
(@rodrigod)
Posts: 0
New Member
 

Está fazendo a calculadora com UserForm ?

 
Postado : 11/05/2015 11:17 am
(@rodrigod)
Posts: 0
New Member
 

Bom, independente de ser UserForm ou não... Não sei se entendi bem, seria mais fácil se tivesse um arquivo para ver o que está pretendendo fazer.

Supondo que você coloque os valores que desejar trabalhar na fórmula nas células A1 ou B1 por exemplo, crie a macro que pegue esses valores na planilha e jogue eles dentro da fórmula que pretende utilizar... Exemplo:

x = Sheets(1).Cells(1,1).Value
y = Sheets(1).Cells(1,2).Value

Sheets(1).Cells(1,3).Value = x*y

Depois crie um botão e atribua a macro que fez a ele.
Ao criar o botão já vai aparecer a janela para atribuir a macro. Mas se quiser também pode clicar com o botão direito nele e selecionar a opção para fazer isso.

O exemplo que dei aí foi uma fórmula bem boba, mas a complexidade da fórmula não deve interferir. Pelo menos se entendi o problema...

 
Postado : 11/05/2015 11:37 am
(@melresende)
Posts: 0
New Member
Topic starter
 

Está ai o print da calculadora. Minha intensão a princípio era somente usar o visor, porém desapeguei dessa ideia kkkkk
Não estou conseguindo inserir a Macro com a fórmula no botão :(

 
Postado : 12/05/2015 11:07 am
(@rodrigod)
Posts: 0
New Member
 

Olha este código:

ThisWorkbook.ActiveSheet.Range("BG2").value = UserForm1.TextBox1.value

Ele pega o valor que está no TextBox1 e coloca na célula BG2.

No seu caso, você poderia ir no botão IMSOMA por exemplo, clicar com o botão direito do mouse e View Code. Lá poderia usar isto "UserForm1.TextBox1.value" para pegar o valor que está no visor da calculadora para utilizar na fórmula que deseja e após calcular poderia jogar esse valor no visor novamente.

x = UserForm1.TextBox1.value
formula = x*x

UserForm1.TextBox1 = formula

Não sei se este é seu TextBox1 2, 3, que seja... mas entendeu a ideia ?

Se isso não funcionar e puder compartilhar o arquivo, tentamos de outro jeito até dar certo kkkk :D

 
Postado : 12/05/2015 1:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

De uma olhada nos links abaixo se ajuda :

Uma calculadora simples em VBA
http://addanalysis.forumeiros.com/t1-co ... les-em-vba

Calculadora em VBA
http://guiadoexcel.com.br/calculadora-em-vba

[]s

 
Postado : 12/05/2015 1:23 pm