Leading zero format di textbox userform

  1. 6 tahun lalu

    Dear all n master20excell,
    Mohon bantuan,bagaimana cara menampilkan di textbox angka dengan leading zero,
    Misalnya angka 123 tampil di textbox dgn leading zero 6,jadi 000123.kalau di sheet bisa
    dengan rumus Rept. Kalau di textbox bagaimana y?
    Thanks before

    Pada file yang mas @Aribowo lampirkan, sepertinya script tersebut dibutuhkan pada Event Procedure UserForm_Activate:

    Private Sub UserForm_Activate()
    Dim MyRange As Range
    Dim ws As Worksheet
    
    Set ws = Worksheets("DATABASE")
    
    Set MyRange = ws.Range("Nama")
    jawab = Application.WorksheetFunction.Max(MyRange) + 1
    
    Me.TNOID.Value = String$(6 - Len(jawab), "0") & jawab
    Me.TNOID.Enabled = False
    
    End Sub

    atau ...

    Private Sub UserForm_Activate()
    Dim MyRange As Range
    Dim ws As Worksheet
    
    Set ws = Worksheets("DATABASE")
    
    Set MyRange = ws.Range("Nama")
    jawab = Application.WorksheetFunction.Max(MyRange) + 1
    
    Me.TNOID.Value = Format$(jawab, "000000")
    Me.TNOID.Enabled = False
    
    End Sub

    Demikian... ;)

  2. Ini lmpiran file,tadi susah upload

  3. pakai tanda ' mungkin

  4. Caton

    6 Mar 2018 Terverifikasi Indonesia + 20.101 Poin

    @Aribowo ... gunakan fungsi FORMAT$() atau STRING$, misalnya:

    Hasil = Format$(Angka, "000000")

    atau

    Hasil = String$(6 - Len(Angka), "0") & Angka

    Demikian... ;)

  5. Di sunting 6 tahun lalu oleh Aribowo

    Dear mas @Caton ,

    Hasil = String$(6 - Len(Angka), "0") & Angka ,diletakkan scriptnya yg mana y Mas?
    Saya coba" gak berhasil ..h,h. Maklum newbe.

  6. Caton

    6 Mar 2018 Terverifikasi Jawaban Terpilih Indonesia + 20.101 Poin

    Pada file yang mas @Aribowo lampirkan, sepertinya script tersebut dibutuhkan pada Event Procedure UserForm_Activate:

    Private Sub UserForm_Activate()
    Dim MyRange As Range
    Dim ws As Worksheet
    
    Set ws = Worksheets("DATABASE")
    
    Set MyRange = ws.Range("Nama")
    jawab = Application.WorksheetFunction.Max(MyRange) + 1
    
    Me.TNOID.Value = String$(6 - Len(jawab), "0") & jawab
    Me.TNOID.Enabled = False
    
    End Sub

    atau ...

    Private Sub UserForm_Activate()
    Dim MyRange As Range
    Dim ws As Worksheet
    
    Set ws = Worksheets("DATABASE")
    
    Set MyRange = ws.Range("Nama")
    jawab = Application.WorksheetFunction.Max(MyRange) + 1
    
    Me.TNOID.Value = Format$(jawab, "000000")
    Me.TNOID.Enabled = False
    
    End Sub

    Demikian... ;)

  7. Ok,mas @Caton ..siip joss tenan

 

atau Mendaftar untuk ikut berdiskusi!