Çalışma kitabındaki her sayfanın boyutunu nasıl ayarlarsınız?
Birden fazla çalışma sayfası içeren büyük bir çalışma kitabınız olduğunu ve hangi sayfaların küçültülmesi gerektiğini belirlemek için her bir sayfanın boyutunu öğrenmek istediğinizi düşünün. Bu görevi yerine getirmek için hızlı yöntemler var mı?
Her bir çalışma sayfasının boyutunu VBA koduyla kontrol edin
Her bir çalışma sayfasının boyutunu Kutools for Excel ile kontrol edin
Her bir çalışma sayfasının boyutunu VBA koduyla kontrol edin
Aşağıdaki VBA koduyla çalışma kitabınızdaki her bir çalışma sayfasının boyutunu hızlıca belirleyebilirsiniz. Lütfen aşağıdaki adımları izleyin:
1. "ALT" + "F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.
2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki kodu "Modül Penceresi"ne yapıştırın.
VBA kodu: Bir çalışma kitabındaki her bir çalışma sayfasının boyutunu kontrol edin
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. Ardından bu kodu çalıştırmak için "F5" tuşuna basın; böylece her bir Çalışma Sayfası Adı ve Dosya Boyutu bilgisini (birimi Bit olacak şekilde) içeren "KutoolsforExcel" adında yeni bir çalışma sayfası, geçerli çalışma kitabına eklenir. Ekran görüntüsüne bakın:
Her bir çalışma sayfasının boyutunu Kutools for Excel ile kontrol edin
Eğer "Kutools for Excel" eklentiniz varsa, "Çalışma Kitabını Ayır" özelliğini kullanarak tüm çalışma kitabını ayrı dosyalara bölebilir ve ardından ilgili klasöre gidip her bir dosyanın boyutunu kontrol edebilirsiniz.
"Kutools for Excel", 300'den fazla kullanışlı Excel aracı sunar. 30 gün boyunca sınırsız olarak ücretsiz deneyebilirsiniz.Hemen Edinin.
Kutools for Excel yüklendikten sonra aşağıdaki adımları uygulayın:
1. Boyutunu kontrol etmek istediğiniz çalışma kitabını açın ve **Kutools Plus** > **Çalışma Kitabı** > **Çalışma Kitabını Ayır** seçeneğine tıklayın.
2. "Çalışma Kitabını Ayır" iletişim kutusunda tüm çalışma sayfalarını seçin, "Böl" düğmesine tıklayın ve ardından yeni çalışma kitabı dosyalarını kaydetmek için bir klasör belirtin. Ekran görüntülerine göz atın:
 |
 |
 |
3. Böylece "Geçerli Çalışma Kitabı" seçeneğiyle çalışma kitabınızdaki her bir çalışma sayfası ayrı bir Excel dosyası olarak kaydedilir; her bir dosyanın boyutunu görmek için belirttiğiniz klasöre gidebilirsiniz.
Bu “Çalışma Kitabını Ayır” özelliğinin ayrıntılarını öğrenmek için.
İlgili makaleler:
Excel'de bir çalışma kitabını ayrı Excel dosyalarına nasıl bölerim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar