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

 Ինչպե՞ս ինքնաբերաբար ավելացնել բջիջի արժեքը յուրաքանչյուր տպումից հետո:

Ենթադրելով, որ ես ունեմ աշխատաթերթ, որն անհրաժեշտ է 100 օրինակ տպելու համար, A1 բջիջը Ընկերություն -001 ստուգման համարն է, հիմա կցանկանայի, որ յուրաքանչյուր տպումից հետո թիվը 1-ով ավելանար: Դա նշանակում է, որ երբ ես տպում եմ երկրորդ օրինակը, համարը ավտոմատ կերպով կբարձրացվի մինչև Ընկերություն -002, երրորդ օրինակը `համարը Ընկերություն -003… հարյուր օրինակ, համարը` Ընկերություն -100: Կա որևէ հնարք Excel- ում այս խնդիրը արագ և հնարավոր լուծելու համար:

VBA կոդով յուրաքանչյուր տպումից հետո ինքնաբերաբար ավելացող բջիջների արժեքը


նետ կապույտ աջ պղպջակ VBA կոդով յուրաքանչյուր տպումից հետո ինքնաբերաբար ավելացող բջիջների արժեքը

Սովորաբար, Excel- ում այս խնդիրը լուծելու համար ուղղակի ուղի չկա, բայց, այստեղ, ես կստեղծեմ VBA կոդ `դրանով զբաղվելու համար:

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

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

VBA կոդ. Յուրաքանչյուր տպումից հետո բջջայինի ինքնաբերաբար ավելացում.

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3, Դրանից հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղն է, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք պատճենների քանակը, որոնք ցանկանում եք տպել ընթացիկ աշխատանքային թերթը, տե՛ս նկարը.

1-ը տպելիս փաստաթղթի ավելացում

4: Սեղմեք OK կոճակը, և ձեր ընթացիկ աշխատաթերթը հիմա տպվում է, և միևնույն ժամանակ, տպագրված թերթերը համարակալված են Ընկերություն -001, Ընկերություն -002, Ընկերություն -003 cell A1 բջիջում, որքան ձեզ հարկավոր է:

ՆշումՎերոհիշյալ ծածկագրում `բջիջը A1 կտեղադրվի ձեր պատվիրած հաջորդականության համարները և մեջտեղում բջջի բնօրինակը A1 կմաքրվի Եվ «Ընկերություն -00”Հաջորդականության համարն է, դուք կարող եք դրանք փոխել ըստ ձեր կարիքի:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (51)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը ապշեցուցիչ է, դա հենց այն է, ինչ ինձ պետք է, այնուամենայնիվ, ես մտածում էի, թե արդյոք կա՞ տարբերակ տպել «A1» բջիջում մուտքագրված թվից: Օրինակ, եթե ես տպել եմ 100 օրինակ, ապա հաջորդ տպաքանակին պետք է տպել 101 համարից և այնտեղից հաշվել: Ես փորձել եմ մի քանի կոդի ճշգրտումներ, բայց թվում է, որ այն վերցնում է միայն բջիջում մուտքագրված թիվը, այսինքն՝ 101, ավելացնում է 1, և այնուհետև մնացած տպումները կպչում են այդ մեկ թվին, այսինքն՝ 102-ին... Ձեր օգնությունը մեծապես երախտապարտ կլինի: -)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​արդեն լուծում չեք գտել, կարող եք կոդի 17-րդ տողը խմբագրել հետևյալ կերպ՝ ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Սա +1 կցուցադրի այն համարին, որը դուք ունեք A1 բջիջում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն չի ուղարկվում իմ տպիչին
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression 10 օրինակ: J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164:
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si հնարավոր է na pas à avoir aller dans basic. je voudrais que la macro s'active Direction l'option impression-ի միջոցով: Հնարավոր է?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par exemple A1=153 et faire une impression de 10 copies. donc je récupéré 10 տպավորություն numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164:

Je voudrais aussi si հնարավոր է ne pas à avoir utiliser հիմնական pour l'impression. je voudrais pouvoir declancher ուղղություն la macro en utilisant l'option impression tout simplement.

Առողջապահական ծառայություններ մատուցողը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քաջի,
Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ կոդը.
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Խնդրում ենք փորձել, հուսով եմ, որ դա կարող է օգնել ձեզ, եթե որևէ այլ խնդիր ունեք, խնդրում ենք մեկնաբանել այստեղ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գտեք կից փոփոխված ծածկագրերը:

Եվ ահա տեքստում.
Sub IncrementPrint()
«թարմացնելով Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Խոնավեցրեք xScreen-ը որպես բուլյան
Dim I As Long
Ս.թ. սխալի Ռեզյումե Next
LI մուտք.
xStart = Application.InputBox («Խնդրում ենք մուտքագրել առաջին համարը՝», «Kutools for Excel»)
xEnd = Application.InputBox («Խնդրում ենք մուտքագրել վերջին թիվը.», «Kutools for Excel»)
Եթե ​​TypeName(xCount) = «Բուլյան», Ապա Ելք Ենթ
Եթե ​​(xStart = "") Կամ (Not Is Numeric(xStart)) Կամ (xStart < 1) Ապա
MsgBox «Մուտքագրված սխալ, խնդրում ենք նորից մուտքագրել», vbInformation, «Kutools for Excel»
GoTo LInput
Ուրիշ
xScreen = Application.ScreenUpdating
Դիմում. ScreenUpdating = Սուտ է
I = xStart To xEnd-ի համար
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
հաջորդ
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ պետք են սերիական համարներ, ինչպիսիք են IA1-055242, IA1-055243, IA1-055244 .....
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այս հրապարակման համար, այն շատ օգտակար է: Հարցս հետևյալն է. ես ունեմ 2 տարբեր շտրիխ կոդ, որոնք պետք է ավելացվեն մեկ էջում, ինչպե՞ս կարող եմ փոփոխել կոդը դրա համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, որ սա հարցնում եմ առանձին գրառման մեջ... Իմ սերիական համարները սկսվում են ԶՐՈ-ով, բայց երբ ես գործարկում եմ ծրագիրը, այն վերացնում է զրոները: Ես փորձեցի թվային դաշտը վերածել տեքստի, բայց դա չշտկեց: Այլ գաղափարներ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
R-սեղմեք Բջջ, Ձևաչափ, Պատվերով, որտեղ գրված է «Ընդհանուր», փոխարինեք այն այնքան զրոներով, որքան ձեր սերիական համարը կլինի: Սա կստիպի ձեր սերիական համարի դիմաց անհրաժեշտ զրոների քանակը: Եթե ​​ես ունեմ սերիական համարների խումբ, որոնք 10 նիշանոց սերիաներ են, ես մուտքագրում եմ 0000000000 Տիպ դաշտում, որպեսզի «0004563571» ցուցադրվի սերիական համարի դաշտում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն Արտ. Ես փորձեցի դա, բայց շտրիխ-կոդը շարունակում էր վերացնել առաջատար զրոները... նույնիսկ հատուկ թվերի ձևաչափն անելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
իմ սերիական համարը սկսվում է 227861-ով, ինչպես կարող եմ տպել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
տպված է 30 օրինակով, բայց հիմա չեմ կարողանում տպել, շատ անգամ եմ գործարկել սցենարը, բայց չի աշխատում, ոչինչ չեմ անում :(
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն վերը նշվածի համար, իսկապես օգտակար: հնարավո՞ր է պահպանել և հիշել վերջին արժեքը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Պիտեր,
Հաջորդ անգամ տպելիս վերջին տպված արժեքը պահպանելու և հիշելու համար դուք պետք է կիրառեք հետևյալ VBA կոդը.

Sub IncrementPrint()
Dim xCount As Variant
Խոնավեցրեք xScreen-ը որպես բուլյան
Dim I As Long
Dim xM այնքան երկար
Dim xMNWS որպես աշխատանքային թերթիկ
Dim xAWS որպես աշխատանքային թերթիկ
Ս.թ. սխալի Ռեզյումե Next
LI մուտք.
xCount = Application.InputBox («Խնդրում ենք մուտքագրել պատճենների քանակը, որոնք ցանկանում եք տպել.», «Kutools Excel-ի համար»)
Եթե ​​TypeName(xCount) = «Բուլյան», Ապա Ելք Ենթ
Եթե ​​(xCount = "") Կամ (Not Is Numeric(xCount)) Կամ (xCount < 1) Ապա
MsgBox «մուտքագրված սխալ, խնդրում ենք նորից մուտքագրել», vbInformation, «Kutools for Excel»
GoTo LInput
Ուրիշ
xScreen = Application.ScreenUpdating
Սահմանել xAWS = ActiveSheet
Սխալի դեպքում GoTo EMarkNumberSheet
Սահմանել xMNWS = Sheets («IncrementPrint_MarkNumberSheet»)
EMarkNumberSheet:
Եթե ​​xMNWS-ը ոչինչ է, ապա
Սահմանել xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1"): Արժեք = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Ուրիշ
xM = xMNWS.Range(«A1»).Արժեք
Վերջ: Եթե
Դիմում. ScreenUpdating = Սուտ է
Համար I = 1 To xCount
xM = xM + 1
xAWS.Range("A1").Value = "Ընկերություն-00" & xM
xAWS.PrintOut
հաջորդ
xMNWS.Range(«A1»).Արժեք = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Վերջ: Եթե
Վերջ Sub

Եթե ​​Ձեզ անհրաժեշտ է վերականգնել տպված համարը լռելյայն համարին, խնդրում ենք սկզբում գործարկել ստորև բերված կոդը, այնուհետև գործարկել վերը նշված կոդը՝ տպելու համար:

Sub IncrementPrint_Reinstall()
Dim xMNWS որպես աշխատանքային թերթիկ
Սխալի դեպքում GoTo EMarkNumberSheet
Սահմանել xMNWS = Sheets («IncrementPrint_MarkNumberSheet»)
EMarkNumberSheet:
Եթե ​​ոչ xMNWS-ը ոչինչ է, ապա
Application.DisplayAlerts = Սխալ
xMNWS.Visible = xlSheetHidden
xMNWS.Delete
Application.DisplayAlerts = Ճիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շնորհակալություն այս ծածկագրի համար.. Ես մի հարց ունեմ. Ես օգտագործել եմ այս կոդը, բայց շարքերը ցատկում են 0071,0072,0073-ի նման: տեղի է ունեցել 3 անգամ 1-100 սերիաների միջև: Այսպիսով, ես փակեցի vba-ն առանց խնայելու, նորից տեղադրեցի կոդը, բայց այն տպում է պահպանված վերջին սերիան (0032): Հարցս այն է, թե ինչպես կարող եմ անընդհատ տպել առանց շարքի թռիչքի և ինչպես կարող եմ նորից տպագրել՝ սկսած 101-ից: իսկապես կգնահատի ձեր պատասխանը: կներեք սրա համար: Ես ծրագրավորող չեմ, հուսով եմ՝ հասկանում ես։ Շնորհակալություն! 
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն սա տեղադրելու համար, դա շատ օգտակար է: Հարցս հետևյալն է. ես ունեմ 2 տարբեր շտրիխ կոդ, որոնք պետք է ավելացվեն մեկ էջում, ինչպե՞ս կարող եմ փոփոխել կոդը դրա համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դեսմոնդ,
Եթե ​​մեկ էջում ունեք 2 տեղ (օրինակ՝ 2 կտրոն կամ 2 ձևանմուշ / 2 վաուչեր և այլն), ապա կարող եք փորձել օգտագործել ստորև նշված կոդը: (Ենթադրելով, որ ձեր 1-ին շտրիխ կոդը և 2-րդ շտրիխ կոդը գտնվում են նույն էջի «A1» և «A20» բջիջներում, այս կոդը կավելացնի այնպիսի արժեքներ, ինչպիսիք են Company-001 և Company-002 առաջին էջում, իսկ Company-003 և Company-004 երկրորդ էջում: և այլն: Կոդի 20, 21, 23, 24 և 28,29 տողերում կարող եք խմբագրել բջիջի համարը և ընկերության անվանումը, ինչպես ցանկանում եք: 
Այն նաև կխնդրի ձեզ մուտքագրել մեկնարկային և ավարտական ​​համարը (Շնորհակալություն geniusman-ին կոդի այս մասի համար): Այսպիսով, օրինակ, ձեր մեկնարկային համարը: 1-ն է և վերջավորությունը՝ ոչ: 8, 4-ին էջում տպելու է 1,2 էջ 1, 3,4-րդ էջում 2, 5,6-րդ էջում 3 և վերջապես 7,8-րդ էջում 4 էջ։ Հուսով եմ, որ դա կօգնի ձեզ կամ որևէ մեկին, ով փնտրում է այս տեսակի կարիք/պահանջ: 
Փոփոխված կոդը՝---------------------------------------------- ------------Sub IncrementPrint()
«թարմացնելով Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Խոնավեցրեք xScreen-ը որպես բուլյան
Dim I As Long
Ս.թ. սխալի Ռեզյումե Next
LI մուտք.
xStart = Application.InputBox («Խնդրում ենք մուտքագրել առաջին համարը՝», «Kutools for Excel»)
xEnd = Application.InputBox («Խնդրում ենք մուտքագրել վերջին թիվը.», «Kutools for Excel»)
Եթե ​​TypeName(xCount) = «Բուլյան», Ապա Ելք Ենթ
Եթե ​​(xStart = "") Կամ (Not Is Numeric(xStart)) Կամ (xStart < 1) Ապա
MsgBox «Մուտքագրված սխալ, խնդրում ենք նորից մուտքագրել», vbInformation, «Kutools for Excel»
GoTo LInput
Ուրիշ
xScreen = Application.ScreenUpdating
Դիմում. ScreenUpdating = Սուտ է
I = xStart To xEnd-ի համար
Եթե ​​ես Mod 2 = 0 Ապա
ActiveSheet.Range("A1").Value = "Company-00" & I + 1
ActiveSheet.Range("A20").Value = "Company-00" & I
Ուրիշ
ActiveSheet.Range("A20").Value = "Company-00" & I + 1
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
Վերջ: Եթե
հաջորդ
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Վերջ: Եթե
Վերջ Sub

-------------------------------------------------- -------------------------------------------------- -----Շնորհակալություն, RNS
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իմ բջիջը I3 է, իսկ թիվը՝ 2298, երբ ես փորձում եմ (VBA կոդը. Ավտոմատ աճող բջիջի արժեքը յուրաքանչյուր տպագրությունից հետո:) այն ինձ տալիս է 22981, ինչպես կարող եմ հասցնել 2298,2299,2300:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ջենիֆեր,
Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ VBA կոդը.
Նշում. Խնդրում ենք փոխել նախածանցի տեքստը և համարը ձեր սեփականի:

Sub IncrementPrint_Num()
Dim xCount As Variant
Խոնավեցրեք xScreen-ը որպես բուլյան
Dim I As Long
Dim xStr Որպես տող
Dim xInt որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
xStr = "Ընկերություն-" 'նախածանցի տեքստ
xInt = 2291 'թիվ
LI մուտք.
xCount = Application.InputBox («Խնդրում ենք մուտքագրել պատճենների քանակը, որոնք ցանկանում եք տպել.», «Kutools Excel-ի համար»)
Եթե ​​TypeName(xCount) = «Բուլյան», Ապա Ելք Ենթ
Եթե ​​(xCount = "") Կամ (Not Is Numeric(xCount)) Կամ (xCount < 1) Ապա
MsgBox «մուտքագրված սխալ, խնդրում ենք նորից մուտքագրել», vbInformation, «Kutools for Excel»
GoTo LInput
Ուրիշ
xScreen = Application.ScreenUpdating
Դիմում. ScreenUpdating = Սուտ է
Համար I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
հաջորդ
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Վերջ: Եթե
Վերջ Sub

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, կարո՞ղ եք օգնել ինձ այս հարցում: Ես ուզում եմ, որ xINT-ը լինի ավելի քան 5 թվանշան: Ամեն անգամ, երբ ես դնում եմ 6 նիշ ունեցող թիվ, թիվը վերադառնում է 1-ի: Ինչպե՞ս կարող եմ դա կանխել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շատ հետաքրքիր է, թեև ես փնտրում եմ այլ լուծում, որը չկարողացա գտնել, և նույնիսկ եթե փորձեի հարմարեցնել կոդը, մինչ այժմ չէի կարող հասնել: Հետևելով ձեր օրինակին, ես պետք է տպեմ նույն էջը 100 անգամ: Օրինակ՝ նույն PDF-ում և յուրաքանչյուր էջում ավելանում է էջի համարը: Ինչպես ասացի, փորձեցի համադրման մեթոդը, բայց, ինչպես հասկացա, այն թույլ է տալիս միասին տպել, եթե ձեզ անհրաժեշտ են նույն տպագրության մի քանի օրինակներ: Նախապես շնորհակալություն Ջուզեպպե
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, այս կոդը հիանալի է աշխատում, բայց 32767 բջիջի արժեքից հետո կրկին վերադառնում է 1: Այս արժեքից հետո այն տպվում է 1-ից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ շնորհակալ եմ, այն աշխատում է ինձ համար: Եվ ինձ հաջողվում է մի քանի փոքր փոփոխություն կատարել՝ իմ կարիքներին համապատասխան: Իսկապես գնահատում եմ ձեր տարածումը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջենիֆեր, փորձիր սա
Sub IncrementPrint()
«թարմացնելով Extendoffice 20160530
Dim xCount As Variant
Խոնավեցրեք xScreen-ը որպես բուլյան
Dim I As Long
Ս.թ. սխալի Ռեզյումե Next
LI մուտք.
xCount = Application.InputBox («Խնդրում ենք մուտքագրել պատճենների քանակը, որոնք ցանկանում եք տպել.», «Kutools Excel-ի համար»)
Եթե ​​TypeName(xCount) = «Բուլյան», Ապա Ելք Ենթ
Եթե ​​(xCount = "") Կամ (Not Is Numeric(xCount)) Կամ (xCount < 1) Ապա
MsgBox «մուտքագրված սխալ, խնդրում ենք նորից մուտքագրել», vbInformation, «Kutools for Excel»
GoTo LInput
Ուրիշ
xScreen = Application.ScreenUpdating
Դիմում. ScreenUpdating = Սուտ է
Համար I = 1 To xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
հաջորդ
«ActiveSheet.Range(«J18»).ClearContents»

Application.ScreenUpdating = xScreen
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալ եմ միլիոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ է աշխատում աստիճանական #-եր տպելու համար: Ինչպե՞ս կարող եմ տպել յուրաքանչյուր 5-րդ, 10-ը, երբ անհրաժեշտ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ տարբերակ ընտրելու, թե ինչ արժեքներ եմ ուզում տպել: Օրինակ, ես տպել եմ 1-ից 30-րդ հաջորդականությունը, բայց պետք է նորից տպել 15-ից 19-րդ հաջորդականությունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հեյ, ես ուզում եմ փոխել K11 բջջային համարի համարը տպելուց հետո 1-2-3-4-5-6 և այլն, խնդրում եմ, կարո՞ղ եք օգնել: և նաև ասա ինձ, թե ինչպես զանգահարել այդ ֆունկցիան pls ​​help
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես մտածում էի, թե ինչպես անել մի փոքր փոփոխություն, որպեսզի այն տպի 1-ը 10-ից, 2-ը 10-ից, 3-ը 10-ից և այլն:
Հակառակ դեպքում սա հիանալի է աշխատում: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, իմ անունը վստահ է, ես ունեմ տվյալներ excel ձևաչափով, առանց որևէ սերիական համարի, որը սիրում է ճանապարհային օրինագծի օրինակ: Ես պետք է ընդունեմ այն ​​որպես տպագիր 100 էջ և պետք է տպեմ սերիական համարը այն, ինչ երբևէ անհրաժեշտ է 4 նիշից, բայց տպելիս ես պետք է անեմ ձեռքով: կարո՞ղ եք բացատրել, թե ով է տպել ավտոմատ կերպով տպելիս սերիական համարի կոդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի!! Ես ծրագրավորող չեմ, բայց կարողացա փոխել Cell ref-ը և uniq համարակալումը, որն ուզում էի: Հոյակապ աշխատեց ինձ համար, Աստված օրհնի քեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է նաև ավելացնել այս ծածկագրին, որպեսզի ավտոմատ կերպով տպվի 2 օրինակ։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծում եմ՝ կարող եք փոխել այս մասը՝ ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

դեպի
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

յուրաքանչյուրից 2 օրինակ ստանալու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ հետաքրքրում էր, թե արդյոք կարող եք ուղղակիորեն տպել ֆայլը վերաբացելուց հետո, և այն դեռ հետևում է հաջորդական թվին:
Այն, ինչ ես այժմ անում եմ, այն է, որ ամեն անգամ, երբ բացում եմ ֆայլը, ALT + F11 ապա F5 և նշում եմ պատճենների քանակը: Այնուհետև այն կտպագրի ֆայլը ճիշտ համարակալմամբ, այնուհետև նորից կպահի: և երբ ես նորից կբացեմ, ես պարզապես պետք է անեմ նույն քայլը:
Եթե ​​կա կոդ, որտեղ դուք կարող եք ուղղակիորեն տպել այն ամեն անգամ, երբ բացում եք ֆայլը, և այն դեռ կհետևի հաջորդական համարակալմանը:
շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ հետաքրքրում էր, թե արդյոք կարող եք ուղղակիորեն տպել ֆայլը վերաբացելուց հետո, և այն դեռ հետևում է հաջորդական թվին:

Այն, ինչ ես այժմ անում եմ, այն է, որ ամեն անգամ, երբ բացում եմ ֆայլը, ALT + F11 ապա F5 և նշում եմ պատճենների քանակը: Այնուհետև այն կտպագրի ֆայլը ճիշտ համարակալմամբ, այնուհետև նորից կպահի: և երբ ես նորից կբացեմ, ես պարզապես պետք է անեմ նույն քայլը:

Եթե ​​կա կոդ, որտեղ դուք կարող եք ուղղակիորեն տպել այն ամեն անգամ, երբ բացում եք ֆայլը, և այն դեռ կհետևի հաջորդական համարակալմանը:

շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ վերը նշված կոդը կիսելու համար: Դա շատ օգտակար է բոլորի համար: Կարո՞ղ ենք ավելացնել մի քանի կոդ՝ տպելուց հետո 8-ի փոխարեն 1 համար ավելացնելու համար: Սպասում ենք ձեր պատասխանին: Շնորհակալություն
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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