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 ) 2012/3/28 Dayat <[email protected]> > > Menyambung cerita lama untuk list file > Mohon pencerahannya tambahan macronya, karena saya sudah mengikuti prosedur > yanG di sarankan namun terkendala ketika mengetikkan manual didalam > combolistnya jika jawaban tidak ada dalam daftar file yang dituju maka > macronya error, trus nama file yang muncul di combobooknya ber extention > .jpg, apakah extention bisa di hilangkan sehingga hanya nama file saja yang > akan diprosess. Trims > > Regard's > Nor Hidayat > > --- In [email protected], i Haps <hapsari.stlizbeth@...> wrote: > > > > 1. > > Benar kata Ki Ageng Semprul... "dibuat *PROSEDUR SUB*" saja ! > > > Kalau keperluannya HANYA untuk mengisi Combobox, kita tidak perlu makro UDF > > (Prosedur Function) > > * > and then: UDF ditulis di Sheet sbg array formula (yang kalau cell > > terpakai lebih banyak dari array yg didapat mendatangkan err Value #N/A) > > * > and then: list yg terjadi di sheet (karena formula berbantuan UDF itu) > > dipakai sebagai ROW-SOURCE bagi si Combo > > Muter seperti gasingan, salah salah malah bisa 'cenat-cenut' sendiri lho > > > > 2. > > Agak herannya, sudah ditunggu-tunggu, tapi pak nor hidayat, tidak berkenan > > untuk menyebutkan sumber makronya dan tidak pula menyertakan lampiran > > workbooknya. > > Sedangkan kalau bicara soal makro di excel, jika Lahan/"Area bermainnya > > makro" (biasanya sheet + cellsnya) tidak di tunjukkan, para calon penanggap > > biasanya menurun niat membantu-nya; karena tentu 'ogah' kalau harus > > mengarang sendiri segala macam data, form dsb. > > (idealnya 'kan sebelum VBA-code dilempar ke JalUm, harus sudah di test di > > LAHAN & AREA bermainnya makro yg sesuai) agar tidak terlalu banyak > > kesalahan yg menundang pertanyaan baru.. > > > > 3. > > Terlampir file terkompress berisi sebuah folder yg didalamnya berisi file 1 > > XLSM dan beberapa contoh Image-File > > (berhubung filesize nya 538KB (berisi banyak *jpg) file dapat anda unduh > > sendiri di sini > > > > Di sheet 1; jika tombol X di ceklik, akan dimunculkan Userform1 > > Tetapi sesaat sebelum dimunculkan (yaitu ketika terjadi event ititialize) > > sebuah Combobox di dalam userform tsb di isi items yg berupa text nama-nama > > file, ASAL BUKAN file excel berisi makro pengendalinya (ThisWorkbook.Name) > > Di makro ini diberi BONUS : FileList (yg diumpankan ke Combobox) juga > > ditulis di Kolom G, hanya untuk pajangan saja!, agar penonton tidak kecewa.. > > > > Setelah Userform Aktif, jika Combobox di pilih salah satu ITEMnya / diganti > > VALUE-nya (=terjadi event Change) , maka file gambar yg "KEBETULAN" > > namanya terpampang di Combobox di panggil untuk di LOAD ke object Image yg > > ada di UserForm itu juga. > > Cuma begitu kan ?! > > > > Yg perlu di catat adalah: setiap Userform di LOAD, Items di dalam si Combo > > selalu di refresh isinya (dengan TEXT nama semua file yg seFolder dengan > > ThisWorkbook, selain nama ThisWorkbook itu sendiri). > > Keadaan ini mengakibatkan: jika anda menambah atau mengurangi cacah files > > dalam "seFolder" itu ataupun me-RENAME beberapa nama files; maka Combobox > > (dan juga daftar di kolom G) akan selalu SESUAI dengan daftar file yg ada > > di "SeFolder" tsb. > > > > Mudah-mudahan seperti itu yg diinginkan oleh pak nor hidayat.. > > [ text code VBA - cut -- ] > > iHaps > > maarweg - 5000 koln / 26 feb 2012
