Jak automatycznie zwiększać wartość komórki po każdym drukowaniu?
Przypuśćmy, że mam arkusz roboczy do wydrukowania w 100 egzemplarzach, komórka A1 to numer czeku Firma-001, teraz chciałbym, aby liczba ta wzrosła o 1 po każdym wydruku. Oznacza to, że kiedy wydrukuję drugi egzemplarz, numer zostanie automatycznie zwiększony do Company-002, trzeci egzemplarz to numer Company-003… sto egzemplarzy, numer to Company-100. Czy jest jakaś sztuczka, aby szybko i prawdopodobnie rozwiązać ten problem w programie Excel?
Automatycznie zwiększaj wartość komórki po każdym wydrukowaniu z kodem VBA
Automatycznie zwiększaj wartość komórki po każdym wydrukowaniu z kodem VBA
Zwykle nie ma bezpośredniego sposobu rozwiązania tego zadania w programie Excel, ale tutaj utworzę kod VBA, aby sobie z tym poradzić.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Automatyczny przyrost wartości komórki po każdym drukowaniu:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wprowadzeniu liczby kopii, które chcesz wydrukować bieżącego arkusza roboczego, patrz zrzut ekranu:
4. Kliknij OK przycisk, a bieżący arkusz roboczy jest teraz drukowany, a jednocześnie drukowane arkusze są ponumerowane Firma-001, Firma-002, Firma-003… w komórce A1 według potrzeb.
Note: W powyższym kodzie komórka A1 zostaną wstawione numery sekwencji, które zamówiłeś, i oryginalna wartość komórki A1 zostaną usunięte. I "Firma-00”To numer kolejny, możesz go zmienić według swoich potrzeb.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!