Wa'alaikumussalam wr wb
Hai Husnul,
Bagaimana kalau dicoba sendiri langkah berikut ini. Data dan format bisa
seperti file milik Anda saja (maaf banget, saya masih belum tahu bentuk isi
file Anda seperti apa).
1. berdasar :
> Saya mengharapkan bantuan dan solusi dari aplikasi yang saya buat ini,
> dimana didalamnya berisi 2 Tab (*Tab DATA PESERTA dan Tab DENAH*)
> buat workbook baru berisi 2 sheet. sheet pertama diberi nama DATA PESERTA
dan sheet kedua diberi nama DENAH
> lakukan save as -> pilih folder penyimpanan (sebaiknya tidak di drive C
dan *hafalkan lokasi folder penyimpanannya*)
> -> pilih file type yang xlsm (enabled macro) ->
beri nama file -> tekan Save
>
2. berdasar :
> 1. Saya ingin *kolom FOTO pada tab DATA PESERTA di tiadakan saja* tetapi
> di ganti dengan membuat *Folder khusus image/foto* (saya mencoba
> mempelajari filenya mr. kid yang judulnya vba insert foto, tapi saya tidak
> dapat mengerti karena masih pemula ini, maka mohon bantuannya mr. kid)
> buka file milik Anda (yang di-rar itu) -> lihat sheet DATA PESERTA copy
tabel datanya saja (beserta header data) -> paste ke file hasil langkah 1
diatas pada sheet DATA PESERTA juga
*** (akan di paste supaya posisi cellnya sama juga boleh deh, sebarang
lokasi juga boleh kok karena sekedar repot menyesuaikan hal-hal yang
berkaitan di sheet DENAH nantinya [pasti di sheet DENAH ada formula yang
merujuk langsung atau ndak langsung ke sheet DATA PESERTA bukan?)
> hapus kolom FOTO sampai bersih-sih (maksudnya, format cell dan segalanya
jadi tidak ada alias beneran jadi cell kosong tanpa ada barang apapun,
apalagi kalau kolom itu tadinya sudah diisi foto saya, wakakaka)
> ke windows explorer -> ke folder tempat menyimpan file di langkah 1 di
atas sana -> buat sebuah folder baru (misal diberi nama images)
*** [pake s loh ya, ini supaya saya gampang mbayanginnya saja kok, tapi
sebenarnya sesuka Anda saja namanya asal nanti disesuaikan saja pada
langkah-langkah berikutnya]
> copy semua file gambar yang dibutuhkan si sheet DATA PESERTA ke folder
images tersebut. Usahakan berupa JPG file ya (biar gampang ngikutin
langkahnya. sebenarnya bisa tipe apa aja yang bisa diterima Excel melalui
ribbon Insert Picture kok)
> karena kolom FOTO sudah dihapus, maka buat kolom baru (rapat dengan data
alias *tanpa ada *kolom kosong diantaranya) dan beri header berbunyi 'Nama
File Fotonya'
> mulai di baris datanya, Anda tulis nama-nama file fotonya yang ada di
folder images tadi yang sesuai. Misal record pertama akan dipasangi foto
bernama file kid_guanteng.jpg, maka tulis di kolom baru itu di baris milik
record pertama tulisan nama filenya yang berbunyi 'kid_guanteng.jpg'
*** kalau ada record yang belum punya file fotonya, biarkan kosong
atau isi dengan nama file sebarang seperti belum_ada.jpg
3. berdasar :
> 2. Folder foto/image tsb nantinya sebagai rujukan agar muncul foto dinamis
> pada tab DENAH (seperti penjelasnnya mr. kid membuat folder image agar
> tidak membebani aplikasi)
> copy isi sheet DENAH di file Anda -> lalu paste ke sheet DENAH di file
hasil langkah 1 (semua barang yang ada disana ya)
> cek formula atau link apa saja yang ada di setiap cell dalam hasil paste
itu, sesuaikan rujukan ke sheet DATA PESERTA yang kurang pas
*** sampai sini, sheet DATA PESERTA dan sheet DENAH hanya berisi data,
formula, dan barang-barang yang penting. Bisa jadi ada nama range atau
sheet lain yang tidak ter-copy. Selama formula dan segala link di sheet
DENAH bisa merujuk ke DATA PESERTA, maka barang selainnya yang belum
ter-copy tidak diperlukan untuk kasus ini.
4. berdasar :
> (saya mencoba mempelajari * file*nya mr. kid yang judulnya *vba insert
> foto*
> di file hasil langkah 1 yang sudah berisi data karena proses di langkah
2, lihat VBE (ALT F11) -> menu Insert -> module
> unduh file vba_input_picture.zip yang ada disini
<https://app.box.com/s/vp8lqos5zq0gb4kx94i6>.
> extract ke sebuah folder -> buka file input_picture.xlsm (macro boleh di
disable biar gak bingung)
> di file input_picture.xlsm yang sudah dibuka -> ke VBE (ALT F11) -> lihat
isi folder Modules
> -> double click modUDF -> lihat sisi kanan
layar muncul baris-baris kode
> -> copy prosedur bernama SearchShapes (dari baris
berbunyi private sub searchshapes blabla sampai end sub milik si prosedur)
-> paste ke lembar module hasil insert module (hasil step pertama di
langkah 4 ini)
> -> copy juga prosedur bernama GetImageMedia (BUKAN GetImage) ->
paste ke baris kosong di hasil step pertama langkah 4 ini
> tutup file input_picture.xlsm (tanpa perlu di-save)
> save file kerja Anda (hasil langkah 1 yang sudah dilengkapi data dan
hasil copy-an script 2 buah prosedur tadi)
5. menyimpan nama lengkap folder lokasi file-file foto
> di sheet DATA PESERTA -> pilih sebuah cell kosong yang tidak akan
ditabrak oleh data (misal di cell z1) -> isi dengan formula berikut : (itu
sebabnya si folder foto di satu folder dengan lokasi menyimpan file xlsm
nya. silakan sesuaikan sendiri jika sudah paham)
*** jika regional setting setempat adalah Indonesian, ganti karakter
koma dalam formula dengan titik koma
=left( cell("filename") , find( "\[" , cell("filename") ) ) &
"images\"
(contoh hasil : D:\folder\subfolder\subnyalagi\images\ jika file xlsm
disimpan di D:\folder\subfolder\subnyalagi)
6. membuat cell lokasi foto (ukuran cell sudah disesuaikan lebar dan
tingginya sebesar foto yang mau dipasang ya) berisi nama file foto yang
akan dipasang di cell tersebut
>> ke sheet DENAH -> klik cell pertama yang akan dipasangi foto (kalau
sudah ada object picture atau malah activex images disitu, hapus saja biar
bersih cell nya)
>> buat formula (vlookup atau index match atau apapun) yang bisa mengambil
nama file foto alias isi cell kolom 'Nama File Fotonya'
*** jadi, kalau cell pertama ini harusnya terisi foto milik record
pertama yang nama filenya 'kid_guanteng.jpg', maka hasil formulanya di cell
ini akan berbunyi kid_guanteng.jpg
7. memasang si foto di cell pertama (yang diberi formula di langkah 6)
menggunakan UDF bernama GetImageMedia
> di sheet DENAH -> di cell lain didekat si cell berformula hasil langkah 6
tadi (di cell yang ada di atasnya atau kirinya atau kananya atau bawahnya)
isi dengan formula berikut :
*** jika regional setting setempat adalah Indonesian, ganti karakter
koma dalam formula dengan titik koma
*** ingat, teks folder images nya tadi ada di sheet DATA PESERTA cell z1
loh, jadi sesuaikan sendiri ya
*** anggap saja cell berformula hasil langkah 6 ada di cell B1 ya
(sesuaikan saja)
=*GetImageMedia(* 'DATA PESERTA'!$z$1 & if( len( B1 ) > 4 , B1 ,
"kid.jpg" ) , B1 *)*
yang hitam : nama UDF nya, yang perlu inputan nama file foto lengkap
(merah) dan cell lokasi meletakkan fotonya (biru)
> save workbook (harus di save dulu, kuatirnya ada penyebab crash dalam
workbook tersebut [lihat ***catatan])
> buat untuk cell foto lainnya (copy paste juga boleh)
> save workbook lagi bila perlu
*** catatan :
>> jika terjadi crash, biasanya disebabkan proses redraw yang bertumpuk
dan berulang. Hal ini biasanya disebabkan oleh objects dari golongan Form
Control (apa saja object tersebut ? lihat ribbon Developer -> group
Controls -> klik Insert -> lihat daftar bagian Form Controls)
>> object controls dari bagian ActiveX controls relatif aman, kecuali
object activex control yang di-add sendiri melalui meng-klik More Control
di ribbon Developer -> group Controls -> insert -> bagian ActiveX Controls
-> More Controls (gambar palu kalo gak salah)
>> pastikan semua objects dari Form Controls dihapus dan diganti dengan
object controls dari Activex Controls yang sepadan atau yang memiliki
fungsi yang sesuai kebutuhan
Selamat mencoba.
Kalau ada BeExceller (siapa saja) yang sudah jadi (entah error atau
berhasil) mengikuti langkah-langkah di atas dengan seksama, mohon filenya
di-posting ke milis ya. Sukur-sukur kalo dongengan di atas disertakan
menjadi sebuah sheet baru di file yang di-posting ke milis. Makasih banget
buat yang posting...
Moga-moga dalam beberapa minggu ke depan saya sudah bisa extract rar milik
Anda dan mengutak atiknya
Maaf banget karena ndak bisa bantu lebih banyak saat ini.
Tetap semangat....
;)
Wassalamu'alaikum wr wb
Kid.
2015-02-23 22:43 GMT+11:00 HUSNUL FAIZIN husnulfaizin1...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Yth. Para Master Bexcel yang berbahagia semoga selalu sehat agar dapat
> terus memberikan manfaat yang besar di milis ini.
>
> ass. wr wb
> Saya mengharapkan bantuan dan solusi dari aplikasi yang saya buat ini,
> dimana didalamnya berisi 2 Tab (Tab DATA PESERTA dan Tab DENAH)
> Permasalahanya:
> 1. Saya ingin kolom FOTO pada tab DATA PESERTA di tiadakan saja tetapi di
> ganti dengan membuat Folder khusus image/foto (saya mencoba mempelajari
> filenya mr. kid yang judulnya vba insert foto, tapi saya tidak dapat
> mengerti karena masih pemula ini, maka mohon bantuannya mr. kid)
>
> 2. Folder foto/image tsb nantinya sebagai rujukan agar muncul foto dinamis
> pada tab DENAH (seperti penjelasnnya mr. kid membuat folder image agar
> tidak membebani aplikasi)
>
> Demikian permasalahan yang saya sampaikan untuk mendapat solusi
> sebaik-baiknya untuk dpat menyiapkan administrasi ujian sekolah secepatnya.
> atas bantuan dan solusi terbaiknya, sebelumnya saya sampaikan terimakasih.
>
> wassalam.
> husnul F
>
>
>
