VBA . के साथ काम करते समय एक्सेल में, हम में से अधिकांश को डेटा एंट्री फॉर्म बनाने की कोशिश करते समय समस्याओं का सामना करना पड़ता है। इस लेख में, मैं आपको दिखाऊंगा कि आप डेटा प्रविष्टि फ़ॉर्म कैसे बना सकते हैं एक्सेल में VBA . का उपयोग करके बहुत आसानी से और सुंदर ढंग से ।
एक्सेल VBA में डाटा एंट्री फॉर्म बनाने के 3 आसान चरण
यहां मेरे पास वाशिंगटन, न्यूयॉर्क, called नामक तीन वर्कशीट हैं और कैलिफ़ोर्निया जिसमें नाम, संपर्क नंबर, आयु, . शामिल हैं और लिंग बैंक की इन तीन शाखाओं के कुछ ग्राहकों की।
आज हमारा उद्देश्य VBA . का उपयोग करके इस डेटाबेस में किसी भी डेटा को दर्ज करने के लिए एक फॉर्म बनाना है ।
हम अपने उद्देश्य को दो चरणों में पूरा करेंगे।
- सबसे पहले, हम एक डेटा प्रविष्टि बनाएंगे उपयोगकर्ता प्रपत्र नया डेटा दर्ज करने के लिए;
- फिर हम फ़ॉर्म को खोलने के लिए वर्कशीट पर एक बटन जोड़ेंगे।
चरण 1:एक्सेल VBA का उपयोग करके डेटा प्रविष्टि फ़ॉर्म बनाने के लिए एक UserForm विकसित करना
यह एक लंबी प्रक्रिया है और आपको पूरी तरह से समझने में कुछ समय लग सकता है। इसलिए, एक प्रभावी परिणाम के लिए, यहां बताए गए चरणों का अत्यंत सावधानी और धैर्य के साथ पालन करें।
- प्रेस ALT + F11 विजुअल बेसिक . खोलने के लिए अपने कीबोर्ड पर खिड़की।
- विजुअल बेसिक . में विंडो में, सम्मिलित करें> UserForm . पर जाएं टूलबार में विकल्प। उपयोगकर्ता प्रपत्र . पर क्लिक करें . एक नया उपयोगकर्ता प्रपत्र UserForm1 . कहा जाता है खुल जाएगा।
- सबसे पहले, एक लेबल (लेबल 1) खींचें टूलबॉक्स से UserForm . के बाएं-सबसे ऊपरी कोने तक . लेबल . का प्रदर्शन बदलें कार्यपत्रक . पर ।
एक सूची बॉक्स (सूचीबॉक्स1) को खीचें लेबल1 . के दाईं ओर ।
- फिर कुछ और लेबल खींचें डेटा सेट के कॉलम की कुल संख्या के बराबर (4 इस उदाहरण में) UserForm. . के बाईं ओर प्रत्येक लेबल . के आगे , एक टेक्स्टबॉक्स drag खींचें ।
लेबल . के प्रदर्शन को बदलें आपके डेटा सेट के कॉलम हेडर में (ग्राहक का नाम, संपर्क पता, आयु, और लिंग यहाँ)।
- आखिरकार, एक कमांडबटन खींचें उपयोगकर्ता प्रपत्र . के दाईं ओर सबसे नीचे की ओर . बटन के प्रदर्शन को डेटा दर्ज करें . में बदलें ।
- सूची बॉक्स पर डबल-क्लिक करें . एक निजी उपप्रक्रिया ListBox1_Click . कहा जाता है खुलेगा। वहां निम्न कोड दर्ज करें।
⧭ वीबीए कोड:
Private Sub ListBox1_Click()
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
Worksheets(UserForm1.ListBox1.List(i)).Activate
End If
Next i
End Sub
- अगला, कमांडबटन पर डबल-क्लिक करें . एक और निजी उपप्रक्रिया CommandButton_Click called कहा जाता है खुलेगा। वहां निम्न कोड दर्ज करें।
⧭ वीबीए कोड:
Private Sub CommandButton1_Click()
Total_Rows = ActiveSheet.UsedRange.Rows.Count
Total_Columns = ActiveSheet.UsedRange.Columns.Count
Active_Column = 1
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "TextBox" Then
ActiveSheet.UsedRange.Cells(Total_Rows + 1, Active_Column) = Ctrl.Text
Active_Column = Active_Column + 1
End If
Next Ctrl
End Sub
- आखिरकार, सम्मिलित करें> मॉड्यूल पर जाएं टूलबार में विकल्प, और मॉड्यूल . पर क्लिक करें ।
- एक नया मॉड्यूल मॉड्यूल1 . कहा जाता है डाला जाएगा। वहां निम्न कोड दर्ज करें:
⧭ वीबीए कोड:
Sub Run_UserForm()
UserForm1.Caption = "Data Entry Form"
UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle
UserForm1.ListBox1.ListStyle = fmListStyleOption
For i = 1 To Sheets.Count
UserForm1.ListBox1.AddItem Sheets(i).Name
Next i
Load UserForm1
UserForm1.Show
End Sub
आप कर चुके हैं! आपने डेटाबेस में कोई भी नया डेटा दर्ज करने के लिए सफलतापूर्वक डेटा एंट्री फॉर्म बना लिया है।
और पढ़ें: एक्सेल में डेटा प्रविष्टि के प्रकार (एक त्वरित अवलोकन)
चरण 2:डेटा प्रविष्टि फ़ॉर्म खोलने के लिए एक बटन सम्मिलित करना
हमने Excel VBA . में Userform का उपयोग करके सफलतापूर्वक डेटा प्रविष्टि फ़ॉर्म बनाया है . अब हम फॉर्म को खोलने के लिए अपनी वर्कशीट में एक बटन जोड़ेंगे।
इसे प्राप्त करने के लिए नीचे दिए गए चरणों का पालन करें।
- क्लिक करें और डेवलपर खोलें एक्सेल से टैब रिबन सबसे ऊपर। डेवलपर टैब डिफ़ॉल्ट रूप से एक्सेल में छिपा होता है। यदि आप इसे अपने एक्सेल रिबन . में नहीं देखते हैं , उसे दिखाने के लिए यहां बताए गए चरणों का पालन करें ।
- डेवलपर . के अंतर्गत टैब, अनुभाग में नियंत्रण , सम्मिलित करें . पर क्लिक करें . आपको कुछ मुट्ठी भर उपकरण उपयोग के लिए तैयार मिलेंगे। एक बटनखींचें (फ़ॉर्म नियंत्रण ) सबसे ऊपर बाईं ओर से।
- अपनी वर्कशीट पर बटन को वांछित क्षेत्र में खींचें और छोड़ें। मैक्रो असाइन करें . नामक डायलॉग बॉक्स खुलेगा। मैक्रो नाम . में फ़ील्ड, डालें Run_UserForm ।
फिर ठीक . क्लिक करें ।
- अब आप चाहें तो बटन का डिस्प्ले बदल सकते हैं। मैंने इसे नया डेटा दर्ज करें . में बदल दिया है ।
बधाई हो! आपने डेटा प्रविष्टि फ़ॉर्म को खोलने के लिए बटन को सफलतापूर्वक जोड़ लिया है।
अब, यदि आप चाहें, तो प्रक्रिया में अधिक परिष्कृतता जोड़ने के लिए आप हमारे प्रत्येक कार्यपत्रक में एक बटन दर्ज कर सकते हैं।
और पढ़ें: एक्सेल में टाइमस्टैम्प डेटा प्रविष्टियों को स्वचालित रूप से कैसे सम्मिलित करें (5 तरीके)
समान रीडिंग
- वेब फॉर्म से एक्सेल स्प्रेडशीट कैसे पॉप्युलेट करें
- एक्सेल में डेटा लॉग बनाएं (2 उपयुक्त तरीके)
- एक्सेल में भरने योग्य फॉर्म कैसे बनाएं (5 उपयुक्त उदाहरण)
चरण 3:डेटा प्रविष्टि फ़ॉर्म बनाने के लिए अंतिम आउटपुट
हमने एक्सेल VBA . का उपयोग करके सफलतापूर्वक डेटा एंट्री फॉर्म बना लिया है और इसे खोलने के लिए एक बटन जोड़ा। आउटपुट देखने के लिए, बटन पर क्लिक करें नया डेटा दर्ज करें कार्यपत्रक पर।
डाटा एंट्री फॉर्म खुल जाएगा। सबसे पहले, उस वर्कशीट को चुनें जिस पर आप नई प्रविष्टि करना चाहते हैं।
यहां मैंने न्यूयॉर्क . को चुना है . जैसे ही आप कोई वर्कशीट चुनते हैं, वह सक्रिय हो जाएगी।
- फिर बाकी डेटा भरें जिसे आप दर्ज करना चाहते हैं। यहां मैंने जेनिफर मार्लो, 444204240, 26, . रखा है और महिला ।
- फिर डेटा दर्ज करें पर क्लिक करें ।
आपको डेटाबेस की अंतिम पंक्ति में दर्ज किया गया नया डेटा मिलेगा।
और पढ़ें: यूजरफॉर्म के बिना एक्सेल डाटा एंट्री फॉर्म कैसे बनाएं
याद रखने योग्य बातें
- नया डेटा दर्ज करते समय, कोड टेक्स्टबॉक्स . के अनुक्रम का अनुसरण करता है उपयोगकर्ता प्रपत्र . के . इसलिए, टेक्स्टबॉक्स जोड़ते समय उपयोगकर्ता प्रपत्र . पर , अपने डेटाबेस में कॉलम का क्रम बनाए रखें।
निष्कर्ष
इसलिए, एक्सेल VBA . का उपयोग करके आपके डेटाबेस के लिए डेटा एंट्री फॉर्म बनाने की यह प्रक्रिया है . क्या आपका कोई प्रश्न है? बेझिझक हमसे पूछें। और हमारी साइट पर जाना न भूलें ExcelDemy अधिक पोस्ट और अपडेट के लिए।
संबंधित लेख
- एक्सेल में ऑटोफिल फॉर्म कैसे बनाएं (स्टेप बाय स्टेप गाइड)
- एक्सेल में ड्रॉप डाउन सूची के साथ डाटा एंट्री फॉर्म बनाएं (2 तरीके)
- एक्सेल में डेटा प्रविष्टि को स्वचालित कैसे करें (2 प्रभावी तरीके)
- एक्सेल सेल में डेटा प्रविष्टि प्रतिबंधित करें (2 सरल तरीके)