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

Excel'deki hücre değerlerine göre belirli bir sayfa nasıl yazdırılır?

Hücre değerine göre bazı belirli sayfaları yazdırmayı hiç denediniz mi? Bu yazımda bu konu ile ilgili bazı örneklerden bahsedeceğim, bu sorunla ilgileniyorsanız lütfen devam edin.

VBA ile bir hücreye dayalı sayfa yazdırın

VBA ile bitişik hücreye dayalı sayfa yazdırın


VBA ile bir hücreye dayalı sayfa yazdırın

İki yaprak olduğunu varsayarsak, Sheet1 veya Sheet2 veya her iki sayfayı Sheet1'deki Cell A1'e göre yazdırmak istiyorsunuz. Lütfen aşağıdaki gibi yapın:

Bu durumda, ilk sayfanın yazdırılacağını belirtir 1, ikinci sayfayı yazdırmak için 2 ve her iki sayfayı yazdırmak için 3 girin.

1. İlk sayfada A1'e ihtiyacınız olduğu için 2, 3 veya 1 girin ve Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere. Ekran görüntüsüne bakın:
1. hücreye göre doc yazdırma sayfası

2. tık Ekle > modülve aşağıdaki kodu şuraya yapıştırın: modül senaryo. Ekran görüntüsüne bakın:

VBA: Hücre değerine göre Sayfayı Yazdır

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

2. hücreye göre doc yazdırma sayfası

3. Basın F5 doğrudan sayfaları yazdırmak için tuşuna basın.


VBA ile bitişik hücreye dayalı sayfa yazdırın

Bir çalışma kitabında birden çok sayfanız varsa ve bu çalışma kitabındaki hücre değerlerine göre bir veya birkaç sayfa yazdırmak istiyorsanız, aşağıdaki işlemleri yapabilirsiniz:

1. adlı yeni bir sayfa oluşturun Kontrol Sayfası kullandığınız çalışma kitabında ve tüm sayfa adını A sütununda listeleyin (ihtiyaç duyduğunuzda kontrol sayfasını dahil edin veya hariç tutun). Ekran görüntüsüne bakın:
3. hücreye göre doc yazdırma sayfası

2. "baskıYazdırmak istiyorsanız, sayfa adının yanındaki bitişik hücrede "". Gösterilen ekran görüntüsüne bakın.
4. hücreye göre doc yazdırma sayfası

3. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. Ekran görüntüsüne bakın :
5. hücreye göre doc yazdırma sayfası

4. Aşağıdaki kodu Modüle yapıştırın ve F5 kodu çalıştırmak için anahtar.

VBA: Bitişik hücreye göre yazdır

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

 6. hücreye göre doc yazdırma sayfası

Kodu çalıştırdıktan sonra, sayfa (lar) hemen yazdırılacak ve aynı zamanda yeni bir Kontrol Sayfası eskisinin yerini alacaktır.

İpucu.Eğer varsa Kutools for Excel'S Sayfa Adlarının Listesini Oluşturun yardımcı program, tıklanabilir bir bağlantıyla yeni bir sayfada tüm sayfa adlarının bir listesini hızlı bir şekilde oluşturabilirsiniz.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 
gün, lütfen şimdi indirin ve ücretsiz deneme yapın.


7. hücreye göre doc yazdırma sayfası

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ü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış

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