refresh textbox

  1. 7 bulan yang lalu

    Tolong Suhu, Saya punya kendala
    Bagaimana caranya agar textbox yang berisi kode acak dengan

    Private Sub UserForm_Initialize()
        TextBox2 = WorksheetFunction.RandBetween(7260001, 7269999)
     End Sub


    selama ini ketika tekan tombol simpan kode acak masih angka yang sama, jadi agar angka rubah harus keluar dulu
    bagaimana ketika tekan tombol simpan, textbox otomatis refresh kode acaknya

  2. Caton

    25 Apr 2018 Terverifikasi Indonesia + 12.596 Poin
    Di sunting 7 bulan yang lalu oleh Caton

    @Mr.P ...

    Di dalam Event Procedure dari tombol simpan tersebut, eksekusi kembali script tersebut:

    Private Sub cmdSimpan_Click()
        ...
        TextBox2 = WorksheetFunction.RandBetween(7260001, 7269999)
        ...
    End Sub

    Demikian.

  3. Di sunting 7 bulan yang lalu oleh manweljs_

    kira-kira seperti ini

    Private Sub CommandButton1_Click()
    TextBox2 = WorksheetFunction.RandBetween(7260001, 7269999)
    ActiveSheet.Range("A1") = TextBox2
    End Sub

    eh ada mas @Caton

    atau seperti diatas :D

  4. terima kasih suhu semuanya..work

  5. 6 bulan yang lalu

    Suhu, mau buat kode barang nomor urut dengan depan huruf cth: PJK034

  6. @Mr.P

    terlampir contoh sederhana untuk kode barang dengan huruf

 

atau Mendaftar untuk ikut berdiskusi!