Excel'de hücre değerlerine göre belirli sayfaları nasıl yazdırabilirsiniz?
Daha önce, bir hücredeki değere göre belirli sayfaları yazdırmayı denediniz mi? Bu makalede bu soruna yönelik bazı pratik örnekler paylaşıyoruz. İlginizi çekiyorsa, okumaya devam edin!
VBA ile bir hücreye göre sayfa yazdırma
VBA ile bitişik hücreye göre sayfa yazdırma
VBA ile bir hücreye göre sayfa yazdırma
Diyelim ki iki sayfanız var ve Sheet1’deki A1 hücresine göre yalnızca Sheet1’i, yalnızca Sheet2’yi ya da her iki sayfayı birden yazdırmak istiyorsunuz. Lütfen aşağıdaki adımları uygulayın:
Bu durumda, ilk sayfayı yazdırmak için 1, ikinci sayfayı yazdırmak için 2 ve her iki sayfayı da yazdırmak için 3 girin.
1. İlk sayfadaki A1 hücresine ihtiyacınıza göre 1, 2 veya 3 girin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül betiğine yapıştırın. Ekran görüntüsüne bakın:
VBA: Hücre değerine göre sayfa yazdırma
Sub PrintStuff()
'UpdayebyExtendoffice20180811
Dim xRgVal As Variant
Dim xSheets As Sheets
Set xSheets = ActiveWorkbook.Worksheets
xRgVal = xSheets(1).Range("A1").Value
If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
Select Case xRgVal
Case 1
xSheets(1).PrintOut
Case 2
xSheets(2).PrintOut
Case 3
xSheets(1).PrintOut
xSheets(2).PrintOut
Case Else
MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
Exit Sub
End Select
Else
Exit Sub
End If
End Sub
3. Doğrudan sayfa(ları) yazdırmak için F5 tuşuna basın.
VBA ile bitişik hücreye göre sayfa yazdırma
Bir çalışma kitabınızda birden fazla sayfanız varsa ve bu çalışma kitabındaki hücre değerlerine göre bir veya birkaç sayfayı yazdırmak istiyorsanız, aşağıdaki gibi yapabilirsiniz:
1. Kullandığınız çalışma kitabında Kontrol Sayfası adında yeni bir sayfa oluşturun ve tüm sayfa adlarını sütun A’ya listeleyin (kontrol sayfasını dahil etmek mi, yoksa hariç tutmak mı istiyorsanız size kalmış). Ekran görüntüsüne bakın:
2. Yazdırmak istediğiniz sayfanın yanındaki bitişik hücreye “print” yazın. Aşağıdaki ekran görüntüsüne göz atın.
3. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini etkinleştirin ve Ekle > Modül seçeneğine tıklayın. Ekran görüntüsüne bakın：
4. Aşağıdaki kodu Modül’e yapıştırın ve kodu çalıştırmak için F5 tuşuna basın.
VBA: Bitişik hücreye göre yazdırma
Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
Dim i As Integer
Dim xCSheetRow As Integer
Dim xSName As String
Dim xCSheet As Variant
Dim xRgVal As String
On Error Resume Next
xSName = "Control Sheet"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xCSheet = ActiveWorkbook.Worksheets(xSName)
xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
For i = 2 To xCSheetRow
xRgVal = xCSheet.Range("B" & i).Value
If xRgVal = "Print" Or xRgVal = "print" Then
If xCSheet.Range("A" & i).Value <> "" Then
ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
End If
End If
Next
xCSheet.Delete
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Control Sheet"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Sheet Name"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Print?"
For i = 1 To ActiveWorkbook.Worksheets.Count
Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
Next
Cells.Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Kodu çalıştırdıktan sonra sayfa(lar) hemen yazdırılır ve aynı zamanda yeni bir Kontrol Sayfası, eski sayfanın yerine geçer.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
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