VBA टेक्स्टबॉक्स - VBA यूजरफॉर्म में टेक्स्टबॉक्स कैसे डालें और उपयोग करें?

विषय - सूची

एक्सेल VBA टेक्स्टबॉक्स

एक्सेल VBA टेक्स्टबॉक्स

टेक्स्टबॉक्स बस एक बॉक्स की तरह होता है जिसका उपयोग उपयोगकर्ता से इनपुट प्राप्त करने के लिए किया जाता है, टेक्स्ट बॉक्स उपयोगकर्ता प्रपत्रों का एक हिस्सा होता है और किसी भी एक्सेल वर्कशीट में डेवलपर टैब में, यदि हम उपयोगकर्ता के रूप में टेक्स्ट बॉक्स बनाना चाहते हैं तो हम टेक्स्टबॉक्स विकल्प का चयन कर सकते हैं VBA या कार्यपत्रक में उपयोगकर्ता प्रपत्र नियंत्रण से हम इसे डिज़ाइन टैब से चुन सकते हैं।

VBA टेक्स्टबॉक्स उपयोगकर्ता प्रपत्र के कई नियंत्रणों में से एक है। उपयोगकर्ता प्रपत्र पर पाठ बॉक्स प्रदर्शित करके, हम उन्हें पाठ बॉक्स में डेटा दर्ज करने के लिए कह सकते हैं, और उपयोगकर्ता द्वारा दर्ज किए गए डेटा को सरल कोड के साथ कार्यपत्रक में संग्रहीत किया जा सकता है।

VBA कोडिंग में यूजर फॉर्म बहुत आकर्षक हैं। यह हमें बहुत मदद करता है, खासकर जब हमें उपयोगकर्ताओं से इनपुट प्राप्त करने की आवश्यकता होती है। उपयोगकर्ता रूपों के साथ, हमारे पास कई नियंत्रण हैं, और उपयोगकर्ताओं से इनपुट मूल्य प्राप्त करने के लिए, "टेक्स्ट बॉक्स" एक उपयोगकर्ता के रूप में आदर्श विकल्प है। उपयोगकर्ता प्रपत्र पर एक पाठ बॉक्स डालकर, हम वास्तव में उपयोगकर्ता को प्रदर्शित पाठ बॉक्स में आवश्यक मान दर्ज करने के लिए कह सकते हैं। यदि आपको VBA टेक्स्ट बॉक्स के बारे में कोई जानकारी नहीं है, तो यह लेख VBA टेक्स्ट बॉक्स का भ्रमण करेगा।

VBA UserForm में टेक्स्टबॉक्स कैसे डालें?

पहले एक टेक्स्ट बॉक्स डालने के लिए, हमें उपयोगकर्ता फ़ॉर्म सम्मिलित करना होगा। उपयोगकर्ता प्रपत्र डालने के लिए, सम्मिलित करें> उपयोगकर्ता फ़ॉर्म पर जाएँ।

जैसे ही आप User Form पर क्लिक करते हैं, हम किसी अन्य मॉड्यूल की तरह ही User Form करेंगे।

उपयोगकर्ता प्रपत्र के नियंत्रण को देखने के लिए उपयोगकर्ता प्रपत्र पर क्लिक करें।

इस नियंत्रण टूलबॉक्स से, "टेक्स्टबॉक्स" का चयन करें और उपयोगकर्ता फॉर्म पर खींचें।

इसके साथ, हम इस टेक्स्ट बॉक्स से जुड़े कई गुण देख सकते हैं।

टेक्स्टबॉक्स गुण

टेक्स्ट बॉक्स के गुण देखने के लिए F4 कुंजी दबाएँ।

जैसा कि हम देख सकते हैं, टेक्स्ट बॉक्स में नाम, रंग, सीमा जैसे कई हैं। अब एक उचित नाम दें ताकि कोडिंग करते समय हम आसानी से इस टेक्स्ट बॉक्स को संदर्भित कर सकें।

उपयोगकर्ता में TextBox का उपयोग करने का उदाहरण

हम VBA पाठ के साथ एक परियोजना का संचालन करेंगे। हम कर्मचारियों के विवरण को संग्रहीत करने के लिए एक डेटा प्रविष्टि उपयोगकर्ता फॉर्म बनाएंगे।

चरण 1: उपयोगकर्ता प्रपत्र पर, लेबल खींचें।

चरण 2: लेबल का डिफ़ॉल्ट पाठ "कर्मचारी का नाम" बदलें।

चरण 3: लेबल के सामने, एक पाठ बॉक्स खींचें।

चरण 4: टेक्स्ट बॉक्स को "EmpNameTextBox" के रूप में एक उचित नाम दें।

चरण 5: अब पहले लेबल के नीचे एक और लेबल बनाएं और टेक्स्ट को "कर्मचारी आईडी" के रूप में दर्ज करें।

चरण 6: दूसरे लेबल के सामने, एक और टेक्स्ट बॉक्स ड्रा करें और इसे "EmpIDTextBox" नाम दें।

चरण 7: एक और लेबल बनाएं और टेक्स्ट को "वेतन" के रूप में दर्ज करें।

चरण 8: "वेतन" लेबल के सामने एक और टेक्स्ट बॉक्स बनाएं और इसे "सैलरीटेक्स्टबॉक्स" नाम दें।

चरण 9: अब टूलबॉक्स से "कमांड बटन" डालें।

चरण 10: कमांड बटन के टेक्स्ट को "सबमिट करें" के रूप में बदलें।

Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.

Step 11: Change the Caption of the User Form in the Properties window.

Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.

This is when you click on the Submit button, what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.

For this, first, create a Template like this in the worksheet named “Employees Sheet.”

Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub

Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub

Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub

Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”

Code:

Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub