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

Excel में कक्षों में रिक्त या अनुपलब्ध प्रविष्टियों को कैसे रोकें?

लेखक: सिलुविया अंतिम संशोधित: 2020-12-24

मान लीजिए कि आप किसी वर्कशीट की श्रेणी A1:B10 में एक तालिका बना रहे हैं और इस तालिका श्रेणी में रिक्त सेल को दिखने से रोकना चाहते हैं, तो इसे कैसे प्राप्त करें? यह आलेख संपादन करते समय एक निश्चित तालिका श्रेणी में रिक्त प्रविष्टि दिखाई देने पर प्रॉम्प्ट बॉक्स को स्वचालित रूप से पॉप अप करने की एक विधि प्रस्तुत करता है। कृपया लेख में चरण दर चरण विधि का पालन करें।

VBA कोड का उपयोग करके कक्षों में रिक्त या अनुपलब्ध प्रविष्टियों को रोकें


VBA कोड का उपयोग करके कक्षों में रिक्त या अनुपलब्ध प्रविष्टियों को रोकें

A1:B10 वह श्रेणी है जहां आपको अंदर तालिका बनाने की आवश्यकता होती है, और A1, B1 में तालिका के हेडर होते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। कृपया तालिका बनाते समय श्रेणी A2:B10 में रिक्त या लुप्त प्रविष्टियों को दिखने से रोकने के लिए निम्नानुसार कार्य करें।

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

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

VBA कोड: कक्षों की श्रेणी में रिक्त या अनुपलब्ध प्रविष्टियों को रोकें

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

नोट: VBA कोड में, A2:B10 कोशिकाओं की वह श्रेणी है जिसके अंदर आप कोई खाली सेल नहीं छोड़ना चाहते। कृपया अपनी आवश्यकतानुसार सीमा बदलें।

अब से, जब आप रिक्त सेल को छोड़कर सीधे निर्दिष्ट सीमा में अगले सेल को भरेंगे, तो आपको एक मिलेगा एक्सेल के लिए कुटूल नीचे दिए गए स्क्रीनशॉट के अनुसार डायलॉग बॉक्स दिखाया गया है।


संबंधित लेख:

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations