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

Çalışma kitabının her çalışma sayfasının boyutu nasıl kontrol edilir?

Birden çok çalışma sayfası içeren büyük bir çalışma kitabınız olduğunu varsayarsak ve şimdi, hangi sayfanın küçültülmesi gerektiğini belirlemek için her çalışma sayfasının boyutunu bulmak istiyorsunuz. Bu görevin üstesinden gelmek için herhangi bir hızlı yöntem var mı?

Her çalışma sayfasının boyutunu VBA kodu ile kontrol edin

Kutools for Excel ile her çalışma sayfasının boyutunu kontrol edin

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

ok mavi sağ balon Her çalışma sayfasının boyutunu VBA kodu ile kontrol edin

Aşağıdaki VBA kodu ile, çalışma kitabınızdaki her çalışma sayfasının boyutunu hızlı bir şekilde alabilirsiniz. Lütfen şunu yapın:

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Bir çalışma kitabındaki her çalışma sayfasının boyutunu kontrol edin </ p>

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu yürütmek için anahtar ve adlı yeni bir çalışma sayfası KutoolsforExcel her çalışma sayfası adını ve dosya boyutunu içeren mevcut çalışma kitabına eklenecektir ve birim Bit'tir. Ekran görüntüsüne bakın:

doc-check-sheet-size1

ok mavi sağ balon Kutools for Excel ile her çalışma sayfasının boyutunu kontrol edin

Eğer varsa Kutools for Excel, Onun ile Çalışma Kitabını Böl yardımcı program, tüm çalışma kitabını ayrı dosyalara bölebilir ve ardından her dosyanın boyutunu kontrol etmek için belirli bir klasöre gidebilirsiniz.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

Kutools for Excel'i yükledikten sonra aşağıdaki adımları izleyin:

1. Her çalışma sayfasının boyutunu kontrol etmek istediğiniz çalışma kitabını açın ve kuruluş > Çalışma Kitabı Araçları > Çalışma Kitabını Böl, ekran görüntüsüne bakın:

doc-check-sheet-size1

2. In Çalışma Kitabını Böl iletişim kutusu, tüm çalışma sayfalarını kontrol edin ve tıklayın Bölünmüş düğmesini tıklayın ve sonra yeni çalışma kitabı dosyalarını koymak için bir klasör belirtin. Ekran görüntülerine bakın:

doc-check-sheet-size3
-1
doc-check-sheet-size4

3. Ve sonra mevcut çalışma kitabınızın her çalışma sayfası ayrı Excel dosyası olarak kaydedilecek, her çalışma kitabının boyutunu kontrol etmek için belirli klasörünüze gidebilirsiniz.

doc-check-sheet-size1

Bu Bölünmüş Çalışma Kitabı özelliği hakkında daha fazla bilgi için.

İlgili yazılar:

Excel'de Excel dosyalarını ayırmak için bir çalışma kitabını nasıl bölerim?

Sayfaları ve çalışma sayfalarını Excel'de yeni çalışma kitabı olarak nasıl dışa aktarabilir ve kaydedebilirim?

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yaşlılar önden
En yeni ilk
Yorumlar (9)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Anand
Anand
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok yararlı. Teşekkür ederim!!
cevap
0
0
Ben S.
Ben S.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Herkese açık kod parçacığı sağladığınız için teşekkür ederiz. Bulduğum daha iyi rutinlerden biri. İşte birkaç ince ayar: 1) Option Explicit kullanıyorsanız, en üste "Dim xIndex as Long" ekleyin. 2) Gizli sayfaları işlemek için bunu For döngüsünün içine ekleyin (aksi takdirde çöker): xWs.Visible = xlSheetVisible 3) Tam sayfa "grafik" sayfalarınız varsa, döngü kodunu kopyalamanız ve Uygulama boyunca yinelemeniz gerekir. ActiveWorkbook.Charts koleksiyonu. Bunu yaparsanız, xWs bildirimini "Sayfa"dan "Nesne"ye değiştirin. 4) Ucuz bir durum göstergesi için (veya hata ayıklama sorunları için) For döngüsü içine şu satırı ekleyin: Debug.Print "Çalışma Sayfası Boyutları, Sayfa" & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Adı
cevap
0
0
Bob M
Bob M
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey Ben, e-postanızdaki 2 ve 4 numaralı öğeleri ekleyerek tüm metin dizisini yeniden yapıştırabilir misiniz? VBA bilgim oldukça sınırlı ve bunları For döngüsüne tam olarak nereye ekleyeceğimden emin değilim. Çalışma kitabımda bir dizi gizli sayfa var ve makro yürütme sırasında çökmeye devam ediyor. teşekkürler, Bob
cevap
0
0
Ben S.
Ben S.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İşte eklediğim birkaç geliştirme ile rutinin bir kopyası. Site sınırları nedeniyle birden fazla gönderiye bölmek zorunda kaldım. Public Sub WorksheetSizes() 'Güncelleme 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />' ' BS 4/4/2016: Bir durum çubuğuna sahip olacak ve çıktıyı biçimlendirecek şekilde değiştirildi. ' Kilitlenmesine neden olan gizli sayfalar için düzeltildi. ' Grafik sayfaları için destek eklendi xWs As Object ' Çalışma Sayfası veya Grafik Dim rng As Range Dim xOutWs As Worksheet Dim xOutFile As String Dim xOutName As String Dim xIndex As Long Error GoTo ErrorHandler Application.Cursor = xlWait xOutFiName = "Kutoolsfor" ThisWorkbook.Path & "\TempWb.xls" Hatasında Sonraki Application.DisplayAlerts = False Err = 0 Set xOutWs = Application.Worksheets(xOutName) Err = 0 ise xOutWs.Delete Err = 0 Application.ActiveWorkbook.Worksheets ile Sonlandır .Add(Before:=Application.Worksheets(1)) .Name = xOutName .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size") Set ile Bitiş xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = False xIndex = 1 Debug.Print ThisWorkbook.Path Uygulamadaki Her xW İçin.ActiveWorkbook.Worksheets Eğer xWs.Name xOutName Sonra Application.StatusBar = "Çalışma Sayfası Boyutları, Sayfa " & xIndex & " Hesaplanıyor of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print "W Hesaplanıyor orksheet Sizes, Sheet " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' CTRL+Break'in algılanabilmesi için bunu içerir. '--- yapıştırma ara ---
cevap
0
0
Ben S.
Ben S.
Bu yorum sitedeki moderatör tarafından en aza indirildi
' Bölüm 2 / 3 '--- kesme yapıştır --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook .Close SaveChanges:=False Set rng = xOutWs.Range("A1").Offset(xIndex, 0) rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) xOutFile öldür xIndex = xIndex + 1 End If Next ' Grafik sayfaları için yukarıdakileri tekrarlayın. Application.ActiveWorkbook.Charts İçindeki Her xW için xWs.Name xOutName ise Application.StatusBar = "Çalışma Sayfası Boyutları, Sayfa" & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug. Yazdır "Çalışma Sayfası Boyutları, Sayfa" & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' CTRL+Break'in algılanabilmesi için bunu içerir. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=False Set rng = xOutWs.Range("A ").Offset(xIndex, 1) rng.Resize(0, 1).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Kill xOutFile xIndex = xIndex + 2 End If Next '--- yapıştırma sonu ---
cevap
0
0
Ben S.
Ben S.
Bu yorum sitedeki moderatör tarafından en aza indirildi
' Bölüm 3 / 3 '--- kesme yapıştır --- ' Çıktı sayfasını biçimlendirin Application.Sheets(xOutName).Activate Columns("B:B").Selection.NumberFormat = "#,##0_);( #,##0)" Columns("A:B").Select Columns("A:B").EntireColumn.AutoFit Range("A1"). ' öğesini seçin. Daha da iyisi, tablo olarak biçimlendirin. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "WorksheetSizes" Application.ScreenUpdating = True Application.Application.DisplayAlerts = True Application.StatusBar = "" Application.Cursor = xlDefault Exit Sub ErrorHandler: MsgBox "Error #" & Err.Number & " - " & Err.Description & vbCrLf & "worksheetSizes prosedüründe" End Sub
cevap
0
0
Juliana
Juliana
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok ÇokÇokÇok Çok Yararlı.
Teşekkür ederim!!
cevap
0
0
Anson
Anson
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler, çok yardımcı oldunuz,
Bir sayfada bir sürü gereksiz formül vardı ve şimdi dosyanın iyi çalıştığını sildim.
Bütün bunlar sadece her yaprağın boyutunu bulabildiğim için oluyor.
Tekrar teşekkürler.

Anson
cevap
0
0
Rodolfo Solis
Rodolfo Solis
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodun çökmesini önlemek için bazı sayfaların gizlenmesi durumunda muhtemelen bunu 9. ve 10. satırlar arasına eklemelisiniz.
E-Tablolardaki Her xW için: xWs.Visible = True: Next
cevap
0
0
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Konuk
Misafir olarak yayınlama
Giriş
×
Bu gönderiyi değerlendirin:
Reset
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır