Bagaimana cara cepat mencantumkan nama gambar / nama file folder ke sel Excel?
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 folder di Excel dengan VBA
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 + 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. |
Buat daftar nama gambar atau nama file format tertentu dari sebuah folder di Excel dengan Daftar Nama File
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.
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. |
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.
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.
Unduh File Contoh
Cara Membuat Anda Menonjol dari Keramaian, Bekerja dengan Mudah, dan Menikmati Hidup dengan Santai?
Kutools for Excel rata-rata akan meningkatkan efisiensi 80% Anda setiap hari, membuat Anda memiliki banyak waktu untuk menemani keluarga dan bersenang-senang dalam hidup.
300 alat canggih memecahkan 80% Masalah Excel, Anda tidak lagi kesulitan mencari solusi, lebih mudah menyelesaikan pekerjaan.
Menangani 1500 skenario Excel dengan mudah, hemat setidaknya 1 jam untuk Anda setiap hari.
Menjadi ahli Excel dalam 5 menit, dapatkan pengakuan dan kesempatan promosi.
Utilitas sekali klik menangani pemrosesan batch, memungkinkan Anda menghindari ribuan klik mouse, ucapkan selamat tinggal pada tangan mouse.
Singkirkan rumus menghafal dan VBA kompleks, berikan istirahat ke otak Anda.
110000+ petugas efisiensi tinggi dan 300+ pilihan perusahaan terkenal dunia.
Hanya mengambil $ 39 tetapi lebih dari $ 4000 pelatihan orang lain
Uji coba gratis 30 hari tanpa batasan apa pun, uang penuh kembali dalam 30 hari tanpa alasan apa pun.
Alat Produktivitas yang Direkomendasikan
Tab Office - Penjelajahan dengan Tab, Pengeditan, Pengelolaan Dokumen Di Microsoft Office 2019 - 2003 dan Office 365
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!