Hi,
das ist eigenltich ziehmlich leicht.
1. Userform erstellen
2. TextBox für die Eingabe einfügen
3. Knöpfe für +, -, *, / etc. einfügen (CommandButton)
Berechnungen einfügen z.B.:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Option Explicit
Dim V#
Private Sub Plus_Click()
If IsNumeric(Eingabe) Then
V = V + Eingabe
Eingabe = vbNullString
End If
End Sub
Private Sub Gleich_Click()
Eingabe = V
End Sub
Private Sub Clear_Click()
Eingabe = vbNullString
End Sub
|
Das wäre z.B. ein Taschenrechner der Addition beherscht. Substraktion, Multiplikation etc. kannst du genauso einbauen. Wenn du den Rechenweg im Display anzeigen willst, wird das ganze etwas komplizierter, weil Strings auseinandernehmen und interpretieren musst. Funktion wie Wurzel etc. kannst du z.B. so einfügen:
V=Sqr(X)
Die Tabellenfunktionen kannst du ebenfalls in VBA verwenden, allerdings kennt VBA nur die englischen Namen z.B.:
WorksheetFunction.Min(1,2,3,4,5)
Oder:
WorksheetFunction.Min(Arr)
Rechnen mit Arrays macht deinen Taschenrechner aber wesentlich komplizierter....
Gruß
Till
|