टेबलमधील डेटासह फॉर्म भरणे

समस्येचे सूत्रीकरण

आमच्याकडे शीटवरील पेमेंट्सची माहिती असलेला डेटाबेस (सूची, सारणी – तुम्हाला हवे ते कॉल करा) आहे डेटा:

कार्य: या यादीतून निवडलेल्या कोणत्याही इच्छित एंट्रीसाठी रोख पावती (पेमेंट, इनव्हॉइस …) त्वरीत मुद्रित करा. जा!

पायरी 1. एक फॉर्म तयार करा

पुस्तकाच्या दुसर्‍या शीटवर (या शीटला कॉल करूया फॉर्म) रिक्त फॉर्म तयार करा. आपण ते स्वतः करू शकता, आपण तयार केलेले फॉर्म वापरू शकता, उदाहरणार्थ, मुख्य लेखापाल मासिकाच्या वेबसाइटवरून किंवा मायक्रोसॉफ्ट वेबसाइटवरून घेतलेले. मला असे काहीतरी मिळाले:

रिकाम्या पेशींमध्ये (खाते, रक्कम, प्राप्त इ.) दुसर्‍या शीटमधून पेमेंट टेबलवरून डेटा मिळेल - थोड्या वेळाने आम्ही याचा सामना करू.

पायरी 2: पेमेंट टेबल तयार करणे

आमच्या फॉर्मसाठी टेबलमधून डेटा घेण्यापूर्वी, टेबलला किंचित आधुनिकीकरण करणे आवश्यक आहे. अर्थात, टेबलच्या डावीकडे रिकामा स्तंभ घाला. आम्‍ही फॉर्ममध्‍ये डेटा जोडू इच्‍छित असलेल्‍या रेषेच्‍या विरुद्ध लेबल (ते इंग्रजी अक्षर "x" असू दे) एंटर करण्‍यासाठी वापरू:

पायरी 3. टेबल आणि फॉर्म जोडणे

संवादासाठी, आम्ही फंक्शन वापरतो व्हीपीआर(VLOOKUP) - आपण याबद्दल अधिक येथे वाचू शकता. आमच्या बाबतीत, फॉर्मवरील सेल F9 मध्ये डेटा शीटमधून "x" चिन्हांकित पेमेंटची संख्या समाविष्ट करण्यासाठी, तुम्ही सेल F9 मध्ये खालील सूत्र प्रविष्ट करणे आवश्यक आहे:

=VLOOKUP(“x”,डेटा!A2:G16)

=VLOOKUP(“x”;डेटा!B2:G16;2;0)

त्या. "समजण्याजोगे" मध्ये अनुवादित केलेले, फंक्शनने डेटा शीटवरील A2: G16 श्रेणीमध्ये "x" अक्षराने सुरू होणारी एक ओळ शोधली पाहिजे आणि आम्हाला या ओळीच्या दुसऱ्या स्तंभातील सामग्री, म्हणजे पेमेंट नंबर द्या.

फॉर्मवरील इतर सर्व सेल त्याच प्रकारे भरले आहेत - सूत्रामध्ये फक्त स्तंभ क्रमांक बदलतो.

शब्दात रक्कम दाखवण्यासाठी मी फंक्शन वापरले स्वतः PLEX ऍड-ऑन वरून.

परिणाम खालीलप्रमाणे असावा:

पायरी 4. जेणेकरून दोन "x" नाहीत ...

वापरकर्त्याने एकाधिक ओळींच्या विरूद्ध "x" प्रविष्ट केल्यास, VLOOKUP फंक्शन फक्त प्रथम मूल्य घेईल. अशी अस्पष्टता टाळण्यासाठी, शीट टॅबवर उजवे-क्लिक करा डेटा आणि नंतर स्त्रोत मजकूर (मूळ सांकेतिक शब्दकोश). दिसणार्‍या व्हिज्युअल बेसिक एडिटर विंडोमध्ये, खालील कोड कॉपी करा:

Private Sub Worksheet_Change(ByVal Target as Range) Dim r As long dim str स्ट्रिंग जर Target.Count > 1 नंतर Sub Exit If Target.Column = 1 नंतर str = Target.Value Application.EnableEvents = False r = Cells(Rows. , 2).End(xlUp).पंक्ती श्रेणी("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub  

हा मॅक्रो वापरकर्त्याला पहिल्या स्तंभात एकापेक्षा जास्त “x” प्रविष्ट करण्यापासून प्रतिबंधित करतो.

बरं, इतकंच! आनंद घ्या!

• मूल्ये बदलण्यासाठी VLOOKUP फंक्शन वापरणे
• VLOOKUP कार्याची सुधारित आवृत्ती
• PLEX अॅड-ऑनमधून शब्दांमध्ये रक्कम (प्रॉपिस फंक्शन).