Ç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
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:
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:
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:
 |
 |
 |
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.
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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!
