एक अद्वितीय रिकॉर्ड संख्या बनाएँ - एक्सेल टिप्स

इंग्लैंड के जेनेट ने आज का प्रश्न प्रस्तुत किया।

हमें यह जानने की जरूरत है कि मैक्रो को कैसे सेट किया जाए जो एक यूनीक इनवॉइस नंबर को असाइन करेगा, दूसरे मैक्रो को कैसे सेट करें जो यूनिक इनवॉइस को यूनिक नंबर के रूप में बचाएगा।

यहाँ काल्पनिक अनुप्रयोग है जिसकी मैं कल्पना कर रहा हूँ। एक इनवॉइस वर्कशीट और एक मेनू वर्कशीट के साथ एक कार्यपुस्तिका है। मैं मेन्यू वर्कशीट पर सेल के बाहर आखिरी इनवॉइस नंबर को स्टोर करने का प्रस्ताव करता हूं, जो Z1 कहता है। यदि इनवॉइस वर्कशीट के सेल H2 में इनवॉइस नंबर जाना है, तो यह मैक्रो ट्रिक करेगा:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

फिर, चालान को बचाने के लिए, कुछ इस तरह से:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub