Excel'deki hücre değerine göre belirli sayfaları veya çalışma sayfasını nasıl yazdırabilirim?
Excel'deki bir hücre değerine göre belirli bir sayfa veya çalışma sayfası yazdırmayı hiç denediniz mi? Ve nasıl başarılır? Bu makaledeki yöntemler, sorunu ayrıntılı olarak çözmenize yardımcı olabilir.
VBA kodu ile hücre değerine göre belirli bir sayfa yazdırın
VBA kodu ile hücre değerine göre belirli çalışma sayfasını yazdırın
VBA kodu ile hücre değerine göre belirli bir sayfa yazdırın
Örneğin, geçerli çalışma sayfasındaki A1 hücresine sayfa numarası 1 girildiğinde, geçerli çalışma sayfasının 1. sayfası gibi belirli bir sayfanın otomatik olarak yazdırılmasını istiyorsunuz. Bunu başarmak için aşağıdaki işlemleri yapabilirsiniz.
1. Yazdırmak istediğiniz sayfa numarasını içeren hücreyi seçin ve ardından düğmesine basın. Ara Toplam ve F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic penceresi. Sonra tıklayın Ekle > modül.
2. Sonra Uygulamalar için Microsoft Visual Basic penceresi açılır, lütfen aşağıdaki VBA kodunu kopyalayıp Kod pencere.
VBA kodu: Hücre değerine göre sayfa yazdırın
Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub
3. Basın F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusunda, Evet belirli bir sayfayı yazdırmak için düğmesine veya Yok hayır Yazdırmak istemiyorsanız iletişim kutusundan çıkmak için düğmesine basın. Ekran görüntüsüne bakın:
Ardından, mevcut çalışma sayfasının belirli sayfasının önizleme penceresi açılır, lütfen Print Yazdırmayı başlatmak için düğmesine basın.
VBA kodu ile hücre değerine göre belirli bir sayfa yazdırın
Bu sayfanın B2 hücresindeki değer 1001 sayısına eşit olduğunda etkin çalışma sayfasını yazdırmak istediğinizi varsayarsak. Bunu aşağıdaki VBA kodu ile elde edebilirsiniz. Lütfen aşağıdaki işlemleri yapın.
1. Sağ tıklayın Sayfa Sekmesi Hücre değerine göre yazdırmak istediğinizi seçin ve ardından Kodu Görüntüle sağ tıklama menüsünden.
2. Sonra Uygulamalar için Microsoft Visual Basic penceresi açılır, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Hücre değerine göre çalışma sayfası yazdırın
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
If xCell.Value = 1001 Then
xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut
Else
Exit Sub
End If
End If
End Sub
not: Koddaki hücre ve hücre değerini ihtiyaç duyduğunuz şekilde değiştirebilirsiniz.
3. Basın Ara Toplam + Q kapatmak için Uygulamalar için Microsoft Visual Basic pencere.
B1001 hücresine 2 sayısını girerken, bir Kutools for Excel iletişim kutusu açılır, lütfen tıklayın Evet Yazdırmayı başlatmak için düğmesine basın. Veya tıklayın Yok hayır iletişim kutusundan yazdırmadan doğrudan çıkmak için düğmesine basın. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Excel'de dinamik bir baskı alanı nasıl oluşturulur?
- Excel'de bir çalışma sayfasının yalnızca son sayfasını nasıl yazdırabilirim?
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!