कैसे जांचें कि एक्सेल में यूजरफॉर्म में टेक्स्टबॉक्स खाली हैं या नहीं?
यदि आप यह जांचना चाहते हैं कि एक्सेल में निर्दिष्ट यूजरफोम में टेक्स्टबॉक्स खाली हैं या नहीं, तो इस आलेख में दी गई विधि आपकी मदद कर सकती है।
जांचें कि क्या यूजरफॉर्म में टेक्स्टबॉक्स VBA कोड के साथ खाली हैं या नहीं
जांचें कि क्या यूजरफॉर्म में टेक्स्टबॉक्स VBA कोड के साथ खाली हैं या नहीं
नीचे दिया गया वीबीए कोड आपको यह जांचने में मदद कर सकता है कि एक्सेल में निर्दिष्ट यूजरफॉर्म के सभी टेक्स्टबॉक्स खाली हैं या नहीं। कृपया निम्नानुसार करें.
1। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।
वीबीए कोड: जांचें कि यूजरफॉर्म में टेक्स्टबॉक्स खाली हैं या नहीं
Sub CheckTextBox()
Dim fTextBox As Object
Dim xTxtName As String
Dim xEptTxtName As String
For Each fTextBox In UserForm1.Controls
If TypeName(fTextBox) = "TextBox" Then
If fTextBox.Text = "" Then
xEptTxtName = xEptTxtName & fTextBox.Name & " is empty" & vbNewLine
Else
xTxtName = xTxtName & fTextBox.Name & " is not empty" & vbNewLine
End If
End If
Next
If xEptTxtName <> "" Or xTxtName <> "" Then
MsgBox xEptTxtName & vbNewLine & xTxtName
End If
End Subनोट: कोड में, UserForm1 उपयोगकर्ताफॉर्म का नाम है जिसमें वे टेक्स्टबॉक्स शामिल हैं जिन्हें आप जांचेंगे।
3। दबाएं F5 कोड चलाने की कुंजी. फिर एक माइक्रोसॉफ्ट एक्सेल डायलॉग बॉक्स आपको यह बताने के लिए पॉप अप होता है कि कौन सा टेक्स्टबॉक्स खाली है और कौन सा खाली नहीं है, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
संबंधित आलेख:
- एक्सेल में यह कैसे जांचें कि सेल में पहला अक्षर एक अक्षर या संख्या है?
- Excel में सेल मान दो मानों के बीच है या नहीं, इसकी जांच कैसे करें?
- एक्सेल में टेक्स्टबॉक्स को प्रतिशत के रूप में कैसे प्रारूपित करें?
- Excel में किसी टेक्स्टबॉक्स के चयनित होने पर उसके टेक्स्ट का स्वत: चयन कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
