Hogyan lehet automatikusan növelni a cellák értékét minden nyomtatás után?
Tegyük fel, hogy van egy munkalapom, amelyet 100 példány kinyomtatására szükségem van, az A1 cella a Company-001 csekkszám, most szeretném, ha minden nyomtatás után 1-gyel nőne a szám. Ez azt jelenti, hogy amikor kinyomtatom a második példányt, a szám automatikusan a Company-002-re nő, a harmadik példány a Company-003 ... száz példány, a szám Company-100 lesz. Van valami trükk a probléma gyors és lehetséges megoldására az Excel programban?
Automatikusan növekszik a cella értéke minden VBA kóddal történő nyomtatás után
Automatikusan növekszik a cella értéke minden VBA kóddal történő nyomtatás után
Általában nincs közvetlen módja ennek a feladatnak az Excelben történő megoldására, de itt létrehozok egy VBA kódot a kezelésére.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Automatikusan növekszik a cella értéke minden nyomtatás után:
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. Ezután nyomja meg a gombot F5 gomb a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy adja meg az aktuális munkalap kinyomtatni kívánt példányszámát, lásd a képernyőképet:
4. Kattints OK gombra, és az aktuális munkalap most nyomtatódik, ugyanakkor a kinyomtatott munkalapok Company-001, Company-002, Company-003 ... számmal jelennek meg az A1 cellában, amire szüksége van.
Megjegyzések: A fenti kódban a cella A1 be lesz illesztve a megrendelt sorszámok és az eredeti cellaérték A1 megtisztul. És „Társaság-00”A sorszám, megváltoztathatja őket az Ön igényeinek megfelelően.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
