rekenmachine van windows activeren in userform

[Andre175]

goedenavond

Is het mogelijk om de rekenmachine van Windows te activeren in een Userform?
Bijvoorbeeld door een Commanbutton.


André

 

[snb]

Bijv.

Private Sub UserForm_Click()
    Shell "calc.exe"
End Sub

 

[Andre175]

Top.....

en als de berekende waarde nu in het geheugen wordt gezet van de rekenmachine (toets MS of ctrl+M), is deze waarde dan weer terug te halen in bijvoorbeeld een textbox?

Nog mooier zou zijn, wanneer de rekenmachine afgesloten wordt, dat dan de waarde op het "Display" van de rekenmachine automatisch in een Textbox (of label) geplaatst wordt.

 

[edmoor]

Dat gaat niet met de Windows Calculator. Wel met een calculator die je zelf maakt in VBA.
Gelukkig is dat al voor je gedaan en kan je die hier downloaden:
https://analysistabs.com/vba-code/excel-projects/calculator-userform/

 

[Andre175]

Hier kom ik wel verder mee..... bedankt voor de reacties.:thumb:

 

[Ginger]

Excel is opzich natuurlijk 1 grote rekenmachine... Maar buiten dat, er zit er ook 1 als ingebouwde functionaliteit. Deze kan je bijvoorbeeld als standaard knop in je QAT (quick accesss toolbar) plaatsen. Open de QAT en kies voor All Commands. Scroll dan naar onder naar Calculator en plaats deze naar rechts als knop. Klaar ben je.

 

[snb]

@Ginger

:thumb::thumb:

@edmoor

Ik dacht aan een label in het userform:
Resultaat kopiëren in de calculator en vervolgens in het userform klikken.

Private Sub UserForm_Click()
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       .GetFromClipboard
       Label1.Caption = .GetText
    End With
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Shell "calc.exe"
End Sub

 

[edmoor]

Dan moet je wel eerst in de calculator op Ctrl-C drukken.