Bir sütununuz var. Sütundaki her metin için, yeni bir çalışma sayfası eklemek ve bu çalışma sayfasını hücredeki değer için adlandırmak istiyorsunuz.
Video izle
- Pam, her hesap numarası için bir çalışma sayfası oluşturmak istiyor
- Şu anda Rapor Filtresi Sayfalarını Göster'i kullanıyor
- Daha hızlı bir yol arıyorum
- Çalışma kitabını XLSM olarak kaydedin
- Alt = "" + TMS ile Makro Güvenliğini kontrol edin ve ikinci seviyeye ayarlayın
- Alt + F11
- Modül Ekle
- Kodu gösterildiği gibi yazın
- Excel'e dönmek için Alt + Q
- Alt + F8
- Makroyu seçin ve Seçenekler'i tıklayın
- Ctrl + Shift + W'ye ata
Video Metni
Podcast'ten Excel Öğrenin, Bölüm 2082: Çalışma Sayfaları Makrosu Oluşturun
Hey, İnternet'e tekrar hoş geldiniz, ben Bill Jelen. Geçen hafta Bloomington ve Indianapolis, Indiana'da iki seminer yapıyordum ve Indy seminerinden Pam bu çalışma kağıdına sahip olduğunu ve A Sütunundaki her hücre için yeni bir çalışma sayfası oluşturmak istediğini söyledi ve sonra bu bölümü hazırladım. , ilgili hücreyi B1 hücresine Sütun B'den yerleştirin.
Pam şu anda bunu çok akıllıca yaptığını, tüm bu çalışma sayfalarını nasıl oluşturacağını belirtti, ancak yine de bir güçlük. Ekle, Pivot Tablo, Tamam'a gider ve sonra bu yeni Pivot Tablodan Hesabı Filtreler alanına ve ardından Veriler alanına bunun gibi değerler alanına koyar. Ve sonra Seçenekler, Rapor Filtresi Sayfalarını Göster, Hesabın tüm sayfalarını göster ve BAM! Çarşafları istediği gibi hedef alıyor. Artık veriler yanlış yerde olduğuna göre, aslında bu noktada her şeyi gruplardan geçirdiğini ve sonra bu pivot tabloları bu şekilde sildiğini söylüyor, tamam mı? Yani, şu anda kullandığı yöntem bu ve bu çalışma sayfasından daha hızlı bir şey yapıp yapamayacağımı görmek istiyorum.
Yani, bunu yapmamızın yolu, sayfaları önceden seçmeniz, sayfaları önceden seçmeniz gerekecek. Ayrıca, daha önce hiç makro yapmadıysanız, Tom için Alt + T, Mary için M, Sam için S yapın ve ilk seçenekten ikinci seçeneğe geçin. Ayrıca gerçekten çok önemli, garanti ettiğim dosyanız .xlsx olarak kaydedildi. Bu şekilde bırakırsanız çalışmaz, Dosya yapmanız, Farklı Kaydetmeniz ve bu Excel Makro Etkin Çalışma Kitabını seçmeniz gerekir. Bu en üstteki varsayılandır ve bu en üstteki, makro kullanmasına izin verilmeyen korkunç dosya formatıdır.
Pekala, bu verileri Alt + F11 seçeceğiz, VBA Düzenleyicisini açacağız. Daha önce hiç VBA yapmadıysanız, bu çirkin ekranı burada göreceksiniz. Ekle, Modül diyecek ve yeni modülümüz var ve bu kodu yazacaksınız: Sub CreateSheets () kelimesi. Yazdığınız anda bir Son Abone koyacaklar, ancak ikisinin arasına Seçim bölümünde Her hücre için diyeceğiz. Set Worksheet'e gidiyoruz ve gerçekten bu Dim WS'yi Worksheet olarak yapmalıyız. Çalışma sayfası = Çalışma Sayfaları ayarlamak istiyorum. Ekle. Şimdi, Çalışma Sayfaları.Add'ın onu nereye eklemek istediğimizi bilmesi gerekiyor ve benim yapmak istediğim, bu çalışma sayfasını çalışma kitabındaki son çalışmadan sonra eklemek istiyorum. Şimdi kaç tane çalışma sayfamız olduğunu söyleyeceğim. Ve burada deneyelim, diyelim: Debug.Print worksheets.Count.Pekala, 4 tane var yazıyor, hadi Excel'e geri dönelim ve kontrol edelim. 1 2 3 4 yani 4. sayfadan sonra ekleyeceğiz. Sonuç olarak, toparlamadan sonra, yeni bir çalışma sayfası görmeliyiz ve bu çalışma sayfası, hesap 100 için verileri koyacağımız yerdir.
Pekala, WS.Name = hücre.Value ve sonra Hesabın sağında ne varsa onu almaya karar verdik: Veriler. Ve bu Verileri alıp az önce oluşturduğumuz yepyeni çalışma sayfasının B1 hücresine koyacağız. Hücreden, tamam, her hücre için 0 satır 1 sütun öteye kaydırıp bu Değeri alacağız, tamam mı? Böylece makromuz var: Dosya, Kapat ve Microsoft Excel'e Dön ve ardından Alt + F8 tuşlarına basacağız. Alt + F8, CreateSheets, Seçeneklere gidecektir. Oğlum, iyi olan ne olacak? Ctrl + Üst Karakter + W. Çalışma sayfaları için W. Bu yüzden orada Shift + W tuşlarını basılı tutuyorum, Tamam'a tıkladığınızda İptal'e tıklayabiliriz. Pekala, bu hücreleri seçin ve ardından Ctrl + Üst Karakter + W. Sonuçlandırmadan sonra hemen burada izleyin - BAM! Her birinde var. Verileri her bir sayfadan aldı. Harika, harika bir yol.
Anında birçok çalışma sayfası oluşturabilmek ve tabii ki bundan çok daha fazlası için işe yarayacaktır. Hadi bir = SATIR * 2 yapalım bunu aşağı, aşağı, aşağı, aşağı, aşağı kopyalayın ve hepsini seçin - Oh bekleyin, oraya bazı veriler koymalıyız. Tamam, 2 ile dolduralım. Ve sonra Ctrl + Shift + W. BAM! Oh, zaten bir Sayfa 49 kullandım. Ama bakın, en yakın noktadaydık, son hızlı yoldur. Anında birçok farklı çalışma sayfası nasıl oluşturulur.
Pekala, bu bölümdeki konular: Indy'den Pam, Sütun A'daki her hesap numarası için bir çalışma sayfası oluşturmak istiyor. Şu anda, Pivot Tabloların Rapor Filtresi Sayfalarını Göster'i kullanıyor. Daha hızlı bir yol arıyor, tamam mı? Bu yüzden çalışma kitabını XLSM olarak kaydedeceğiz. Alt + TMS'ye gidip ilk seçeneğe değil ikinci seçeneğe ayarlanacağız. Alt + F11, şimdi VBA'dayız, Modülü Ekle, Kodu gösterildiği gibi yazın, Alt + Q, Excel'e dönmek için, Alt + F8, makro adını seçin ve Seçenekler'e tıklayın, Ctrl + Shift + W'ye atayın.
Indianapolis'teki seminerime katıldığım için Pam'e teşekkür etmek istiyorum. Orada harika zaman geçirdik, iyi bir grup. Ve uğradığın için sana teşekkür etmek istiyorum. Bir dahaki sefere başka bir internet yayını için görüşürüz.
Dosyayı indir
Örnek dosyayı buradan indirin: Podcast2082.xlsm
