refresh textbox

  1. 5 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

    Apr 25 Terverifikasi Indonesia + 11.522 Poin
    Di sunting 5 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. manweljs_

    Apr 25 Terverifikasi + 5.020 Poin
    Di sunting 5 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. 4 bulan yang lalu

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

  6. manweljs_

    Mei 16 Terverifikasi + 5.020 Poin

    @Mr.P

    terlampir contoh sederhana untuk kode barang dengan huruf

 

atau Mendaftar untuk ikut berdiskusi!