Dear master exceler 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 belajar-excel@yahoogroups.com, 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 > rèk.. > > 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 > http://www.box.com/s/aglpxtqyqyjj3nia1stl > > 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.. > > [image: Inline image 1] > > Private *Sub* GetFileList( _ > > Optional sPath As String = vbNullString, _ > > Optional sKriteria As String = vbNullString) > > ' modifikasi: iHapsari / smg, 25 Feb 2012 > > '------------------------------ > > Dim sFile As String, sCari As String > > > > If LenB(sPath) = 0 Then > > sPath = ThisWorkbook.Path & "\" > > Else > > If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\" > > End If > > sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria) > > > > Application.DisplayAlerts = False > > Application.EnableEvents = False > > > ' Loop langsung mengisi Combobox > > sFile = Dir$(sPath & sCari) > > Do While LenB(sFile) <> 0 > > If Not sFile = ThisWorkbook.Name Then > > CboName.AddItem sFile > > ' 2 baris di bawah ini hanya untuk HIBURAN Anda saja > > ' (= mengisi nama file ke Sheet1 kolom G) / boleh dihapus. > > i = i + 1: Range("G" & i) = sFile > > End If > > sFile = Dir$ > > Loop > > > > Application.EnableEvents = True > > Application.DisplayAlerts = True > > End Sub > > '-------- > > > Unduh Lampiran: http://www.box.com/s/aglpxtqyqyjj3nia1stl > > > maarweg - 5000 koln / 26 feb 2012 > - i - > > > > 2012/2/25 Ki Semprul <semprul.ki@...> > > > ** > > Dibuat sbg prosedur Sub saja, jangan prosedur Fungsi. > > Jadi penulisannya ke range selalu PAS dengan jumlah temuan > > > > On Sat, Feb 25, 2012 at 7:36 AM, nor hidayat <dayatshogun46@...> > > wrote: > > > Mohon bantuan exceler untuk masalah array > > > > > > Macro List file yang saya gunakan seperti dibawah ini. > > > > Public Function GetFileList( _ > > > > Optional sPath As String = vbNullString, _ > > > > Optional sKriteria As String = vbNullString, _ > > > > Optional lResultAsArray As Long = 0) As Variant > > > > ' ---bla bla bla ---- > > > > End Function > > > > > > Namun hasil bila tidak ada file = #N/A, yang saya inginkan bagai mana > > jika array #N/A > > > > dikondisikian kosong seperti data sel yang belum terisi. > > > > > > >
