Jak wydrukować określone strony lub arkusz roboczy na podstawie wartości komórki w programie Excel?
Czy kiedykolwiek próbowałeś wydrukować określoną stronę lub arkusz roboczy na podstawie wartości komórki w programie Excel? A jak to osiągnąć? Metody opisane w tym artykule mogą pomóc w szczegółowym rozwiązaniu tego problemu.
Wydrukuj określoną stronę na podstawie wartości komórki z kodem VBA
Wydrukuj określony arkusz roboczy na podstawie wartości komórki z kodem VBA
Wydrukuj określoną stronę na podstawie wartości komórki z kodem VBA
Na przykład chcesz, aby określona strona, taka jak strona 1 bieżącego arkusza, była drukowana automatycznie po wprowadzeniu numeru strony 1 do komórki A1 w bieżącym arkuszu. Aby to osiągnąć, możesz wykonać następujące czynności.
1. Wybierz komórkę zawierającą numer strony, na podstawie której chcesz drukować, a następnie naciśnij inny i F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno. Następnie kliknij wstawka > Moduł.
2. Następnie Microsoft Visual Basic for Applications pojawi się okno, skopiuj i wklej następujący kod VBA do pliku Code okno.
Kod VBA: wydrukuj stronę na podstawie wartości komórki
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. naciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel okno dialogowe, kliknij przycisk Tak , aby wydrukować określoną stronę, lub kliknij Nie , aby zamknąć okno dialogowe, jeśli nie chcesz drukować. Zobacz zrzut ekranu:
Następnie otworzy się okno podglądu określonej strony bieżącego arkusza roboczego, kliknij przycisk przycisk, aby rozpocząć drukowanie.
Wydrukuj określoną stronę na podstawie wartości komórki z kodem VBA
Przypuśćmy, że chcesz wydrukować aktywny arkusz roboczy, gdy wartość w komórce B2 tego arkusza jest równa liczbie 1001. Możesz to osiągnąć za pomocą następującego kodu VBA. Wykonaj następujące czynności.
1. Kliknij prawym przyciskiem myszy Karta Arkusz który chcesz wydrukować na podstawie wartości komórki, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.
2. Następnie Microsoft Visual Basic for Applications pojawi się okno, skopiuj i wklej następujący kod VBA do okna kodu.
Kod VBA: wydrukuj arkusz roboczy na podstawie wartości komórki
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
Note: Możesz zmienić komórkę i wartość komórki w kodzie według potrzeb.
3. naciśnij inny + Q zamknąć Microsoft Visual Basic for Applications okno.
Podczas wpisywania liczby 1001 do komórki B2, a Kutools dla programu Excel pojawi się okno dialogowe, kliknij Tak przycisk, aby rozpocząć drukowanie. Lub kliknij Nie przycisk, aby zamknąć okno dialogowe bezpośrednio bez drukowania. Zobacz zrzut ekranu:
Powiązane artykuły:
- Jak utworzyć dynamiczny obszar drukowania w programie Excel?
- Jak wydrukować tylko ostatnią stronę arkusza roboczego w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!