Ինչպե՞ս ինքնաբերաբար ավելացնել բջիջի արժեքը յուրաքանչյուր տպումից հետո:
Ենթադրելով, որ ես ունեմ աշխատաթերթ, որն անհրաժեշտ է 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 Այս կոդը գործարկելու համար ստեղն է, և դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք պատճենների քանակը, որոնք ցանկանում եք տպել ընթացիկ աշխատանքային թերթը, տե՛ս նկարը.
4: Սեղմեք OK կոճակը, և ձեր ընթացիկ աշխատաթերթը հիմա տպվում է, և միևնույն ժամանակ, տպագրված թերթերը համարակալված են Ընկերություն -001, Ընկերություն -002, Ընկերություն -003 cell A1 բջիջում, որքան ձեզ հարկավոր է:
ՆշումՎերոհիշյալ ծածկագրում `բջիջը A1 կտեղադրվի ձեր պատվիրած հաջորդականության համարները և մեջտեղում բջջի բնօրինակը A1 կմաքրվի Եվ «Ընկերություն -00”Հաջորդականության համարն է, դուք կարող եք դրանք փոխել ըստ ձեր կարիքի:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: