Selamat siang
setelah dalam tahap uji coba formula dari Ki Semprul
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
maka al hasil masih belum bisa, yang terjadi run time error '53' (file not
Found)
sedikit gambaran extention yang inginkan adalah cboname hanya menampilkan nama
file tidak disertai extention.
contoh
dengan formula
Option Explicit
Dim i As Long
Private Sub CboName_Change()
' ex ctv / modified: iHaps 25Feb2012
Dim pfName As String
'file img harus se-Folder dgn xls tempat makro ditulis
pfName = ThisWorkbook.Path & "\" & CboName.Value
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
End Sub
Private Sub UserForm_Initialize()
' ex ctv / modified: iHaps 25Feb2012
CboName.Clear
Range("G1").CurrentRegion.ClearContents
Call GetFileList
End Sub
Private Sub GetFileList( _
Optional sPath As String = vbNullString, _
Optional sKriteria As String = vbNullString)
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
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
Columns("G:G").Select
Selection.Replace What:=".jpg", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheet1.Cells(1, 1).Select
End If
sFile = Dir$
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Mohon disesuaikan dengan rumus yang saya tuliskan.
--- Pada Kam, 29/3/12, nor hidayat <[email protected]> menulis:
Dari: nor hidayat <[email protected]>
Tanggal: Kamis, 29 Maret, 2012, 7:04 AM
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 !
==============================================
