1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Hvor raskt kan skrive ut gjeldende siden i Excel

The følgende VBA-kode kan hjelpe deg raskt ut den gjeldende med aktiv celle, kan du gjøre som dette:
1. Aktiv en celle som du ønsker å skrive ut siden.
2. Deretter Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window.
Public Sub Print_Page_of_ActiveCell () Dim ActiveRow As Long, ActiveCol As Integer Dim iHPBs As Integer, iVPBs As Integer Dim iRow As Integer, iCol As Integer, iPage As Integer ActiveRow = ActiveCell.Row ActiveCol = ActiveCell.Column ActiveSheet.UsedRange Hvis gjelder tom bil (ActiveCell.SpecialCells (xlCellTypeLastCell)) Så _ ActiveCell.SpecialCells (xlCellTypeLastCell) .FormulaR1C1 = "" Hvis ActiveRow > ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Eller _ ActiveCol > ActiveCell.SpecialCells (xlCellTypeLastCell) .Column Så _ Exit Sub Med Active iHPBs = .HPageBreaks.Count iVPBs = .VPageBreaks.Count Hvis iHPBs = 0 Og iVPBs = 0 Then GoTo PrintSheetHorizontal: For iRow = iHPBs Til 1 trinn -1 Hvis .HPageBreaks (iRow) .Location.Row < = ActiveRow Så GoTo Vertical Neste iRowVertical: For iCol = iVPBs Til 1 trinn -1 Hvis .VPageBreaks (iCol) .Location.Column < = ActiveCol Så GoTo PrintSheet Neste iColPrintSheet: iPage = (iRow + 1) + (iCol * (iHPBs + 1)) .PrintOut Fra: = iPage, Til: = iPage MsgBox "Printing side" & iPage End Med Dersom ActiveCell.SpecialCells (xlCellTypeLastCell) .FormulaR1C1 = "" Så _ Selection.SpecialCells (xlCellTypeLastCell) .ClearContentsEnd Sub4. Deretter trykker du på F5 for å kjøre denne koden, og en rask boks vil minne deg hvilken side du vil skrive ut.
5. Klikk deretter på OK, og den gjeldende siden med aktive cellen er skrevet ut.

Skriv ut gjeldende side med aktiv celle med Kutools for Excel ved ett klikk
Kanskje koden ovenfor er litt vanskelig for de fleste av oss, her Jeg vil ta deg en enkel og hendig verktøy-Kutools for Excel. Med sin Print Current Page verktøyet, kan du skrive ut den aktive siden med ett klikk.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Etter installering Kutools for Excel, kan du gjøre på følgende måte:
1. Klikk på en celle som du ønsker å skrive ut siden.
To. Klikk Enterprise > Skriv ut gjeldende side, se skjermbilde:
tre. Og en rask boks vil minne deg hvilken side du vil skrive ut.
4. Deretter klikker OK, vil den aktive cellen siden bli skrevet ut.
Klikk Skriv ut gjeldende side for å vite mer om denne funksjonen. Anmeldelser