UserFrm VBA lottery

  1. 9 bulan yang lalu

    Hello abang abang master yang saya hormati, saya nubi, mo tanya dong:

    1.Saya ingin membuat undian dengan menggunakan Userform
    2.Menggunakan Tombol Mulai dan Tombol Henti (untuk output) dan hasil output tampil di listbox
    3.Output yang dihasilkan/tampil adalah Nama Peserta, Nomor Registrasi, Hadiah
    4.dan bagaimana jika hadiah disertakan gambar

    Maaf, file sudah ada Userformnya tapi masih kosong dari kode VBA
    Terimakasih sebelumnya

    Berikut terlampir contoh scripting VBA yang bisa mas @Vei-Rid pelajari... ;)

  2. Caton

    27 Des 2017 Terverifikasi Jawaban Terpilih Indonesia + 11.522 Poin

    Berikut terlampir contoh scripting VBA yang bisa mas @Vei-Rid pelajari... ;)

  3. Alhamdulillaaah....
    Terimakasih bang Caton... arigatogozaimasu.... hasilnya melebihi ekspektasi saya...
    penantian yang tidak sia-sia...

    jadi semangat lagi bertanya hehehehe....

  4. Di sunting 9 bulan yang lalu oleh Vei-Rid

    Wuih bang, saya masih excited banget dengan aplikasinya
    Ternyata gambarnya disimpan di Userform ya... wuih... mangstab...

  5. Di sunting 9 bulan yang lalu oleh Vei-Rid

    Oya bang, kalo seumpamanya peserta yang sudah dapat tidak dapat terundi kembali bisa kan?
    dan keluar MsgBox "Peserta Sudah Terundi".... atau terhapus dari daftarpeserta

  6. Caton

    27 Des 2017 Terverifikasi Indonesia + 11.522 Poin

    ... Ternyata gambarnya disimpan di Userform ya...

    Bisa juga gambar-gambar disimpan di salah satu Worksheet. Jika setiap gambar yang akan ditampilkan disimpan pada Shape Object, prosesnya mungkin akan sedikit kompleks namun dapat dimudahkan dengan menggunakan modul PastePicture dari Stephen Bullen's Excel Page . Jika setiap gambar yang akan ditampilkan disimpan pada Image Object (ActiveX Control), maka gambar dapat dimuat ke Image Object pada UserForm misalnya dengan menggunakan script:

    ...
    Set imgOnForm.Picture = Sheet1.imgOnSheet.Picture
    ...

    atau

    ...
    Set imgOnForm.Picture = Sheet1.OLEObjects("imgOnSheet").Object.Picture
    ...

    Kedua script akan menampilkan gambar dari kontrol imgOnSheet pada Worksheet Sheet1 ke kontrol imgOnForm pada UserForm (Ini sebagai contoh saja. Catatan: imgOnSheet dan imgOnForm merupakan nama kustom. Standarnya akan berupa Image1, Image2 dan seterusnya).

    ... kalo seumpamanya peserta yang sudah dapat tidak dapat terundi kembali bisa kan?
    dan keluar MsgBox "Peserta Sudah Terundi".... atau terhapus dari daftarpeserta ...

    Terlampir file revisi script VBA sesuai pertanyaan mas @Vei-Rid ... ;)

  7. Ooowh... i.c.
    Jadi gambar suda tertempel di sheet ya... tidak link dulu ke folder

    Terlampir file revisi script VBA sesuai pertanyaan mas @Vei-Rid ... ;)

    OK bang, haturnuhun, saya pelajari lagi ya... :) (y)

  8. Caton

    27 Des 2017 Terverifikasi Indonesia + 11.522 Poin

    ... Jadi gambar suda tertempel di sheet ya... tidak link dulu ke folder ...

    Bisa saja kalau mau gambarnya diload dari filenya langsung. Coba dicari diforum ini tentang cara meloading gambar dari file ke Image Object, salah satunya dapat dibaca pada diskusi di sini... ;)

    OK bang, haturnuhun, saya pelajari lagi ya...

    Oke mas bro. Sama-sama ... :) Silahkan dipelajari dan dimodifikasi... ;)

  9. OK Bang, Learning by doing.... bang :D

 

atau Mendaftar untuk ikut berdiskusi!