Sut i awto gwerth celloedd cynyddran ar ôl pob argraffu?
Gan dybio, mae gen i dudalen taflen waith y mae angen ei hargraffu 100 copi, y gell A1 yw'r rhif gwirio Company-001, nawr, hoffwn i'r nifer gynyddu 1 ar ôl pob allbrint. Mae hynny'n golygu pan fyddaf yn argraffu'r ail gopi, bydd y nifer yn cael ei gynyddu i Gwmni-002 yn awtomatig, y trydydd copi, y rhif fydd Cwmni-003 ... cant copi, y rhif fydd Company-100. A oes unrhyw dric i ddatrys y broblem hon yn Excel yn gyflym ac o bosibl?
Gwerth celloedd cynyddiad awto ar ôl pob argraffu gyda chod VBA
Gwerth celloedd cynyddiad awto ar ôl pob argraffu gyda chod VBA
Fel rheol, nid oes unrhyw ffordd uniongyrchol ichi ddatrys y dasg hon yn Excel, ond, yma, byddaf yn creu cod VBA i ddelio ag ef.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Gwerth celloedd cynyddiad awto ar ôl pob argraffu:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi nifer y copïau rydych chi am argraffu'r daflen waith gyfredol, gweler y screenshot:
4. Cliciwch OK botwm, ac mae eich taflen waith gyfredol yn cael ei hargraffu nawr, ac ar yr un pryd, mae'r taflenni gwaith printiedig wedi'u rhifo Company-001, Company-002, Company-003 ... yng nghell A1 yn ôl yr angen.
Nodyn: Yn y cod uchod, y gell A1 yn cael ei fewnosod y rhifau dilyniant a archebwyd gennych, a gwerth gwreiddiol y gell A1 yn cael ei glirio. Ac ““Cwmni-00”Yw rhif y dilyniant, gallwch eu newid i'ch angen.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
