UserFrm VBA lottery

  1. 7 tahun 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 Dec 2017 Terverifikasi Jawaban Terpilih Indonesia + 20.102 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 7 tahun lalu oleh Vei-Rid

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

  5. Di sunting 7 tahun 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 Dec 2017 Terverifikasi Indonesia + 20.102 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 Dec 2017 Terverifikasi Indonesia + 20.102 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

  10. 9 bulan yang lalu

    bang caton,. kalau jumlah pemenangnya lebih dari 1 untuk 1 hadiah gimana ya

 

atau Mendaftar untuk ikut berdiskusi!