Jak automaticky zvyšovat hodnotu buňky po každém tisku?
Předpokládám, že mám stránku listu, kterou je třeba vytisknout 100 kopií, buňka A1 je kontrolní číslo Company-001, nyní bych chtěl, aby se počet po každém výtisku zvýšil o 1. To znamená, že když vytisknu druhou kopii, počet se automaticky zvýší na společnost-002, třetí kopie, číslo bude společnost-003 ... sto kopií, číslo bude společnost-100. Existuje nějaký trik, jak tento problém rychle a možná vyřešit v aplikaci Excel?
Automatické zvyšování hodnoty buňky po každém tisku pomocí kódu VBA
Automatické zvyšování hodnoty buňky po každém tisku pomocí kódu VBA
Normálně neexistuje žádný přímý způsob, jak vyřešit tento úkol v aplikaci Excel, ale zde vytvořím kód VBA, který se s ním vypořádá.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Automatické zvyšování hodnoty buňky po každém tisku:
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali počet kopií, které chcete vytisknout aktuální list, viz screenshot:
4, klikněte OK Tlačítko a váš aktuální list se nyní tiskne a současně jsou tištěné listy očíslovány Company-001, Company-002, Company-003 ... v buňce A1, jak potřebujete.
Poznámka: Ve výše uvedeném kódu buňka A1 budou vložena pořadová čísla, která jste si objednali, a původní hodnota buňky v A1 bude vymazáno. A "Společnost-00„Je pořadové číslo, můžete je podle potřeby změnit.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!