एक्सेल में बटन, फॉर्म और छिपे हुए तर्क के साथ एक कार्यात्मक मिनी-ऐप बनाएं

चरण 1:ऐप सुविधाओं की योजना बनाएं

• होम: बड़े बटनों वाला एक साफ़ लैंडिंग पृष्ठ ("ऑर्डर जोड़ें", "ऑर्डरडेटा" "डैशबोर्ड")।
• फ़ॉर्म: सबमिट ऑर्डर बटन के साथ उपयोगकर्ता-सामना वाले इनपुट (ड्रॉप-डाउन, दिनांक, संख्या फ़ील्ड)।
• ऑर्डरडेटा: एक एकल एक्सेल तालिका जो सभी रिकॉर्ड संग्रहीत करती है (इसे अपना डेटाबेस समझें)।
• तर्क: सहायक तालिकाओं, नामित श्रेणियों, सत्यापन नियमों और आईडी काउंटरों के लिए एक छिपी हुई शीट।
• डैशबोर्ड: यदि आप चाहें, तो आप लॉजिक शीट द्वारा फीड किए गए छोटे KPI कार्ड और चार्ट के साथ बिक्री डेटा से एक डैशबोर्ड बना सकते हैं।

चरण 2:ऑर्डर फॉर्म शीट बनाएं

• ऑर्डर फॉर्म नामक एक नई शीट बनाएं .
• कॉलम ए में, निम्नलिखित इनपुट लेबल सूचीबद्ध करें:
  • ऑर्डर आईडी
  • तिथि
  • श्रेणी
  • उत्पाद
  • इकाइयां
  • इकाई मूल्य
  • कुल राशि

• कॉलम बी में, प्रविष्टि के लिए खाली सेल छोड़ें:
• फ़ॉर्म को अच्छे से फ़ॉर्मेट करें:
  • कॉलम की चौड़ाई समायोजित करें।
  • सेल बॉर्डर जोड़ें.

चरण 3:प्रपत्र नियंत्रण जोड़ें

नामांकित श्रेणियां बनाएं:

• उत्पाद नाम के साथ श्रेणी सूचीबद्ध करें।
• सूत्र पर जाएं टैब>> नाम प्रबंधक चुनें>> नया चुनें .

• नाम में: श्रेणी.
• में को संदर्भित करता है:

• श्रेणी और उत्पाद चुनें.
• सूत्र पर जाएं टैब>> चयन से बनाएं चुनें .
• शीर्ष पंक्ति का चयन करें .
• ठीक क्लिक करें .

• उत्पाद का नाम और कीमत चुनें।
• सूत्र पर जाएं टैब>> चयन से बनाएं चुनें .
• बाएं कॉलम का चयन करें .
• ठीक क्लिक करें .

ड्रॉप-डाउन सूचियां बनाएं:

• सेल B4 चुनें.
• डेटा पर जाएं टैब>> डेटा सत्यापन चुनें .
• अनुमति के अंतर्गत>> सूची चुनें .
• इनस्रोत: नामित श्रेणी डालें.
• ठीक क्लिक करें .

• सेल B5 का चयन करें और एक आश्रित ड्रॉप-डाउन सूची बनाएं।
• डेटा पर जाएं टैब>> डेटा सत्यापन चुनें .
• अनुमति के अंतर्गत>> सूची चुनें .
• इनस्रोत: निम्नलिखित सूत्र डालें.
• ठीक क्लिक करें .

• आप किसी श्रेणी के आधार पर उत्पाद का चयन कर सकते हैं।

• सेल बी6 चुनें।
• डेटा पर जाएं टैब>> डेटा सत्यापन चुनें .
• अनुमति के अंतर्गत  >> सूची चुनें .
• इनस्रोत: सूची को 10 तक डालें
• ठीक क्लिक करें .

• सेल B7 चुनें.
• डेटा पर जाएं टैब>> डेटा सत्यापन चुनें .
• अनुमति के अंतर्गत  >> सूची चुनें .
• इनस्रोत: निम्नलिखित सूत्र डालें.
• ठीक क्लिक करें .

=INDIRECT(SUBSTITUTE(B5, " ", "_"))

• यह एक आश्रित ड्रॉप-डाउन सूची है।
• आप उत्पाद के आधार पर कीमत का चयन कर सकते हैं।

सबमिट बटन जोड़ें:

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

• इसे अभी के लिए छोड़ दें, हम चरण 5 में एक मैक्रो निर्दिष्ट करेंगे।

चरण 4. एक ऑर्डर डेटाबेस और डैशबोर्ड शीट बनाएं

• ऑर्डरडेटा नामक एक नई शीट जोड़ें।
• पंक्ति 1 में, निम्नलिखित शीर्षलेख जोड़ें:
  • ऑर्डर_आईडी
  • तिथि
  • श्रेणी
  • उत्पाद
  • यूनिट_मूल्य
  • इकाइयां
  • कुल_राशि

• बैकएंड को उपयोगकर्ताओं से दूर रखने के लिए हम इस शीट को बाद में छिपा देंगे।

चरण 5:VBA लॉजिक जोड़ें

• SubmitOrder पर राइट-क्लिक करें बटन>> मैक्रो असाइन करें >> नया क्लिक करें .

• निम्नलिखित कोड डालें.

Sub SubmitOrder()
 Dim wsForm As Worksheet, wsDB As Worksheet
 Dim nextRow As Long
 Dim lastOrderID As String
 Dim newOrderNum As Long
 
 Set wsForm = ThisWorkbook.Sheets("Order Form")
 Set wsDB = ThisWorkbook.Sheets("OrderData")
 
 ' Find the next empty row in the database
 nextRow = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1
 
 ' Get last order ID (skip header)
 If nextRow = 2 Then
 ' No orders yet ? start from 1001
 newOrderNum = 1001
 Else
 lastOrderID = wsDB.Cells(nextRow - 1, 1).Value ' e.g., ORD-1005
 newOrderNum = CLng(Replace(lastOrderID, "ORD-", "")) + 1
 End If
 
 ' Save the current order to database
 wsDB.Cells(nextRow, 1).Value = "ORD-" & newOrderNum
 wsDB.Cells(nextRow, 2).Value = wsForm.Range("B3").Value ' Date
 wsDB.Cells(nextRow, 3).Value = wsForm.Range("B4").Value ' Category
 wsDB.Cells(nextRow, 4).Value = wsForm.Range("B5").Value ' Product
 wsDB.Cells(nextRow, 5).Value = wsForm.Range("B6").Value ' Units
 wsDB.Cells(nextRow, 6).Value = wsForm.Range("B7").Value ' Unit Price
 wsDB.Cells(nextRow, 7).Value = wsForm.Range("B8").Value ' Revenue
 
 ' === Safe clear: only values ===
 Application.EnableEvents = False
 wsForm.Range("B3").Value = vbNullString
 wsForm.Range("B4").Value = vbNullString ' Category (keeps DV)
 wsForm.Range("B5").Value = vbNullString ' Product (keeps DV)
 wsForm.Range("B6").Value = vbNullString ' Units (keeps DV)
 wsForm.Range("B7").Value = vbNullString ' Unit Price (keeps DV)
 wsForm.Range("B8").Formula = "=B6*B7" ' Restore Revenue formula
 Application.EnableEvents = True
 
 ' Generate the next Order ID for the next entry
 wsForm.Range("B2").Value = "ORD-" & (newOrderNum + 1)
 
 MsgBox "Order submitted successfully!", vbInformation
End Sub

• प्रत्येक सबमिशन के बाद ऑर्डर आईडी स्वचालित रूप से बढ़ जाती है।
  • यदि डेटाबेस खाली है तो पहला सबमिशन ORD-1001 पर शुरू होता है।
  • प्रत्येक क्लिक के बाद:
  • मैक्रो अंतिम संग्रहीत ऑर्डर संख्या की जांच करता है।
  • यह इसे 1 से बढ़ा देता है।
  • यह अगली उपलब्ध आईडी के साथ फॉर्म पर B2 भरता है।
• यह केवल मान साफ़ करेगा, सूत्र या डेटा सत्यापन नहीं, इसलिए अगली प्रविष्टि नए सिरे से शुरू होगी।

चरण 6:डैशबोर्ड शीट बनाएं

• KPI बनाएं: कुल ऑर्डर, बिक्री, बेची गई इकाइयाँ, औसत ऑर्डर मूल्य, आदि की गणना करें
• चार्ट डालें: एक डायनामिक चार्ट बनाएं या एक पिवोटचार्ट डालें।

चरण 7:ऐप लुक देने के लिए शीट्स को प्रारूपित करें

• सम्मिलित करें पर जाएं टैब>>चित्र चुनें>>आकारचुनें .
• बटन चुनें .
• बटन को सेल में खींचें।

• आकृति पर राइट-क्लिक करें>> लिंक चुनें .

• इस दस्तावेज़ में रखें चुनें>> शीट सेल चुनें (नेविगेशन बटन, कोई कोड नहीं).
• ऑर्डर फ़ॉर्म चुनें .
• ठीक क्लिक करें .

• समान चरणों का पालन करके, डैशबोर्ड और ऑर्डरडेटा शीट के लिए एक हाइपरलिंक डालें।
• बाद में सुरक्षा उद्देश्यों के लिए ऑर्डरडेटा को लॉक कर दें।

• शीट का चयन करें।
• राइट-क्लिक करें>> Hide चुनें .

• ऑर्डर फॉर्म शीट को सुरक्षित रखें ताकि केवल इनपुट सेल बदले जा सकें।
• व्यू पर जाएं टैब:
  • फॉर्मूला बार को अनचेक करें .
  • ग्रिडलाइन को अनचेक करें .

चरण 8:ऑर्डर ऐप का परीक्षण करें

• एक उदाहरण क्रम दर्ज करें:
  • ऑर्डर आईडी: यह ऑर्डर आईडी को स्वतः दर्ज कर देगा।
  • दिनांक: दिनांक 3/1/2025 डालें
  • श्रेणी: ड्रॉप-डाउन सूची से श्रेणी चुनें।
  • उत्पाद: आश्रित ड्रॉप-डाउन से माउस का चयन करें।
  • इकाइयां: सूची से इकाई संख्या चुनें.
  • इकाई मूल्य: आश्रित ड्रॉप-डाउन से मूल्य चुनें।
  • राजस्व: स्वतः-गणना करता है.
• ऑर्डर सबमिट करें पर क्लिक करें .

• अगला ऑर्डर आईडी स्वचालित रूप से दिखाई देगा।
• अगले ऑर्डर के लिए फॉर्म क्लियर कर दिया जाएगा।
• यदि फॉर्म सबमिट सफल हो जाता है तो एक संदेश बॉक्स पॉप अप हो जाएगा।
• ठीक क्लिक करें .

• ऑर्डरडेटा शीट की जांच करें; प्रविष्टि वहां स्वचालित रूप से दिखाई देगी.

निष्कर्ष