मुख्य सामग्री पर जाएं

Excel में केवल ऋणात्मक संख्याओं की अनुमति कैसे दें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-17

Excel में, केवल ऋणात्मक संख्याओं को ही कैसे दर्ज करने की अनुमति दी जाए? यह लेख इस कार्य को हल करने के लिए आपके लिए कुछ उपयोगी और त्वरित तरकीबें पेश करेगा।

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

Excel में केवल VBA कोड वाले ऋणात्मक संख्याओं की अनुमति दें


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

आम तौर पर, इस डेटा मान्यता फ़ंक्शन आपकी सहायता कर सकता है, कृपया निम्नानुसार कार्य करें:

1. उन कक्षों या स्तंभों का चयन करें जिनमें आप केवल ऋणात्मक संख्याओं को दर्ज करने की अनुमति देना चाहते हैं और फिर क्लिक करें जानकारी > डेटा मान्यता > डेटा मान्यता, स्क्रीनशॉट देखें:

दस्तावेज़ केवल नकारात्मक 1 की अनुमति देता है

2. में डेटा मान्यता डायलॉग बॉक्स, के अंतर्गत सेटिंग टैब, निम्नलिखित विकल्प करें:

(1.)में अनुमति देना अनुभाग चुनते हैं, दशमलव ड्रॉप डाउन सूची से;

(2.)में जानकारी अनुभाग, कृपया चुनें से कम या बराबर विकल्प;

(3.)अंत में नंबर डालें 0 में अधिकतम पाठ बॉक्स।

दस्तावेज़ केवल नकारात्मक 2 की अनुमति देता है

3। तब दबायें OK, और अब, केवल नकारात्मक संख्या और 0 दर्ज करने की अनुमति है, यदि सकारात्मक संख्या दर्ज की गई है, तो यह एक चेतावनी संदेश प्रदर्शित करेगा, स्क्रीनशॉट देखें:

दस्तावेज़ केवल नकारात्मक 3 की अनुमति देता है


तीर नीला दायां बुलबुला Excel में केवल VBA कोड वाले ऋणात्मक संख्याओं की अनुमति दें

यहां एक वीबीए कोड भी आपकी मदद कर सकता है, निम्नलिखित कोड के साथ, जब आप एक सकारात्मक संख्या दर्ज करते हैं, तो यह स्वचालित रूप से नकारात्मक में परिवर्तित हो जाएगी, कृपया निम्नानुसार करें:

1. उस शीट टैब पर राइट क्लिक करें जिसे आप केवल नकारात्मक संख्याओं की अनुमति देना चाहते हैं, और चुनें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त स्थान पर चिपकाएँ मॉड्यूल:

VBA कोड: वर्कशीट में केवल ऋणात्मक संख्याओं की अनुमति दें:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

दस्तावेज़ केवल नकारात्मक 4 की अनुमति देता है

नोट: उपरोक्त कोड में, A1: A1000 वह कोशिकाएँ हैं जिनमें आप केवल ऋणात्मक संख्याएँ इनपुट करना चाहते हैं।

2. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं, और अब, जब आप कोड में निर्दिष्ट कोशिकाओं में कुछ सकारात्मक संख्याएं दर्ज करते हैं, तो सकारात्मक संख्याएं स्वचालित रूप से नकारात्मक में परिवर्तित हो जाएंगी।

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations