Anda memiliki kolom teks. Untuk setiap teks di kolom, Anda ingin menyisipkan lembar kerja baru dan memberi nama lembar kerja itu untuk nilai di sel.
Menonton video
- Pam ingin membuat lembar kerja untuk setiap nomor rekening
- Saat ini, dia menggunakan Tampilkan Halaman Filter Laporan
- Mencari cara yang lebih cepat
- Simpan buku kerja sebagai XLSM
- Periksa Keamanan Makro dengan alt = "" + TMS & setel ke tingkat kedua
- Alt + F11
- Sisipkan Modul
- Ketik kode seperti yang ditunjukkan
- Alt + Q untuk kembali ke Excel
- Alt + F8
- Pilih makro & klik Opsi
- Tetapkan ke Ctrl + Shift + W
Transkrip Video
Belajar Excel dari Podcast, Episode 2082: Membuat Makro Lembar Kerja
Hai, selamat datang kembali di netcast, saya Bill Jelen. Nah, minggu lalu saya di Bloomington dan Indianapolis, Indiana melakukan dua seminar di sana dan Pam dari seminar Indy berkata bahwa dia memiliki lembar kerja ini, dan untuk setiap sel di Kolom A dia ingin membuat lembar kerja baru dan kemudian saya membuat bagian ini , letakkan sel terkait dari Kolom B di Sel B1.
Maksud saya saat ini, Pam mencatat bahwa dia melakukan ini dengan cara yang sangat cerdas, bagaimana membuat semua lembar kerja itu tetapi masih merepotkan. Dia masuk ke Sisipkan, Tabel Pivot, OK, lalu dari Tabel Pivot baru itu, dia meletakkan Akun di area Filter lalu Data di area nilai seperti itu. Dan kemudian, dia pergi ke Opsi, Tampilkan Halaman Filter Laporan, Tampilkan semua halaman akun, dan BAM! Dia mendapatkan tujuan seprei seperti yang dia inginkan. Sekarang datanya berada di tempat yang salah, dia sebenarnya mengatakan pada titik ini dia hanya memeriksa semuanya mengelompokkan dan kemudian menghapus tabel pivot seperti itu, oke? Jadi, itulah metode yang dia gunakan sekarang dan saya ingin melihat apakah saya bisa melakukan sesuatu lebih cepat dari lembar kerja itu.
Jadi cara kita akan melakukan ini adalah Anda harus memilih terlebih dahulu lembar, memilih sebelumnya lembar. Juga hei, jika Anda belum pernah melakukan makro sebelumnya, lakukan Alt + T untuk Tom, M untuk Mary, S untuk Sam dan ubah dari pilihan pertama ke pilihan kedua. Juga sangat, sangat penting, file Anda yang saya jamin disimpan sebagai .xlsx. Ini tidak akan berfungsi jika Anda membiarkannya seperti itu, Anda harus melakukan File, Save As dan memilih Workbook Excel Macro-Enabled ini. Yang teratas adalah default dan yang teratas adalah format file mengerikan yang tidak diizinkan untuk menggunakan makro.
Baiklah, jadi kita akan memilih data itu Alt + F11, membuka Editor VBA. Jika Anda belum pernah melakukan VBA sebelumnya, Anda akan mendapatkan layar jelek ini di sini. Akan mengatakan Sisipkan, Modul dan ada modul baru kami dan Anda akan mengetik kode ini: kata Sub CreateSheets (). Segera setelah Anda mengetik bahwa mereka akan meletakkan End Sub tetapi di antara keduanya, kami akan mengatakan Untuk Setiap sel dalam Seleksi. Kita akan ke Set Worksheet dan benar-benar kita harus melakukan Dim WS ini sebagai Worksheet. Mau set worksheet = Worksheets. Menambahkan. Sekarang, Worksheets.Add perlu mengetahui di mana kita ingin menambahkannya dan yang ingin saya lakukan adalah saya hanya ingin menambahkan worksheet ini setelah pekerjaan terakhir dia ada di buku kerja. Jadi, saya akan mengatakan berapa banyak lembar kerja yang kita miliki sekarang. Dan di sini mari kita coba, katakanlah: Debug.Print worksheets.Count.Baiklah, dikatakan kita punya 4, mari kita kembali ke Excel dan memeriksanya. 1 2 3 4 jadi kita akan menambahkannya setelah lembar ke-4. Jadi setelah selesai, kita akan melihat lembar kerja baru dan lembar kerja itu adalah tempat kita akan meletakkan data untuk akun 100.
Baiklah sekarang, WS.Name = cell.Value dan kemudian kami memutuskan bahwa kami akan mengambil apa pun yang ada di sebelah kanan Akun: Data. Dan kami akan mengambil Data itu dan meletakkannya di sel B1 dari lembar kerja baru yang baru saja kami buat. Jadi dari sel, benar, untuk setiap sel kita akan mengimbangi 0 baris 1 kolom dan mengambil Nilai itu, oke? Jadi kami memiliki makro kami: File, Tutup dan Kembali ke Microsoft Excel dan kemudian kami akan menekan Alt + F8. Alt + F8, CreateSheets, akan masuk ke Options. Wah, apa yang bagus? Ctrl + Shift + W. W untuk lembar kerja. Jadi saya tahan Shift + W di sana, klik OK, dan kita bisa klik Batal. Baiklah, pilih sel-sel itu lalu Ctrl + Shift + W. Tonton di sini setelah Wrap Up - BAM! Itu memiliki mereka di masing-masing. Itu mendapat data dari setiap lembar individu. Keren, cara keren untuk pergi.
Mampu membuat banyak lembar kerja dengan cepat dan tentu saja, itu akan bekerja lebih dari itu. Mari kita lakukan a = ROW * 2 salin ini ke bawah, bawah, bawah, bawah, bawah dan pilih semua itu - Oh tunggu, kita harus meletakkan beberapa data di sana. Mari kita isi dengan 2, baiklah. Lalu Ctrl + Shift + W. BAM! Oh, saya sudah menggunakan satu Lembar 49. Tapi lihat, kita semua sudah mendekati, berakhir dengan cepat. Cara membuat banyak lembar kerja berbeda dengan cepat.
Oke, topik episode kali ini: Pam dari Indy ingin membuat worksheet untuk setiap nomor rekening di Kolom A. Saat ini, dia menggunakan Halaman Filter Show Report dari Tabel Pivot. Dia mencari cara yang lebih cepat, oke? Jadi kami akan menyimpan buku kerja sebagai XLSM. Kita akan menggunakan Alt + TMS dan mengatur ke pilihan kedua, bukan pilihan pertama. Alt + F11, sekarang kita berada di VBA, Sisipkan Modul, Ketik kode seperti yang ditunjukkan, Alt + Q untuk kembali ke Excel, Alt + F8, pilih nama makro dan klik Opsi, tetapkan ke Ctrl + Shift + W.
Hei, saya ingin berterima kasih kepada Pam karena menghadiri seminar saya di Indianapolis. Kami bersenang-senang di sana, grup yang bagus. Dan saya ingin mengucapkan terima kasih telah mampir. Sampai jumpa di lain waktu untuk netcast lain dari.
Unduh berkas
Unduh file contoh di sini: Podcast2082.xlsm
