Anda mempunyai lajur teks. Untuk setiap teks dalam lajur, anda ingin memasukkan lembaran kerja dan nama lembaran kerja baru untuk nilai dalam sel.
Tonton Video
- Pam ingin membuat lembaran kerja untuk setiap nombor akaun
- Pada masa ini, dia menggunakan Paparkan Halaman Penapis Laporan
- Mencari jalan yang lebih pantas
- Simpan buku kerja sebagai XLSM
- Periksa Keselamatan Makro dengan alt = "" + TMS & tetapkan ke tahap kedua
- Alt + F11
- Masukkan Modul
- Taipkan kod seperti yang ditunjukkan
- Alt + Q untuk kembali ke Excel
- Alt + F8
- Pilih makro & klik Pilihan
- Tugaskan ke Ctrl + Shift + W
Transkrip Video
Belajar Excel dari Podcast, Episode 2082: Buat Makro Lembaran Kerja
Hei, selamat datang kembali ke siaran net, saya Bill Jelen. Baiklah, minggu lalu saya berada di Bloomington dan Indianapolis, Indiana melakukan dua seminar di sana dan Pam dari seminar Indy mengatakan bahawa dia mempunyai lembaran kerja ini, dan untuk setiap sel di Lajur A dia ingin membuat lembaran kerja baru dan kemudian saya membuat bahagian ini , letakkan sel yang sesuai dari Lajur B di Sel B1.
Maksud saya pada masa ini, Pam menyatakan bahawa dia melakukan ini dengan cara yang sangat pintar, bagaimana membuat semua lembaran kerja itu tetapi masih menyusahkan. Dia pergi ke Insert, Pivot Table, OK dan kemudian dari Pivot Table baru itu, dia meletakkan Akaun di kawasan Penapis dan kemudian Data di kawasan nilai seperti itu. Dan kemudian, dia pergi ke Pilihan, Tunjukkan Halaman Penapis Laporan, Tunjukkan semua halaman akaun, dan BAM! Dia mendapat cadar seperti yang dia mahukan. Sekarang bahawa data berada di tempat yang salah, dia sebenarnya mengatakan pada ketika ini dia hanya melalui kumpulan semuanya dan kemudian menghapus jadual pangsi seperti itu, okey? Jadi, itulah kaedah yang dia gunakan sekarang dan saya ingin melihat apakah saya dapat melakukan sesuatu yang lebih pantas daripada lembaran kerja itu.
Jadi cara kita melakukan ini adalah anda mesti memilih helaian, memilih helaian terlebih dahulu. 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 penting, fail yang saya jamin disimpan sebagai .xlsx. Ia tidak akan berjaya jika anda membiarkannya, anda perlu melakukan File, Save As dan memilih Buku Kerja Excel yang Diaktifkan Makro ini Yang teratas adalah lalai dan yang teratas adalah format fail mengerikan yang tidak dibenarkan menggunakan makro.
Baiklah, jadi kita akan memilih data itu Alt + F11, membuka Editor VBA. Sekiranya anda tidak pernah melakukan VBA sebelum ini, anda akan mendapat skrin hodoh ini di sini. Akan mengatakan Sisipkan, Modul dan ada modul baru kami dan anda akan menaip kod ini: perkataan Sub CreateSheets (). Sebaik sahaja anda menaip bahawa mereka akan meletakkan End Sub tetapi di antara keduanya kita akan mengatakan Untuk Setiap sel dalam Selection. Kita akan Tetapkan Lembaran Kerja dan sebenarnya kita mungkin harus melakukan Dim WS ini sebagai Lembaran Kerja. Ingin menetapkan lembaran kerja = Lembaran kerja. Tambah. Sekarang, Lembaran Kerja. Tambah perlu tahu di mana kita mahu menambahkannya dan apa yang ingin saya lakukan ialah saya hanya mahu menambahkan lembaran kerja ini setelah kerja terakhir dia berada di buku kerja. Oleh itu, saya akan mengatakan berapa banyak lembaran kerja yang kita ada sekarang. Dan di sini mari kita cuba, katakan: Lembaran kerja Debug.Print.Count.Baiklah, ia mengatakan kita mempunyai 4, mari kita kembali ke Excel dan melihatnya. 1 2 3 4 jadi kami akan menambahkannya selepas helaian ke-4. Oleh itu, setelah selesai, kita akan melihat lembaran kerja baru dan lembaran kerja adalah tempat kita akan meletakkan data untuk akaun 100.
Baiklah sekarang, WS.Name = cell.Value dan kemudian kami memutuskan bahawa kami akan mengambil apa sahaja yang ada di sebelah kanan Akaun: Data. Dan kami akan mengambil Data tersebut dan memasukkannya ke dalam sel B1 lembaran kerja baru yang baru kami buat. Jadi dari sel, betul, untuk setiap sel kita akan Mengimbangi 0 baris 1 lajur ke atas dan ambil Nilai itu, baiklah? Oleh itu, kita mempunyai makro kita: Fail, Tutup dan Kembali ke Microsoft Excel dan kemudian kita tekan Alt + F8. Alt + F8, CreateSheets, akan pergi ke Pilihan. Nak, apa yang akan menjadi baik? Ctrl + Shift + W. W untuk lembaran kerja. Oleh itu, saya menahan Shift + W di sana, klik OK, dan kita boleh mengklik Batal. Baiklah, pilih sel-sel tersebut dan kemudian Ctrl + Shift + W. Tonton di sini selepas Wrap Up - BAM! Ia mempunyai masing-masing. Ia mendapat data dari setiap helaian individu. Cara sejuk, sejuk.
Mampu membuat banyak lembaran kerja di Fly dan tentu saja, ia akan berfungsi lebih dari itu. Mari buat salinan = ROW * 2 ini ke bawah, bawah, bawah, bawah, bawah dan pilih semuanya - Oh tunggu, kita mesti meletakkan beberapa data di sana. Mari mengisinya dengan 2, baiklah. Dan kemudian Ctrl + Shift + W. BAM! Oh, saya sudah menggunakan satu Helaian 49. Tetapi lihatlah, kita sudah sampai ke jalan dekat, cepat dengan cepat. Cara membuat banyak lembaran kerja yang berbeza di Fly.
Baiklah, topik dalam episod ini: Pam dari Indy ingin membuat lembaran kerja untuk setiap nombor akaun di Lajur A. Pada masa ini, dia sedang menggunakan Tunjukkan Halaman Penapis Halaman Jadual Pangsi. Dia mencari jalan yang lebih pantas, bukan? Oleh itu, kami akan menyimpan buku kerja sebagai XLSM. Kami akan memilih Alt + TMS dan menetapkan pilihan kedua, bukan pilihan pertama. Alt + F11, sekarang kita berada di VBA, Masukkan Modul, Ketikkan kod seperti yang ditunjukkan, Alt + Q untuk kembali ke Excel, Alt + F8, pilih nama makro dan klik Pilihan, tetapkan ke Ctrl + Shift + W.
Hai, saya ingin mengucapkan terima kasih kepada Pam kerana telah menghadiri seminar saya di Indianapolis. Kami bersenang-senang di sana, kumpulan yang baik. Dan saya ingin mengucapkan terima kasih kerana berhenti. Kami akan berjumpa anda di lain kali untuk siaran net lain dari.
Muat turun fail
Muat turun fail contoh di sini: Podcast2082.xlsm
