Birçok çalışma sayfası içeren bir çalışma kitabınız var. Her çalışma sayfasını farklı bir kişiye göndermek istiyorsunuz. Bugün, bu verileri ayırmak için bir makro.
Video izle
- Joe + Diğerleri, her çalışma sayfasını farklı bir dosyaya kaydetmenin bir yolunu arıyor
- Power Query için veya Rapor Filtresi Sayfalarını Göster kullanıldıktan sonra kullanışlıdır
Video Metni
Podcast'ten Excel Öğrenin, Bölüm 2107 - Her çalışma sayfasını yeni bir Çalışma Kitabına bölün
Tekrar hoşgeldin. İnternet yayınındayım. Ben Bill Jelen.
Kafamın arkasında bunu uzun zamandır yapmam gerektiğini biliyordum, ancak son zamanlarda çıkan iki podcast onu gerçekten getirdi, eve getirdi.
Kısa bir süre önce, Tüm Dilimleyici Kombinasyonlarından bir PDF oluşturduğumuz 2106 numaralı bölümde. Bu bölümün sonlarında birçok pivot rapor oluşturduğumuz alternatif bir yöntem gösterdim, ancak hepsini aynı Çalışma Kitabına koyuyor ve California'daki Joe'dan bir e-posta aldım, bak her Çalışma Sayfasını farklı bir müşteriye göndermem gerekiyor ve aynı şey, bu numarayı gösterdiğim canlı Power Excel Seminerlerimde insanlar diyor ki, iyi hayır, hepsini aynı Çalışma Kitabında istemiyoruz, ayrı ayrı istiyoruz ve muhtemelen bundan daha da önemli, geri dönüyor Bölüm 2077, Power Query'nin artık tüm Excel dosyalarını bir klasörde nasıl birleştirebileceğinden bahsetmiştim, değil mi? Ve bu mucizevi. Harika çalışıyor. Her biri tek bir Çalışma Sayfasına sahip 400 Excel dosyanız varsa, tüm bu Çalışma Sayfalarından tüm bu verileri alır ve tek bir ızgaraya koyar.Bu harika, ama hemen hemen aynı problemimiz olsaydı. 400 Çalışma Sayfalı Bir Çalışma Kitabı? Yapamaz, değil mi? Bununla başa çıkamaz - henüz. Doğru, şu anda, 1 Temmuz 2017, bununla baş edemez. Belki altı ay içinde bunun üstesinden gelebilir, ama şu anda tek sayfalık Çalışma Kitapları olmalı.
Bu yüzden, her şeyi ayrı dosyalara ayırabilmemiz için bir yola ihtiyacımız var. Tamam, hadi bunu ayarlayalım. Verileri aldığımız 2106'da yaptığım Çalışma Kitabına ve ardından orijinal Pivot Tablosuna sahibiz ve Analiz, Seçenekler, Rapor Filtresini Göster ve anahtarın sayfalarını göstermeye gidiyoruz ve bu benim için bir sürü farklı Çalışma Sayfası oluşturuyor ve Bu Çalışma Sayfalarını almak ve her birini ayrı bir dosya oluşturmak istiyorum, ancak buna sahip olsak da, Sayfa2 ve Veri gibi bölmek istemediğim bazı şeyler var.
Peki? Ve elbette her bir kişi için, o şeyler, o, bölmek istemediğimiz Çalışma Sayfaları listesi farklı olacak, ama tahmin edeceğim ki hemen hemen herkesin sahip olmadığı bazı Çalışma Sayfaları var. Bölmek istemiyorum.
Pekala, işte indirebileceğiniz yardımcı program. Çalışma Sayfaları Bölücü ve burada B sütununda bir bölüm var ve bu gerçekten bölmek istemediğiniz Çalışma Sayfalarını listeleyebileceğiniz B sütununda tek şey. İkiden fazla olabilir. Burada istediğiniz kadar doldurabilirsiniz. Yeni satırları ve ucuz yolumu ekleyebilirsiniz, Makro'da bunların arasında döngü yapmak istemedim, buradaki görüşünüzün çok dışında, Makronun mevcut Çalışma Sayfası adını yazabileceği bir yerim var ve sonra bir basit küçük DÜŞEYARA. Diyor ki, şu anda üzerinde çalıştığımız bu Çalışma Sayfasına bakın, B sütununda bitip bitmediğine bakın ve eğer öyleyse, bunun ihraç etmek istemediğimizi bileceğiz.
Pekala ve sonra tekrar, bunu olabildiğince genel hale getirmek için, burada birkaç adlandırılmış aralık var, Yolum, Önekim, Sonekim, Türüm ve Yapıştır. Pekala, bu şeylerin nereye gitmesini istediğini bul. c: Raporlar . Her dosyanın sayfa adına sahip olmasını istiyorum, ancak sayfa adının önüne WB, Dosya Soneki ve hiçbir şey önekini koyacağım ve sonra burada bir seçeneğiniz var: PDF veya XLSX.
Bu yüzden XLSX ile başlayacağız, daha sonra kaydetmeden önce bu yapıştırma değerleri hakkında konuşacağız. Pekala ve şu anda bu, 1 Temmuz 2017, ilki. Bunu iyileştirirsek, onu web sayfasında değiştiririm ve aşağıdaki web sayfasını YouTube açıklamalarında bulabilirsiniz. Pekala, işte bunun nasıl çalışacağı. Bu bir XLSM dosyası. Bu nedenle, Makrolara izin verildiğinden emin olmalısınız. alt = "" T, M, S, güvenlik için en azından bu seviyede veya altında olmanız gerekir. Doğru, ilk sıradaysanız, değiştirmeniz gerekir, Çalışma Kitabını kapatıp yeniden açın. Çalışma Kitabını açtığınızda, şunu söyleyecektir, buradaki Makroları kabul etmeye istekli misiniz ve bu hiç de büyük bir Makro değil: altmış sekiz satır kod ve bunların çoğu sadece Menüden değerleri almakla ilgileniyor Levhaşimdi değişkenler neler.
Burada önemli olan şey, ActiveWorkbook üzerinde çalışacak olmasıdır. Yani, verileri içeren Çalışma Kitabına geçecek ve ardından çalıştırmak için CTRL SHIFT S tuşuna basacaksınız ve ActiveWorkbook'u algılayacak ve bölünecek olan bu olacak. Tutar ("MyPath") ve bunun nedeni her zaman o ters eğik çizgiyi koymayı unuttuğum için, eğer son karakter bir ters eğik çizgi değilse, o zaman bir ters eğik çizgi ekleyeceğim ve burada aşağıda asıl çalışma budur.
Her Çalışma Sayfası için, orijinalde, etkin WBO.Çalışma sayfalarında, orada olup olmadığını ve B sütununda olup olmadığını test edeceğiz. Eğer öyleyse, değilse o zaman bu sayfayı dışa aktaracağız ve ben bu kod satırını seviyorum. WS.copy, bu Çalışma Kitabını, bu Çalışma Sayfasını bu büyük Çalışma Kitabından aldığımda, 20 veya 400 Çalışma Sayfasını bildiğinizi ve bunun bir kopyasını oluşturan ve yeni bir çalışma Çalışma Kitabına taşıyan WS.copy'ye gidiyoruz diyor. ve biliyoruz ki, yeni Çalışma Kitabının artık Makrodaki aktif Çalışma Kitabı olacağını ve elbette bu Çalışma Kitabında sadece bir sayfa olduğunu ve o sayfanın aktif sayfa olduğunu biliyoruz.
Pekala, burada Çalışma Kitabının adını bulabilirim. Ayarlayın, Bu Nesne Değişkenine Uygula, Yeni Çalışma Kitabı, Yeni Çalışma Sayfası ve daha sonra kapatmam gerektiğinde, işi yaptıktan sonra WBN.close yapabilirim. Tüm değişkenleri kullanarak yeni dosya adını buluruz. Zaten varsa, bu dosyayı kapatın ve ardından bir Excel dosyasıysa, PDF ise olarak kaydetme işlemini gerçekleştiririz.
Ve bu arada, bu PDF kodu sadece Windows'ta çalışıyor, eğer bir Mac kullanıyorsanız, üzgünüz, eşdeğer Mac kodunu bulmak için başka bir yere gitmeniz gerekecek. Mac'im yok. Mac'e PDF kaydetmenin bir yolu olduğunu biliyorum. Kodun farklı olduğunu biliyorum. Bunu çözmeniz veya Windows'ta gerçek Excel'e geri dönmeniz gerekecek ve sonra işimiz biter, kapatırız.
Pekala, bu sadece bunun gibi basit bir Makro, tüm Çalışma Sayfalarına sahip olan veri Çalışma Kitabımıza buradan geçin. Burada 20 farklı Çalışma Sayfası var, artı yapmak istemediğim iki tane ve ardından CTRL SHIFT S böyle ve her birini oluştururken yanıp sönmesini izleyeceğiz. İşte: 21 dosya oluşturuldu.
Hadi Windows Gezgini'ne bir göz atalım ve işte işletim sistemim (C :) Raporlarım, her Çalışma Sayfası için oluşturulmuş, orijinal Çalışma Kitabında adlandırılmış, WB ile yeni bir sürüm oluşturmuştur. Pekala, Joe, Joe bana bu notu gönderdiğinde, bu verileri müşterilere göndereceğini söyledi ve ilk başta panikledim çünkü bir saniye bekle Joe, bir sorunumuz olacak çünkü sen Gary, onun verilerini gönderecek, değil mi? Ama bu, ah, bir canlı, canlı bir veri kümesi biliyorsunuz, bu canlı bir Pivot Tablo. Buradaki her şey, bunun gibi diğer müşteriler için tüm bilgileri alabilirsin, değil mi? Tanrım, bir müşteriye diğer tüm müşteriler için bilgi göndermek istemezsin. Bu bir güçlük olabilir ve aslında şov notunu tekrar okuduğumda benden daha akıllıydı çünkü şöyle dedi:Bunları PDF dosyaları olarak oluşturmak istiyorum. Tamam, peki, o zaman evet, PDF dosyaları olarak endişelenmemize gerek yok, sorun değil, ama buraya eklediğim şey, Makroya Kaydetmeden Önce Değerleri Yapıştır diyebilme yeteneğiydi? DOĞRU.
Yani bunu TRUE olarak ayarladınız ve bu küçük kod parçasını çağıracak, burada 17 milyar hücrenin tümünü kopyalayıp yapıştırmak yerine, Eğer PasteV Sonra UsedRange.Copy ve ardından UsedRange.PasteSpecial (xlPasteValues), UsedRange diyoruz. , onu iyi, UsedRange ile sınırlayacaktır.
Pekala, geri dönelim, verilere sahip Çalışma Sayfasını değiştirelim, bölme için CTRL SHIFT S ve ardından raporlar dizinindeki bu yeni sürüm, Pivot Tablodan kurtulduğunu ve sadece verileri orada bıraktığını göreceksiniz. Böylece tüm verilere ulaşamazlar.
Alright, we'll try the other feature. We'll try if we switch from Excel to PDF change the prefix to PDFFileOf, whatever we want there. I won't even try the suffix, something. Alright and then switch to the data, CTRL SHIFT S. Alrighty, so we get the same files PDFFileOf the Worksheet name, something of PDF and we should have just nice little PDFs in there, like that.
Alright so there you have it the.com Worksheet Splitter. Hopefully generic enough, for whatever you need. Download it again from the link there in the YouTube comments. To learn more about VBA, check out this book Excel 2016 VBA and Macros by myself and Tracy ?08:50.640. Click that I on the top right hand corner, to read more about the book.
California'dan Joe ve diğer pek çok kişi, her Çalışma Sayfasını farklı bir dosyaya kaydetmenin bir yolunu, Joe'nun durumunda bir PDF veya dosyaları birleştirmek için Power Query kullanacak olmanız durumunda bir Excel dosyası olarak istedi. Bu yüzden orada güzel, küçük bir Genel Ücretsiz Yazılım Programı yarattım. İndirebilir ve bir şans verebilirsiniz.
Joe'ya bu soruyu sorduğu için teşekkür etmek ve uğradığınız için 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: Podcast2107.xlsm
