Jak wydrukować wszystkie arkusze z wyjątkiem jednego konkretnego arkusza w programie Excel?
W pracy w programie Excel drukowanie arkuszy może być dla Ciebie codzienną pracą. Jednak czy kiedykolwiek próbowałeś wydrukować wszystkie arkusze oprócz jednego konkretnego arkusza? Na przykład skoroszyt, w którym chcesz wydrukować wszystkie arkusze oprócz arkusza o nazwie „Razem”, jak szybko sobie z tym poradzić?
Wydrukuj cały arkusz oprócz jednego z VBA
Wydrukuj określone strony, których potrzebujesz, za pomocą Kutools for Excel
Wydrukuj cały arkusz oprócz jednego z VBA
Oto kod VBA, który może drukować wszystkie arkusze z wyjątkiem jednego określonego arkusza.
1. Aktywuj skoroszyt, z którego chcesz wydrukować arkusze, i naciśnij Alt + F11 klucze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > modułe, wklej poniższy kod do skryptu modułu.
VBA: Drukuj arkusz z wyjątkiem jednego
Sub printsheets()
'UpdatebyExtendoffice20161031
Dim xWs As Worksheet
Application.ScreenUpdating = False
For Each xWs In ThisWorkbook.Worksheets
If xWs.Visible = True Then
If xWs.Name <> "Total" Then
With xWs.PageSetup
.PrintArea = "A1:B15" ' USE YOUR PRINTAREA
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
xWs.PrintOut
End If
End If
Next xWs
Application.ScreenUpdating = False
MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub
Uwaga: W kodzie Suma in Jeśli xWs.Name <> "Total" Then i MsgBox „Arkusz sumy nie został wydrukowany” to nazwa arkusza, którego nie chcesz drukować, a A1: B15 in .PrintArea = "A1: B15" to zakres, w jakim chcesz wydrukować każdy arkusz. Możesz je zmieniać według potrzeb.
3. naciśnij F5 aby uruchomić kod, a następnie wyskakuje okno dialogowe przypominające, że określony arkusz nie został wydrukowany. Zobacz zrzut ekranu:
4. kliknij OK aby zamknąć okno dialogowe.
Wydrukuj określone strony, których potrzebujesz, za pomocą Kutools for Excel
Jeśli chcesz tylko wydrukować tylko strony parzyste lub nieparzyste lub określone strony arkusza, możesz złożyć wniosek Kutools dla programu Excel'S Drukuj określone strony narzędzie, które może szybko wyświadczyć ci przysługę.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności :(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Aktywuj arkusz, w którym chcesz wydrukować określone strony, kliknij Kutools Plus > Druk > Drukuj określone strony. Zobacz zrzut ekranu:
2. Następnie w Drukuj określone strony sprawdź opcje w zależności od potrzeb drukowania. Zobacz zrzut ekranu:
3. kliknij wydrukować strony.
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

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!
