Results 1 to 6 of 6

Thread: Format number digit

  1. #1
    Board Regular
    Join Date
    Nov 2018
    Posts
    209
    Post Thanks / Like
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    Default Format number digit

    I Use zeros to format the number of digits i want when generating numbers, i.e 000 will display 054, 001, etc.
    how do i code it on a userform to just type the number of digits i want directly instead of using zeros, i.e typing 5 in a textbox and it will generate numbers like 00045,00004,00569, etc?

  2. #2
    Board Regular
    Join Date
    Mar 2015
    Posts
    4,059
    Post Thanks / Like
    Mentioned
    73 Post(s)
    Tagged
    8 Thread(s)

    Default Re: Format number digit

    Try this in userform module

    Code:
    Private Sub TextBox1_Change()
        TextBox1.Value = Format(TextBox1.Value, "00000")
    End Sub

  3. #3
    Board Regular
    Join Date
    Nov 2018
    Posts
    209
    Post Thanks / Like
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Format number digit

    This is not what I mean/want.

    This is what I'm trying to say
    There will be a textbox1 for the numbers and textbox2 for the digit.
    So the user will just input 45 into textbox1 with he inputs 6 in textbox2.
    Hence, the result will be 000045

  4. #4
    Board Regular
    Join Date
    Mar 2015
    Posts
    4,059
    Post Thanks / Like
    Mentioned
    73 Post(s)
    Tagged
    8 Thread(s)

    Default Re: Format number digit

    which textbox is completed first?

  5. #5
    Board Regular
    Join Date
    Mar 2015
    Posts
    4,059
    Post Thanks / Like
    Mentioned
    73 Post(s)
    Tagged
    8 Thread(s)

    Default Re: Format number digit

    this requires that textbox1 is completed first


    Code:
    Private Sub TextBox2_Change()
        On Error Resume Next
        TextBox2.Value = Abs(CInt(TextBox2.Value))
        If Err.Number > 0 Then
            TextBox2.Value = 0
            Exit Sub
        Else
            TextBox1.Value = Format(TextBox1.Value, String(TextBox2.Value, "0"))
        End If
    End Sub
    code not required for textbox1 but you should validate textbox1 value to ensure numeric
    Last edited by Yongle; Sep 6th, 2019 at 12:25 PM.

  6. #6
    Board Regular
    Join Date
    Nov 2018
    Posts
    209
    Post Thanks / Like
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Format number digit

    exactly what I want

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •