टेक्स्ट बॉक्स में केवल संख्याओं को इनपुट करने की अनुमति कैसे दें?

एक्सेल में, हम केवल संख्याओं को कोशिकाओं में दर्ज करने की अनुमति देने के लिए डेटा सत्यापन फ़ंक्शन लागू कर सकते हैं, लेकिन, कभी-कभी, मैं चाहता हूं कि टेक्स्टबॉक्स के साथ-साथ कोशिकाओं में भी केवल संख्याएं ही टाइप की जाएं। Excel में टेक्स्टबॉक्स में केवल संख्याएँ कैसे स्वीकार करें?

पेस्ट स्पेशल फ़ंक्शन के साथ कोशिकाओं की श्रेणी को एक संख्या से विभाजित करें

पेस्ट स्पेशल फ़ंक्शन के साथ कोशिकाओं की श्रेणी को एक संख्या से विभाजित करें

अद्भुत! एक्सेल में क्रोम, एज, फ़ायरफ़ॉक्स और सफारी जैसे कुशल टैब का उपयोग करना!
अपना 50% समय बचाएं, और हर दिन आपके लिए हजारों माउस क्लिक कम करें!

निम्नलिखित वीबीए कोड आपको संख्याओं, अवधि (.) और एक नकारात्मक चिह्न को केवल टेक्स्टबॉक्स में दर्ज करने में मदद कर सकता है, कृपया ऐसा करें:

1. क्लिक करके एक टेक्स्टबॉक्स बनाएं डेवलपर > सम्मिलित करें > टेक्स्ट बॉक्स (एक्टिवएक्स कंट्रोल), और फिर अपनी आवश्यकतानुसार एक टेक्स्टबॉक्स बनाएं, स्क्रीनशॉट देखें:

2. फिर टेक्स्टबॉक्स पर राइट क्लिक करें और चुनें कोड देखें संदर्भ मेनू से खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और फिर मूल कोड को निम्नलिखित VBA कोड के साथ रिक्त मॉड्यूल में बदलें:

वीबीए कोड: टेक्स्टबॉक्स में केवल संख्याओं को इनपुट करने की अनुमति दें:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

3. फिर कोड विंडो को सहेजें और बंद करें, और बाहर निकलें डिजाइन मोड, अब, केवल संख्याएँ, अवधि चिह्न और नकारात्मक चिह्न ही टेक्स्टबॉक्स में दर्ज किए जा सकते हैं, स्क्रीनशॉट देखें:

संबंधित आलेख:

टेक्स्टबॉक्स में वर्तनी जांच कैसे लागू करें?

Excel में मान के आधार पर टेक्स्टबॉक्स का रंग कैसे बदलें?

टेक्स्ट बॉक्स में चित्र कैसे डालें?

टेक्स्टबॉक्स में डिफ़ॉल्ट मान कैसे सेट करें?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖	कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
	लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
	सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
	उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
	स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
	फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
	शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

अधिक पढ़ें... मुफ्त डाउनलोड...

---

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... मुफ्त डाउनलोड...