Formatierung Textbox in VBA den 4. Platz dezimal

Gibt es trotzdem, können Sie das format einer textbox-format für vier Dezimalstellen die ganze Zeit? Ich weiß, wie man es mit C# und Visual Basic mit einem maskierten textbox, aber vba ist ein wenig mehr challeging durch das fehlen der Funktion. Jegliche Hilfe würde sehr geschätzt werden. Dank

Public Sub UserForm_Initialize()
TextBox6.Text = Format(Number, "###.####")
End Sub
InformationsquelleAutor Russell Saari | 2011-09-29
  1. 6

    Müssen Sie nur das format-string falsch. Es sollte wie folgt Aussehen:

    Public Sub UserForm_Initialize()
    TextBox6.Text = Format(Number, "0.0000")
End Sub
    InformationsquelleAutor JohnFx
  2. 1

    Versuchen: 

    Public Sub UserForm_Initialize()
     TextBox6.Text = Format(Number, "0.0000")
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox6.Value) Then
        TextBox6.Text = Format(TextBox6, "0.0000")
    End If
End Sub

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    '//Disregard keys other than 0-9/period/minus sign.
    If Shift Then KeyCode = 0
    Select Case KeyCode
    Case 8, 13, 46, 48 To 57, 96 To 105, 109, 110, 189, 190
    Case Else
        KeyCode = 0
    End Select
End Sub
    InformationsquelleAutor Reafidy
Schreibe einen Kommentar