Microsoft Office Tutorials and References
In Depth Information
Abbildung 13.31: Zahlenformate in Textfeldern einstellen
Die Form besteht lediglich aus drei Textfeldern. Textfeld C enthält die Division aus A
geteilt durch B. Sobald A oder B geändert werden, soll sich C sofort neu berechnen. Das
Ergebnis von C soll mit zwei Dezimalstellen angezeigt werden. Gleichwohl soll das
Ergebnis richtig berechnet werden. D.H., wenn es ein Feld D gäbe, das sich auf C
bezieht, dürfte nicht der gerundete Wert herangezogen werden, sondern der genaue
mit allen Nachkommastellen. Wenn Textfeld C aktiviert wird, soll die richtige, unfor-
matierte Zahl erscheinen, und sobald C wieder verlassen wird, soll die Zelle formatiert
werden. Wie geht das? Den vollständigen Code der Userform sehen Sie hier:
Private Sub UserForm_Initialize()
TextBox_A.Tag = 0
TextBox_B.Tag = 0
End Sub
Private Sub TextBox_A_Change()
TextBox_A.Tag= IIf(IsNumeric(TextBox_A.Value),TextBox_A.Value,0)
Kalkulation
End Sub
Private Sub TextBox_B_Change()
TextBox_B.Tag= IIf(IsNumeric(TextBox_B.Value),TextBox_B.Value,0)
Kalkulation
End Sub
Private Sub TextBox_C_Enter()
TextBox_C.Value = TextBox_C.Tag
End Sub
Search JabSto ::




Custom Search