Selamat pagi
Salam untuk semua para exceler
Terimakasih atas wejangan dari Ki Semprul, memang seharusnya dalam suatu
pembahasan harus ada repons dari si pelempar soal, dan saya sebagai penanya
mungkin agak kurang response atau mungkin dikarenakan BBM naik maka jatah untuk
ngenet modem berkurang mengikuti situasi saat ini, hihihi ( Modem Sakaratul
Maut ), saya memaklumi hal itu dan sangatlah wajar bila terjadi, untuk itu
kembali saya mengucapkan terimakasih atas semuanya, dan terimakasih untuk Ki
Semprul yang sudah menjawab, saya akan coba saran yang Ki Sempul berikan. untuk
file tersebut sudah saya unduh dan mulai mencoba, namun mengingat file terlalu
besar sepertinya sulit untuk di lampirkan.
Salam
Nor Hidayat
==============================================
Mods Note:
Sekalian menambahkan: ada titipan sms dari Ki Semprul,
memberitahu ada salah tulis pada kiat menghilangkan ".JPG"
pada tiap file Gambar type *.JPG
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
seharusnya
Range("G" & i).Value = Replace(uCase(sFile), ".JPG", "")
Jadi Fungsi Replace milik VBA adalah padanan fungsi
SUBSTITUTE milik Worksheet, percayalah !
==============================================
--- Pada Kam, 29/3/12, Ki Semprul <semprul...@gmail.com> menulis:
Dari: Ki Semprul <semprul...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 29 Maret, 2012, 12:45 AM
Ysh Bapak Dayat Shogun...
Bapak datang sbg pendekar bertangan kosong, tak selembar data pun
diajukan sbg contoh
(misal "oret-oretan yg KATANYA sudah mengikuti prosedur yg
disarankan", seperti apa ?)
- padahal kasus yg Bapak ajukan adalah kasus yg sudah lewat 1 bulan y.l
( http://tech.groups.yahoo.com/group/belajar-excel/message/15978 )
- sebulan yg lalu ketika diberikan 1 FILE jawaban ( *rar berisi
kompresi 1 folder / 43 files
sebesar 696 KB; / (banyaknya file contoh gambar menunjukkan
seriusnya pemberi solusi)
tetapi sejak diberikan sampai saat ini: tidak pernah Bapak kabarkan
apakah sudah diunduh
& dicoba atau belum) ??
Saya juga sangat yakin bahwa tanggapan ini pun tidak akan anda tanggapi..
Lalu... Dengan "cara & perila..(maaf)" seperti itu, Apakah yg masih
Bapak harapkan ?
Apakah kira-kira ada orang yg masih tertarik (termasuk si pemberi
solusi sebelumnya) ?
Baik kita lupakan saja hal-2 diatas karena itu sudah menjadi urusan
QOLBU kita masing2
(jawaban A)
Combobox itu ketika muncul selau berisi items pilihan: nama-2 file yg
memang ADA
di dalan folder (jika tidak ada = tidak akan didaftar sebagai item
pada Combobox)
Jadi mengapa Bapak masih mengetikkan manual di combo List ? (padahal ada cara
menentukan nama file, hanya dengan MEMILIH salah satu item yg ada di List ??
(jawaban B)
Text Nama file yg akhirnya muncul lengkap dengan *.JPG nya; Kalau
semua extensi file
gambar pasati = *JPG dengan mudah dapat dihilangkan *.JPG (extensi) nya
Lihat di dalam Loop Do While
CboName.AddItem sFile
i = i + 1
Range("G" & i).Value = sFile
diganti dengan
CboName.AddItem Replace(ucase(sFile), ".JPG")
i = i + 1
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
Ketika saatnya dipanggil codenya juga harus disesuaikan, (lihat
Event-Prosedur Cbo_Name_Change)
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName))
diganti dengan
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".JPG"))
Tricky dikit ndak pa pa kok Pak...dari pada diam-diam error
Tidak ada lampiran di posting ini, tetapi tetap merujuk ke link yg
telah diberikan neng iHaps sebulan.y.l.
Semprul..Ki!
( as requested by Neng iHaps asli ( he he..), karena sedang tak-ada
koneksi i'net )
