Dalam tutorial ini, saya akan memberikan beberapa trik untuk membuat daftar cepat semua nama gambar atau nama file dari folder tertentu di lembar Excel seperti screenshot yang ditampilkan. NAVIGASI CEPAT >Buat daftar nama gambar folder di Excel dengan VBA >Buat daftar nama gambar atau nama file format tertentu dari sebuah folder di Excel dengan Daftar Nama File >Unduh file contoh

Di Excel, tidak ada fungsi bawaan yang secara otomatis dapat mencantumkan semua nama gambar dari folder yang Anda pilih dalam sel lembar, tetapi di sini saya memiliki kode VBA yang dapat membantu Anda menyelesaikan pekerjaan ini dengan cepat.

1. Di Excel, lalu tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela yang muncul, klik Menyisipkan > Modul untuk membuat skrip Modul baru.

3. Salin kode di bawah ini dan tempelkan ke jendela skrip Modul baru.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. tekan F5 kunci, lalu sebuah dialog muncul bagi Anda untuk memilih sel untuk menempatkan nama gambar.

5. klik OK untuk melanjutkan memilih folder yang ingin Anda daftarkan nama gambarnya dalam dialog Browse.

6. klik OK, sekarang semua nama gambar di folder yang dipilih telah terdaftar di Excel.

Catatan: Dalam kode VBA, Anda dapat jpg / png /… dalam string kode Jika InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Kemudian ke ekstensi file yang Anda butuhkan, misalnya, jika Anda ingin membuat daftar nama file dari file dalam format doc, hanya ubah string kode menjadi Jika InStr (1, xFileName, ".doc")> 0 Then.

Jika Anda biasanya perlu mencantumkan satu atau semua nama file format folder di sel Excel dalam pekerjaan sehari-hari Anda, kodenya rumit dan tidak mudah ditangani, tetapi, dengan cara di bawah ini, Anda dapat dengan cepat menyelesaikan pekerjaan ini.

Apakah Anda Ingin Mendapatkan Gaji dan Banyak Waktu Untuk Menemani Keluarga? Tab Office Meningkatkan Efisiensi Anda Hingga 50% Di Microsoft Office Bekerja Sekarang Luar biasa, mengerjakan dua atau lebih dokumen lebih mudah dan lebih cepat daripada mengerjakan satu dokumen. Dibandingkan dengan browser terkenal, alat tab di Office Tab lebih kuat dan lebih efisien. Kurangi ratusan klik mouse dan ketikan keyboard setiap hari untuk Anda, ucapkan selamat tinggal pada tangan mouse sekarang. Jika Anda biasanya bekerja di banyak dokumen, Office Tab akan menjadi penghemat waktu yang tepat untuk Anda. 30percobaan gratis -hari, tidak perlu kartu kredit. Baca SelengkapnyaDownload Gratis Sekarang

Ini adalah utilitas - Daftar Nama File in Kutools untuk Excel, Yang dapat

>> daftar semua nama file dalam semua format file folder di lembar baru;

>> daftar nama file dalam satu atau beberapa format file yang Anda tentukan ke Excel;

>> daftar nama file termasuk subfolder dan file dan folder tersembunyi ke Excel.

Uji Coba Gratis Ucapkan Selamat Tinggal Pada Tangan Tikus dan Spondylosis Serviks Sekarang

300 alat canggih dari Kutools for Excel pecahkan 80% Tugas Excel dalam hitungan detik, menarik Anda keluar dari ribuan klik mouse.

Mudah menangani 1500 skenario kerja, tidak perlu membuang waktu untuk mencari solusi, punya banyak waktu untuk menikmati hidup Anda. Tingkatkan produktivitas 80% untuk 110000+ orang yang sangat efektif setiap hari, tentu saja termasuk Anda. Tidak lagi tersiksa oleh formula dan VBA yang menyakitkan, berikan otak Anda istirahat dan suasana kerja yang menyenangkan. Uji coba gratis 30 hari dengan fitur lengkap, uang kembali 30 hari tanpa alasan. Tubuh yang Lebih Baik Menciptakan Kehidupan yang Lebih Baik.

Baca Selengkapnya Unduh Sekarang

Setelah menginstal Kutools for Excel secara gratis, lakukan seperti di bawah ini:

1. Aktifkan buku kerja yang ingin Anda daftarkan nama file-nya, lalu klik Kutools Ditambah > Impor / Ekspor > Daftar Nama File.

2. Dalam Daftar Nama File dialog, pertama, klik  untuk memilih folder yang ingin Anda daftarkan nama file-nya, Anda dapat mencentang kotak Sertakan file dalam subdirektori dan Sertakan file dan folder tersembunyi seperti yang Anda butuhkan

3. Kemudian pilih format file yang ingin Anda daftarkan namanya Jenis file bagian.

Memeriksa Semua data opsi, itu akan mencantumkan semua nama file dalam semua format file di folder yang dipilih

Memeriksa Umum pilihan, dan pilih format file tertentu yang ingin Anda daftarkan nama file dari daftar drop-down, maka itu akan mencantumkan semua nama file dari format file yang Anda pilih dalam daftar drop down

Memeriksa Menentukan pilihan, lalu ketik ekstensi file (menggunakan koma untuk memisahkannya) Anda ingin mencantumkan nama file di kotak teks, maka itu hanya akan mencantumkan nama file dengan memasukkan ekstensi file di Excel

4. Pilih unit ukuran yang Anda butuhkan dari daftar drop-down di Unit ukuran file bagian, jika Anda ingin membuat link ke nama file, centang Buat hyperlink .

5. klik Ok, lembar baru akan dibuat untuk mencantumkan nama file dan beberapa informasi file.

olymp trade indonesiaTip: Jika Anda ingin mencantumkan semua nama lembar di Excel, Anda dapat menerapkan Kutools for Excel ' Buat Daftar Nama Lembar utilitas, ini akan membuat sheet baru untuk mencantumkan semua nama sheet yang dapat ditautkan.

Kutools untuk Excel: + alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik.

Alat Produktivitas yang Direkomendasikan

Tab Office - Penjelajahan dengan Tab, Pengeditan, Pengelolaan Dokumen Di Microsoft Office 2019 - 2003 dan Office 365

Free download

Add-in Profesional untuk Mempercepat Excel 2019-2007, mengurangi jam tugas menjadi detik

Add-in ini mencakup lusinan grup profesional, dengan 300+ opsi akan mengotomatiskan sebagian besar tugas harian Anda di Excel, dan meningkatkan produktivitas Anda setidaknya hingga 50%. Seperti grup optons satu klik dan konversi batch.
Sekarang kesempatan Anda untuk mempercepat diri Anda dengan Kutools for Excel!

Free download