Hogyan állítsuk be a nyomtatási területet az Excel utolsó sorába?
Az Excel programban alapértelmezés szerint a teljes munkalapot az utolsó sorig állítja be, ahol az adatok nyomtatási területként szerepelnek. De ebben az esetben az A oszlopból a C oszlopba szeretnék nyomtatni az utolsó sorig az adatokkal, az alábbi képernyőképen látható módon. Van-e valamilyen módszer a kezelésére?
Állítsa a nyomtatási területet az adatok utolsó sorára a Print Selection segítségével
Állítsa a nyomtatási területet az utolsó sorra a VBA adatai alapján
Állítsa a nyomtatási területet az adatok utolsó sorára a Print Selection segítségével
Ha kijelölést szeretne nyomtatni az utolsó sorra az adatokkal, akkor a nyomtatás előtt módosíthatja a nyomtatási területet a megadottra.
1. Tartsa Ctrl gombot, majd válassza ki a nyomtatni kívánt oszlopokat. Lásd a képernyőképet:
2. kettyenés filé > , majd válassza ki Nyomtatás kiválasztása tól Beállítás szakasz. Lásd a képernyőképet:
Állítsa a nyomtatási területet az adatok utolsó sorára
Itt bemutatok egy makrokódot ennek a műveletnek a végrehajtásához is.
1. Engedélyezze a használt lapot, nyomja meg a gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok. Lásd a képernyőképet.
2. Illessze be a kód alatt a Modulok szkriptet, és nyomja meg a gombot F5 kulcs a futtatáshoz.
VBA: A Terület beállítása az utolsó sorra
'UpdatebyExtendoffice20170811
Dim xRg As Range
Dim xRgLRow As Long
Dim xRgAddress As String
On Error Resume Next
xRgAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xRgAddress, , , , , 8)
xRg.Select
xRgLRow = xRg.SpecialCells(xlCellTypeLastCell).Row
xRgAddress = Left(xRg.Address(1, 1), Len(xRg.Address(1, 1)) - 2)
xRgAddress = xRgAddress & xRgLRow
ActiveSheet.PageSetup.PrintArea = xRgAddress
End Sub
3. Megjelenik egy párbeszédpanel, amely emlékezteti Önt a használni kívánt oszloptartomány kiválasztására. Lásd a képernyőképet:
4. kettyenés OK, a nyomtatási terület be lett állítva.
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!