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:
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
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:
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.
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 :
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
Kodu çalıştırdıktan sonra, sayfa (lar) hemen yazdırılacak ve aynı zamanda yeni bir Kontrol Sayfası eskisinin yerini alacaktır.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
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!