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... ;)
Alhamdulillaaah....
Terimakasih bang Caton... arigatogozaimasu.... hasilnya melebihi ekspektasi saya...
penantian yang tidak sia-sia...
jadi semangat lagi bertanya hehehehe....
Wuih bang, saya masih excited banget dengan aplikasinya
Ternyata gambarnya disimpan di Userform ya... wuih... mangstab...
Oya bang, kalo seumpamanya peserta yang sudah dapat tidak dapat terundi kembali bisa kan?
dan keluar MsgBox "Peserta Sudah Terundi".... atau terhapus dari daftarpeserta
... 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 ... ;)
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)
... 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... ;)
OK Bang, Learning by doing.... bang :D