Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տպել բազմաթիվ ընտրություններ Excel- ի մեկ էջում:

Եթե ​​ունեք մեծ աշխատաթերթ, որը շատ տվյալներ է պարունակում, և այժմ, դուք ցանկանում եք տպել որոշ ընտրված տիրույթներ, որոնք ոչ շարունակական են մեկ էջում, որպեսզի կարողանաք շատ թուղթ խնայել: Excel- ը տրամադրում է Սահմանել տպման տարածքը մեզ համար միանգամից մի քանի ընտրություն տպելու առանձնահատկություն, բայց յուրաքանչյուր ընտրված տիրույթը կտպագրվի մեկ էջի մեջ առանձին: Այս հոդվածում կխոսվի այն մասին, թե ինչպես տպել բազմաթիվ ոչ շարունակական ընտրություններ մեկ էջում:

Տպեք բազմաթիվ ընտրություններ մեկ աշխատանքային թերթից մեկ էջում ՝ VBA կոդով

Excel- ի համար Kutools- ի հետ մեկ էջում տպեք բազմաթիվ ընտրություններ մեկ կամ մի քանի աշխատանքային թերթերից


Տպեք բազմաթիվ ընտրություններ մեկ աշխատանքային թերթից մեկ էջում ՝ VBA կոդով

Մեկ էջում մեկ աշխատանքային թերթի բազմաթիվ ընտրված ոչ հարակից ընտրություններ տպելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալը.

1. Մամուլ Ctrl ստեղն ընտրելու համար այն տիրույթները, որոնք ցանկանում եք տպել:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տպեք բազմաթիվ ընտրություններ մեկ էջում

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և ձեր ընտրած տիրույթները միանգամից կտպագրվեն, և դրանք կտպագրվեն մեկ էջի:


Excel- ի համար Kutools- ի հետ մեկ էջում տպեք բազմաթիվ ընտրություններ մեկ կամ մի քանի աշխատանքային թերթերից

Վերոնշյալ կոդը կարող է օգնել ձեզ տպել միայն ընտրված տիրույթները մեկ աշխատանքային թերթից, եթե ցանկանում եք մի քանի էջերի բազմաթիվ ընտրություններ տպվել մեկ էջում, վերը նշված կոդը չի աշխատի: Խնդրում եմ մի անհանգստացեք, ահա, ես կարող եմ ձեզ ներկայացնել օգտակար գործիք - Excel- ի համար նախատեսված գործիքներԻր Տպեք բազմակի ընտրության կախարդ օգտակար, դուք կարող եք միանգամից մեկ էջում տպել ընտրությունները մեկ աշխատանքային թերթից կամ բազմաթիվ աշխատաթերթերից:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում ենք անել հետևյալ քայլերով.

1: Սեղմեք Kutools Plus > Տպագրություն > Տպեք բազմակի ընտրության կախարդ, տես նկարի նկարը.

2, Մեջ Տպեք բազմակի ընտրության կախարդՀամարփաստաթուղթ ավելացնել կոճակը կոճակը ընտրելու և ավելացնելու համար այն տիրույթը, որը ցանկանում եք տպել Ranges to print ցուցակի մեջ մեկ առ մեկ, (կարող եք ընտրել միջակայքերը մեկ աշխատանքային թերթից կամ բազմաթիվ աշխատանքային թերթերից) փաստաթուղթ հեռացնելու կոճակ կոճակը կարող է հեռացնել ձեզ համար անհրաժեշտ տիրույթները, տես նկարի նկարը.

doc տպել բազմաթիվ ընտրություններ 2

3, Ընտրությունները ցուցակի վանդակում ավելացնելուց հետո կտտացրեք Հաջորդ >> կախարդ ՝ կախարդի 2-րդ փուլին անցնելու համար, նշեք տպման պարամետրերը, որքան ձեզ հարկավոր է, և ընտրված տիրույթների միջև կարող եք ավելացնել դատարկ տող ստուգման միջոցով Դաշտերի միջև ավելացրեք դատարկ տող տարբերակը, տես նկարի նկարը.

doc տպել բազմաթիվ ընտրություններ 3

4, Դրանից հետո անցեք կտտացնելով Հաջորդ >> butoon, հրաշագործի 3-րդ քայլում նշեք գործողությունը ժամանակավոր աշխատաթերթի համար, կարող եք ակտիվացնել աշխատաթերթը, բայց չտպել, տպել աշխատաթերթը և պահել այն կամ տպել աշխատանքային թերթը և ջնջել այն: Տեսեք,

doc տպել բազմաթիվ ընտրություններ 4

5: Սեղմեք Ավարտել կոճակը, ընտրված բոլոր տիրույթները տեղադրվել են նոր աշխատանքային թերթում ՝ որպես կապակցված նկարների օբյեկտներ: Եվ դրանք կարող եք քաշել և վերադասավորել աշխատաթերթում: Տեսեք,

doc տպել բազմաթիվ ընտրություններ 5

6, Երբ տպում եք այս նոր աշխատանքային թերթը, միջակայքերը կտպագրվեն մեկ էջում, որքան ձեզ հարկավոր է:

Կտտացրեք ՝ ավելին իմանալու համար Տպել բազմակի ընտրության մոգ այս օգտակար ծրագրի մասին:

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Դեմո. Մեկ էջում տպեք բազմաթիվ ընտրություններ մեկ կամ մի քանի աշխատանքային թերթերից Kutools- ի համար Excel- ի

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (2)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի ձեր VBA կոդը Excel 2016-ով և ստացա սխալ՝ Կազմելու սխալ․ ֆունկցիայի ենթակետը սահմանված չէ։ Այս տողը ընդգծված է՝ Սահմանել xRng1 = xNewWs.Cells (xIndex, 1)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս տպել ընտրության տարածքը բազմակի տպագրությամբ: նկատի ունեմ ընտրության տարածքը, որը ցանկանում եմ տպել 10 անգամ
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից