VBA-Textfeld anzeigen Währung

Ich habe ein Formular mit einer Anzahl von Textfeldern für Benutzereingabe (dies ist in einer User-Form nicht in der Tabelle). Ich habe ein paar Kisten, die sind in Bezug auf Währungs-und ich brauche Sie, um zu zeigen, das Komma und Dezimalpunkt als der Nutzer gibt seine Kriterien in die box. So weit ich gefunden habe, einen Haufen die gleichen Formeln online, aber wenn ich die Eingabe meiner Nummer in die box geht es mit 4.00 (wenn ich 4 Treffer zuerst) und alle, die ich ändern kann, danach ist die Sekunde 0. Hier ist etwas ähnliches sehe ich online:

textbox1 = format(textbox1, "$#,##0.00")

Auch gesehen, einige mit cDbl

Egal was ich versuche es wird nicht lassen Sie mich geben Sie etwas mehr als die erste Nummer, die ich eingeben. Ich brauche Hilfe. Danke!

Könnten Sie bitte zeig uns mehr von deinem code? Ich habe nicht bekommen, wenn Sie setzen textbox1 = format(textbox1, "$#,##0.00) im Change-Ereignis des Steuerelements oder was.

InformationsquelleAutor bdubb | 2011-05-12

  1. 4

    Formatierung der Benutzereingabe in Daten wird sehr schwierig. Kann es besser sein, das format, nachdem der Eintrag abgeschlossen ist.

    Eintrag kann auch überprüft werden und der alte Wert wiederhergestellt, wenn der Eintrag als ungültig

    Dim TextBox1oldValue As String

Private Sub TextBox1_AfterUpdate()
    If IsNumeric(TextBox1) Then
        TextBox1 = Format(TextBox1, "$#,##0.00")
    Else
        TextBox1 = TextBox1oldValue
    End If
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1) Then
        TextBox1oldValue = Format(TextBox1, "$#,##0.00")
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1oldValue = "$0.00"
    TextBox1 = "$0.00"
End Sub
    Danke! Der Schlüssel zu dieser Arbeit (mit meinen Mangel an wissen), in der private sub. Es wird nicht fügen Sie Kommas als Sie geben, aber wie bereits erwähnt wurde, können Sie das format, nachdem Sie die Registerkarte " out of the box, und das ist genug für mich (hoffe ich). Also danke. Ihr seid Super, Jungs!

    InformationsquelleAutor chris neilsen

  2. 1

    Müssen Sie die TextBox-Change-Ereignis, wie:

    Private Sub TextBox1_Change()    
  If TextBox1 = vbNullString Then Exit Sub    
  If IsNumeric(TextBox1) Then CurrencyTransform(TextBox1)
End Sub

    Erstellen Sie dann die CurrencyTransform Funktion zu ändern, was es zeigt, in das Textfeld ein.

    InformationsquelleAutor Lance Roberts

  3. 0

    Versuchen Sie einfach dieses...

    Private sub textbox1_AfterUpdate()
    textbox1 = format(textbox1, "$#,##0.00")
end sub

    InformationsquelleAutor Eduardo Guarana

  4. 0

    Versuchen Sie dies:

    Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$#,##0.00")
End Sub

    Dieser arbeitete für mich einfach in Ordnung, so sollte es helfen, sowohl Sie als auch.

    Wenn Sie wollen, um Berechnungen, die mit mehreren Textfeldern, nicht mit .value nach den Namen der text box. Verwenden Sie stattdessen val( vor den Namen des Textfeldes, während Sie es mit einem Ende der Klammer. Ich verwendet .value und bekam seltsame Ergebnisse. Anstatt, zum Beispiel, $100 für TextBox1.Value + TextBox2.Value wo TextBox1.Valuegleich $25 und TextBox2.Value gleich $75, würde ich "$25$75".

    InformationsquelleAutor Jacob

Schreibe einen Kommentar