Jak wydrukować określony arkusz na podstawie wartości komórek w programie Excel?
Czy kiedykolwiek próbowałeś wydrukować określone arkusze na podstawie wartości komórki? W tym artykule omówię kilka przykładów na ten temat, jeśli jesteś zainteresowany tym problemem, kontynuuj.
Wydrukuj arkusz na podstawie komórki z VBA
Wydrukuj arkusz na podstawie sąsiedniej komórki z VBA
Wydrukuj arkusz na podstawie komórki z VBA
Przypuśćmy, że są dwa arkusze, więc chcesz wydrukować Arkusz1 lub Arkusz2 lub oba arkusze na podstawie komórki A1 w Arkuszu1. Wykonaj poniższe czynności:
W takim przypadku wprowadź 1, aby wydrukować pierwszy arkusz, wprowadź 2, aby wydrukować drugi arkusz i 3, aby wydrukować oba arkusze.
1. Wpisz 1, 2 lub 3, tak jak potrzebujesz, do A1 na pierwszym arkuszu i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno. Zobacz zrzut ekranu:
2. kliknij wstawka > Modułi wklej poniższy kod w Moduł scenariusz. Zobacz zrzut ekranu:
VBA: Drukuj arkusz na podstawie wartości komórki
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. naciśnij F5 klawisz, aby bezpośrednio wydrukować arkusz (y).
Wydrukuj arkusz na podstawie sąsiedniej komórki z VBA
Jeśli masz wiele arkuszy w skoroszycie i chcesz wydrukować jeden lub kilka arkuszy na podstawie wartości komórek z tego skoroszytu, możesz wykonać poniższe czynności:
1. Utwórz nowy arkusz o nazwie Arkusz kontrolny w używanym skoroszycie i wymień wszystkie nazwy arkuszy w kolumnie A (dołącz lub wyklucz arkusz kontrolny, jeśli potrzebujesz). Zobacz zrzut ekranu:
2. Rodzaj " ”W sąsiedniej komórce obok nazwy arkusza, jeśli chcesz go wydrukować. Zobacz pokazany zrzut ekranu.
3. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł. Zobacz zrzut ekranu :
4. Wklej poniższy kod do modułu i naciśnij F5 klucz do uruchomienia kodu.
VBA: Drukuj na podstawie sąsiedniej komórki
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
Po uruchomieniu kodu arkusz (y) zostaną teraz wydrukowane, a jednocześnie nowy arkusz kontrolny zastąpi stary.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
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!