Eşittir Sorunu

[bhdr]

Merhaba;

VBA' da yapmaya çalıştığım hesap makinesinde eşittir' e basınca gerekli işlemi yapması için kodu yazamadım.Yardımcı olabilirseniz çok sevinirim.

Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton16_Click()
sonuc.Text = Evaluate("=" & sonuc.Text)
End Sub

 

[bhdr]

Deneyiniz.

Private Sub CommandButton16_Click()
sonuc.Text = Evaluate("=" & sonuc.Text)
End Sub

Hocam teşekkür ederim.