Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս տպել բոլոր ընտրանքները Excel- ում բացվող ցուցակում:

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

Տպեք բոլոր ընտրանքները բացվող ցուցակում ՝ VBA կոդով


Տպեք բոլոր ընտրանքները բացվող ցուցակում ՝ VBA կոդով


Հետևյալ VBA կոդը կարող է օգնել տպել բոլոր ընտրանքները աշխատաթերթի բացվող ցուցակում: Խնդրում եմ արեք հետևյալ կերպ.

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք հետևյալ VBA կոդը Մոդուլի պատուհանում: Տեսեք,

VBA կոդ. Տպեք բոլոր ընտրանքները նշված բացվող ցուցակում `առանձին տպագրության մեջ

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

ՆշումԿոդում, Sheet1- ը աշխատանքային թերթի անունն է, որը պարունակում է բացվող ցուցակը, որը ցանկանում եք տպել: Իսկ B8- ն այն բջիջն է, որը պարունակում է բացվող ցուցակը: Խնդրում ենք դրանք փոխարինել ձեր անհրաժեշտով:

3. Սեղմեք F5 ծածկագիրը գործելու համար:

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


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

Հետ Տպեք հատուկ էջեր օգտակարությունը Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք հեշտությամբ տպել նշված էջերը ընթացիկ աշխատանքային թերթում, ինչպիսիք են տպել բոլորը տարօրինակ էջերԲոլոր նույնիսկ էջեր, պարզապես տպեք ընթացիկ էջ, ինչպես նաև տպել էջի հարմարեցված տիրույթը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
Ներբեռնեք և փորձեք այն հիմա: (30-օրյա անվճար արահետ)


Related Articles:


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Cloud · 10 months ago
    @crystal Sorry I totally forgot about this. I'm using Excel 2013.

    So it wasn't actually a blank data.

    I have this dynamic drop down list in cell R17 which also populates other cells in the worksheet using VLOOKUP Function. What happens during print out is that the odd-positioned items on the list appears on the cell while the even-positioned items seemed not to show up that's why I thought it's printing blank pages.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Zack · 1 years ago
    Hi is there a way to be able to preview first all the possible printouts in my drop-down list before it actually prints?
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @Cloud Hi Cloud,
    What version of Excel are you using?
    The problem can't be reproduced in my case. Sorry for the inconvenience.
  • To post as a guest, your comment is unpublished.
    tj123 · 1 years ago
    How can i select a specific droplist, i want to print? , For example if i have 200 names on my droplist and i want to print a specific list, maybe 50 out of 200, How will i do this please?
  • To post as a guest, your comment is unpublished.
    Cloud · 1 years ago
    Thanks for the code. But I'm experiencing a minor issue when printing. When I tried to print the sheet with the drop down list. The first print out, prints the first item on the list while the next print out prints a blank data before it prints the second item from the list. What should I do?
  • To post as a guest, your comment is unpublished.
    Juliette · 2 years ago
    Thank you for the post, this has helped me a lot. I was wondering if you had a way to do VBA to print Page 1 based on one drop-down selection and print Page 1 and 2 based on another drop-down selection? Thanks for any help you can provide.