Ինչպե՞ս Excel- ում տպման տարածքը դնել վերջին շարքում:

Excel- ում, լռելյայն, այն կսահմանի ամբողջ աշխատանքային թերթը մինչև վերջին շարքը `տվյալները որպես տպման տարածք: Բայց այս դեպքում ես ուզում եմ տպել A սյունակից C սյուն մինչև վերջին շարքը տվյալներով, ինչպես ցույց է տրված նկարներից ներքևում: Արդյո՞ք կան դրա կարգավորման եղանակներ:

Տպման տարածքը տվեք վերջին շարքին ՝ տվյալներով ՝ Տպման ընտրությամբ

Տպման տարածքը դրեք վերջին շարքում `VBA- ի տվյալներով

---

Տպման տարածքը տվեք վերջին շարքին ՝ տվյալներով ՝ Տպման ընտրությամբ

Ընտրությունը տվյալների հետ վերջին շարքում տպելու համար տպելուց առաջ կարող եք փոխել տպման տարածքը նշված ընտրության:

1. Պահեք Ctrl ստեղն այնուհետև ընտրեք այն սյունակները, որոնք ցանկանում եք տպել: Տեսեք,

2: սեղմեք Ֆայլ > տպելեւ ապա ընտրեք Տպման ընտրություն - ից Կարգավորում Բաժին. Տեսեք,

---

Տպման տարածքը տվեք վերջին շարքում ՝ տվյալներով

Այստեղ ես ներմուծում եմ մակրո կոդ ՝ այս գործողությունն իրականացնելու համար:

1. Միացրեք ձեր օգտագործած թերթիկը, սեղմեք Alt + F11 բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը և սեղմեք Տեղադրել > Մոդուլներ, Տեսեք նկարը

2. Կպցրեք ներքևի կոդը ՝ Մոդուլներ սցենար և սեղմել F5 գործելու բանալին:

VBA. Տարածքը դնել վերջին շարքում

'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. Բացվում է երկխոսություն ՝ հիշեցնելու համար ընտրել սյունակի տիրույթը, որը ցանկանում եք օգտագործել: Տեսեք,

4: սեղմեք OK, սահմանվել է տպման տարածքը: