वीबीए और नामांकित श्रेणियों का उपयोग करके एक स्व-समाशोधन एक्सेल फॉर्म बनाएं

चरण 1:वर्कशीट संरचना की स्थापना

• एक नई एक्सेल वर्कबुक खोलें।
• अपना फॉर्म लेआउट बनाएं।
• शीट1 का नाम बदलकर "फॉर्म" कर दें।
• फॉर्म शीट पर निम्नलिखित लेआउट बनाएं।

• प्रत्येक लेबल के आगे, डेटा प्रविष्टि के लिए रिक्त सेल (B2, B3, B4, B5) प्रदान करें।

• एक नई वर्कशीट डालें और उसका नाम बदलकर "डेटाबेस" कर दें।
• पंक्ति 1 में हेडर बनाएं:
  • नाम
  • विभाग
  • वेतन
  • प्रारंभ तिथि
  • प्रवेश तिथि

चरण 2:नामांकित श्रेणियाँ बनाना

• सेल बी2 चुनें।
• नाम बॉक्स में (सूत्र पट्टी के बाईं ओर), नाम टाइप करें .
• Enter दबाएँ .

• प्रत्येक सेल के लिए इस प्रक्रिया को दोहराएं:
  • बी3:इसे विभाग नाम दें .
  • B4:इसे वेतन नाम दें .
  • B5:इसे StartDate नाम दें .

• सूत्र पर जाएं टैब>> नाम प्रबंधक चुनें या Ctrl+F3 दबाएँ .
• सत्यापित करें कि सभी नामित श्रेणियां सही ढंग से बनाई गई हैं।
• बंद करें चुनें .

चरण 3:फॉर्म बटन बनाना

• फॉर्म शीट पर जाएं।
• डेवलपर पर जाएं टैब>> सम्मिलित करें चुनें>>प्रपत्र नियंत्रण से>> बटन चुनें .

• सेल में बटन बनाएं।
• संकेत दिए जाने पर, मैक्रो को SubmitandClearForm नाम दें .
• ठीक क्लिक करें .

• बटन पर राइट-क्लिक करें>> टेक्स्ट संपादित करें चुनें .

• फ़ॉर्म सबमिट करें और साफ़ करें में बदलें .

• दूसरा बटन डालें।
• मैक्रो को नाम दें ClearForm .
• बटन टेक्स्ट को फॉर्म साफ़ करें में बदलें .

चरण 4:VBA कोड लिखना

• डेवलपर के पास जाएं टैब>> विजुअल बेसिक चुनें .
• मेनू से, सम्मिलित करें पर क्लिक करें>> मॉड्यूल चुनें .

• निम्नलिखित VBA कोड को कॉपी-पेस्ट करें।

Sub SubmitandClearForm()
 Dim ws As Worksheet
 Dim dbSheet As Worksheet
 Dim lastRow As Long
 Dim formValid As Boolean
 
 ' Set worksheet references
 Set ws = ThisWorkbook.Sheets("Form")
 Set dbSheet = ThisWorkbook.Sheets("Database")
 
 ' Find the next empty row in database
 lastRow = dbSheet.Cells(dbSheet.Rows.Count, 1).End(xlUp).Row + 1
 
 ' Copy data from form to database
 dbSheet.Cells(lastRow, 1).Value = Range("Name").Value
 dbSheet.Cells(lastRow, 2).Value = Range("Department").Value
 dbSheet.Cells(lastRow, 3).Value = Range("Salary").Value
 dbSheet.Cells(lastRow, 4).Value = Range("StartDate").Value
 dbSheet.Cells(lastRow, 5).Value = Now() ' Entry timestamp
 
 ' Clear the form
 ClearForm
 
 ' Provide feedback
 MsgBox "Employee data submitted successfully!", vbInformation, "Success"
 
 ' Set focus back to name field
 Range("Name").Select
End Sub

• फॉर्म शीट पर नामित श्रेणियों से इनपुट लेता है।
• इस डेटा को टाइमस्टैम्प के साथ डेटाबेस शीट में अगली पंक्ति में जोड़ता है।
• फ़ॉर्म फ़ील्ड रीसेट करने के लिए ClearForm मैक्रो को कॉल करता है।
• एक पुष्टिकरण संदेश दिखाता है और कर्सर को नाम फ़ील्ड पर सेट करता है।

Sub ClearForm()
 ' Clear all form fields using named ranges
 Range("Name").ClearContents
 Range("Department").ClearContents
 Range("Salary").ClearContents
 Range("StartDate").ClearContents
 
 ' Set focus to first field
 Range("Name").Select
End Sub

• फॉर्म शीट पर सभी फॉर्म फ़ील्ड (नाम, विभाग, वेतन, प्रारंभ दिनांक) की सामग्री साफ़ करता है।
• त्वरित डेटा प्रविष्टि के लिए कर्सर को वापस नाम फ़ील्ड पर सेट करता है।

चरण 6:स्व-समाशोधन फॉर्म का परीक्षण

• अपनी कार्यपुस्तिका को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका (.xlsm) के रूप में सहेजें।
• अपने फॉर्म फ़ील्ड में डेटा दर्ज करें।
• सबमिट करें और फॉर्म साफ़ करें पर क्लिक करें .

• फ़ॉर्म फ़ील्ड स्वचालित रूप से डेटाबेस शीट में डेटा सबमिट करते हैं। प्रपत्र डेटा को स्वचालित रूप से साफ़ करें, और कर्सर नए डेटा प्रविष्टि के लिए तैयार, पहले फ़ील्ड पर वापस आ जाएगा।

• सबमिट किया गया डेटा डेटाबेस शीट में संग्रहीत किया जाता है।

• इसके अतिरिक्त, आप फॉर्म साफ़ करें का उपयोग कर सकते हैं बटन. यह फ़ॉर्म डेटा हटा देगा, चाहे वह सबमिट किया गया हो या नहीं।

• कर्सर को पहले फ़ील्ड पर लौटाता है।

स्वयं-समाशोधन फॉर्म का उपयोग करने के लाभ

• दक्षता :इनपुट के मैन्युअल विलोपन को समाप्त करके समय बचाता है।
• सटीकता :दोहराए जाने वाले कार्यों से मानवीय त्रुटि को कम करता है।
• सुविधा :उपयोगकर्ता अनुभव और डेटा-एंट्री गति को बढ़ाता है।

निष्कर्ष