प्रत्येक मुद्रण के बाद सेल मान में स्वत: वृद्धि कैसे करें?
मान लीजिए, मेरे पास एक वर्कशीट पृष्ठ है जिसकी 100 प्रतियां मुद्रित करने की आवश्यकता है, सेल ए1 चेक नंबर कंपनी-001 है, अब, मैं चाहूंगा कि प्रत्येक प्रिंटआउट के बाद संख्या 1 बढ़ जाए। इसका मतलब है कि जब मैं दूसरी प्रति प्रिंट करूंगा, तो संख्या स्वचालित रूप से कंपनी-002 हो जाएगी, तीसरी प्रति, संख्या कंपनी-003 होगी... एक सौ प्रति, संख्या कंपनी-100 होगी। क्या एक्सेल में इस समस्या को जल्दी और संभवतः हल करने की कोई तरकीब है?
वीबीए कोड के साथ प्रत्येक प्रिंटिंग के बाद ऑटो इंक्रीमेंट सेल वैल्यू
वीबीए कोड के साथ प्रत्येक प्रिंटिंग के बाद ऑटो इंक्रीमेंट सेल वैल्यू
आम तौर पर, एक्सेल में इस कार्य को हल करने का आपके लिए कोई सीधा तरीका नहीं है, लेकिन, यहां, मैं इससे निपटने के लिए एक वीबीए कोड बनाऊंगा।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: प्रत्येक मुद्रण के बाद स्वचालित वृद्धि सेल मान:
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 बटन, और आपकी वर्तमान वर्कशीट अब प्रिंट हो रही है, और साथ ही, मुद्रित वर्कशीट को आपकी आवश्यकता के अनुसार सेल A001 में कंपनी-002, कंपनी-003, कंपनी-1... क्रमांकित किया गया है।
नोट: उपरोक्त कोड में, सेल A1 आपके द्वारा ऑर्डर किए गए अनुक्रम संख्याएं और मूल सेल मान डाला जाएगा A1 साफ़ कर दिया जाएगा. और "कंपनी-00” अनुक्रम संख्या है, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!