Hogyan nyomtathat bizonyos oldalakat vagy munkalapot az Excel cellája alapján?
Megpróbált már kinyomtatni bizonyos oldalt vagy munkalapot az Excel cellája alapján? És hogyan lehet elérni? Az ebben a cikkben szereplő módszerek segítséget nyújtanak a részletek megoldásában.
Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal
Bizonyos munkalap nyomtatása a cellaérték alapján, VBA kóddal
Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal
Például azt szeretné, hogy egy bizonyos oldal, például az aktuális munkalap 1. oldala automatikusan kinyomtatódjon, amikor az 1. oldalszámot beírja az aktuális munkalap A1 cellájába. Ennek eléréséhez a következőket teheti.
1. Jelölje ki a nyomtatni kívánt oldalszámot tartalmazó cellát, majd nyomja meg az gombot más és a F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak. Ezután kattintson a gombra betétlap > Modulok.
2. Ezután a Microsoft Visual Basic for Applications ablak felbukkan, kérjük, másolja és illessze be a következő VBA kódot a Kód ablak.
VBA kód: Oldal nyomtatása a cellaérték alapján
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. nyomja meg F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen kattintson a Igen gombra az adott oldal kinyomtatásához, vagy kattintson a gombra Nem gombot a párbeszédpanelből való kilépéshez, ha nem akar nyomtatni. Lásd a képernyőképet:
Ezután megnyílik az aktuális munkalap bizonyos oldalának előnézete, kattintson a gombra gombot a nyomtatás megkezdéséhez.
Bizonyos oldal nyomtatása a cellaérték alapján, VBA kóddal
Tegyük fel, hogy az aktív munkalapot szeretné kinyomtatni, ha a lap B2 cellájának értéke megegyezik a 1001. számmal. Ezt a következő VBA kóddal érheti el. Kérjük, tegye a következőket.
1. Kattintson a jobb gombbal a Lap fül amelyet a cellaérték alapján szeretne kinyomtatni, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.
2. Ezután a Microsoft Visual Basic for Applications megjelenik az ablak, kérjük, másolja és illessze be a következő VBA kódot a Kód ablakba.
VBA kód: Munkalap nyomtatása a cellaérték alapján
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
Megjegyzések: Igény szerint megváltoztathatja a cella és a cella értékét a kódban.
3. nyomja meg más + Q bezárni Microsoft Visual Basic for Applications ablak.
Amikor beírja az 1001 számot a B2 cellába, a Kutools az Excel számára megjelenik a párbeszédpanel, kattintson a gombra Igen gombot a nyomtatás megkezdéséhez. Vagy kattintson a gombra Nem gombot a párbeszédpanel közvetlen nyomtatás nélküli kilépéséhez. Lásd a képernyőképet:
Kapcsolódó cikkek:
- Hogyan lehet dinamikus nyomtatási területet létrehozni az Excel programban?
- Hogyan nyomtassunk csak ki egy munkalap utolsó oldalát az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!