Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara cepat membuat folder berdasarkan nilai sel di Excel?

Misalkan Anda memiliki daftar nama staf dalam rentang lembar kerja, dan sekarang Anda ingin membuat beberapa folder untuk masing-masing di sel untuk merekam informasinya. Jika Anda membuat folder satu per satu, itu akan membuang banyak waktu. Tetapi bagaimana Anda bisa dengan cepat membuat folder ini? Hari ini, saya akan memperkenalkan beberapa trik cepat:

Buat folder berdasarkan nilai sel dengan kode VBA

Buat folder dengan cepat berdasarkan nilai sel dengan Kutools for Excelide bagus3


Buat folder berdasarkan nilai sel dengan kode VBA

Misalnya, saya memiliki berbagai nama di lembar kerja, saya ingin membuat folder untuk masing-masing, dan menyimpannya ke jalur yang ditentukan, dengan kode VBA, saya dapat menyelesaikan tugas ini.

1. Letakkan buku kerja yang aktif ke dalam direktori tertentu tempat Anda akan menempatkan folder yang dibuat. Buka buku kerja dan pilih rentang sel yang ingin Anda gunakan.

doc-buat-folder1

2. Klik Pengembang > Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan > Modul, dan masukkan kode berikut ke dalam Modul:

Kode VBA: buat folder berdasarkan nilai sel

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

3. Klik doc-perkalian-kalkulasi-3 tombol untuk menjalankan kode. Semua sel yang dipilih telah dibuat ke folder dengan nilainya. Dan folder ditempatkan ke jalur yang sama dengan buku kerja yang aktif. Lihat tangkapan layar:

doc-buat-folder2


Buat folder dengan cepat berdasarkan nilai sel dengan Kutools for Excel

Sangat mudah dan nyaman bagi Anda untuk membuat folder berdasarkan katup sel jika Anda menggunakan alat- Kutools for Excel.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. Pilih rentang yang ingin Anda buat foldernya.

2. Klik Kutools Plus > Ekspor Impor > Buat Folder dari Isi Sel…, Lihat tangkapan layar:

doc buat folder 1

3. di Buat Folder dari Isi Sel kotak dialog, klik doc-buat-folder3untuk menentukan jalur yang Anda inginkan untuk menyimpan folder. Tangkapan layar yang terlihat:

doc buat folder 2

4. Klik OK. Dan kotak prompt akan mengingatkan Anda berapa banyak folder yang telah dibuat. Lihat tangkapan layar:

doc buat folder 3

5. Klik OK. Dan semua nilai dalam kisaran yang dipilih telah dibuat folder di folder yang ditentukan.
doc buat folder 4


Buat daftar semua nama file dari folder ke dalam lembaran

untuk mengetahui lebih banyak tentang fungsi ini.

Berikut adalah utilitas di Kutools for Excel - Daftar Nama File dapat mencantumkan semua nama file folder dalam satu lembar, jika Anda tertarik, silakan lanjutkan membaca.

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. klik Kutools Plus > Impor / Ekspor > Daftar Nama File.
doc buat folder 5

2. Dalam Daftar Nama File dialog, pilih folder yang ingin Anda daftarkan file-nya, centang Semua data or Menentukan pilihan yang Anda butuhkan Jenis file section.
img src="/images/stories/doc-excel/buat-folder/doc-buat-folder-6.png" alt="doc buat folder 6" />

3. klik Ok, lembar baru dibuat dengan semua nama file dan beberapa informasi relatif.
doc buat folder 7


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (61)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Apa kesalahan dalam mengikuti instruksi VBA? Lakukan Sementara r
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas balasan Anda, kode VBA memiliki sedikit pertanyaan ketika saya mengeditnya, jadi di sini saya telah memodifikasinya, dan berhasil diterapkan, silakan coba. Semoga berhasil!
Komentar ini diminimalkan oleh moderator di situs
SkyYang, [quote]Terima kasih atas balasan Anda, kode VBA memiliki sedikit pertanyaan ketika saya mengeditnya, jadi di sini saya telah memodifikasinya, dan berhasil diterapkan, silakan coba. Semoga berhasil!Oleh skyyang[/quote] KAMU LUAR BIASA!! Saya bisa lebih produktif di tempat kerja karena program (kode VBA di Developer).
Komentar ini diminimalkan oleh moderator di situs
Siapa yang pernah menulis contoh pertama - Anda luar biasa!!
Komentar ini diminimalkan oleh moderator di situs
tolong, saya membutuhkan makro yang sama tetapi alih-alih menyimpannya sebagai folder, saya membutuhkannya untuk menyimpan notepad dengan hanya nama sel dalam rentang kolom, hargai dukungannya.
Komentar ini diminimalkan oleh moderator di situs
Bagus... :) Terima kasih.. Itu membuat saya bekerja sederhana.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih ini menghemat banyak waktu. Tapi bagaimana cara membuat sub folder?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!! Ini adalah solusi hebat dan paling efektif dan termudah yang saya temukan di internet untuk ini! :tertawa terbahak-bahak:
Komentar ini diminimalkan oleh moderator di situs
:-) Terima kasih telah memberikan data ini .... menghemat banyak waktu saya
Komentar ini diminimalkan oleh moderator di situs
Bagaimana melakukan ini di LibreOffice atau OpenOffice Harap balas.
Komentar ini diminimalkan oleh moderator di situs
HELP !!! Saya memiliki lebih dari 7500 folder untuk dibuat tetapi program mengalami kesalahan kompilasi yang menyoroti [b]Sub MakeFolders ()[b] seolah-olah itu adalah nama yang tidak valid atau semacamnya! Saya mengoperasikan Excel 2010.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama, tetapi ketika saya melihat nama folder lebih dekat ada / dan setelah saya menghapusnya, kode itu bekerja seperti pesona.
Komentar ini diminimalkan oleh moderator di situs
Anda adalah penyelamat!!!!! [b]Terima kasih![b] Catatan: Jangan beri spasi di antara MakeFolder dan ().
Komentar ini diminimalkan oleh moderator di situs
Untuk beberapa alasan buku kerja aktif mengalami masalah dengan jalur. HELPPPP :nangis:
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah serupa, pada akhirnya saya menemukan bahwa program tidak berfungsi jika nama file memiliki garis miring / atau \, saya mengganti / dengan _, itu berhasil
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini - Penghemat waktu yang luar biasa
Komentar ini diminimalkan oleh moderator di situs
Bekerja seperti pesona, tetapi apakah ada cara untuk membuat subfolder?
Komentar ini diminimalkan oleh moderator di situs
Mencoba ini di Mac dan saya mendapatkan "Run-time error '68': Device unavailable", dan menekan debug menunjukkan baris kode berikut sebagai penyebabnya: If Len(Dir(ActiveWorkbook.Path & "\" & Rng( r, c), vbDirectory)) = 0 Kemudian MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) Mohon bantuannya.
Komentar ini diminimalkan oleh moderator di situs
Saya ingin tahu ini juga. Saya perlu membuat sub folder dengan nama yang diberikan sudah ditambahkan. Contoh: Excelnamedfolder\P\E Saya memerlukan dua folder di dalam folder P bernama E dan K.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk posting yang bermanfaat ini, menghemat waktu saya. Saya suka kutu buku :) Apa yang akan kita lakukan tanpa mereka, serius!
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menambahkan beberapa kolom bersamaan saat membuat folder. Ada saran tentang cara untuk melakukan hal ini? misalnya ABC 1 A1 A2 A3 2 B1 B2 B3 3 C1 C2 C3 Produk akhir setelah folder dibuat harus: Folder 1 (A1 + A2 + A3) Folder 2 (B1 + B2 + B3) Dll... Saya menemukan beberapa rumus di membuat folder dari sel tunggal tetapi tidak untuk banyak. Saya juga mencoba memodifikasi beberapa hal tanpa hasil. Ada ide? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Kamu Menakjubkan. Itu berhasil. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Pekerjaan yang bagus.....Luar biasa
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk tab KUTOOLS & Perusahaan ini ......alat penghemat waktu..
Komentar ini diminimalkan oleh moderator di situs
Anda baru saja menyelamatkan saya banyak waktu sobat
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak gan,,, berhasil...
Komentar ini diminimalkan oleh moderator di situs
Bersulang! Fungsi yang bagus!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini. berfungsi dengan baik
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL