यदि एक्सेल में सेल एक विशिष्ट मान से अधिक या कम है तो संदेश बॉक्स कैसे पॉप अप करें?

यदि कोई सेल दूसरे सेल से बड़ा या छोटा है, तो मुझे एक्सेल में अलर्ट करने के लिए एक संदेश बॉक्स पॉप अप करना होगा। Excel में इस समस्या का समाधान कैसे करें? इस लेख में मैं इससे निपटने के लिए कुछ कोड के बारे में बात करूंगा।

यदि किसी कॉलम में सेल का मान किसी अन्य सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

यदि किसी सेल में सेल का मान दूसरे सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

यदि किसी कॉलम में सेल का मान किसी अन्य सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

मान लीजिए, मेरे पास सेल ए100 में एक विशिष्ट संख्या 1 है, अब, जब कॉलम डी में दर्ज संख्या सेल ए100 में 1 से अधिक है, तो उपयोगकर्ता को याद दिलाने के लिए एक संदेश बॉक्स पॉप आउट होना चाहिए।

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

1. उस वर्कशीट पर जाएँ जिसका आप उपयोग करना चाहते हैं।

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

वीबीए कोड: यदि किसी कॉलम में सेल का मान सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

नोट: उपरोक्त कोड में, Sheet1 क्या आपकी वर्कशीट है जिसका आप उपयोग करना चाहते हैं; A1 वह सेल मान है जिसके साथ आप तुलना करना चाहते हैं; डी: डी वह कॉलम है जिसकी आप सेल A1 से तुलना करना चाहते हैं।

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

यदि किसी सेल में सेल का मान दूसरे सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

यदि आप चाहते हैं कि किसी सेल का मान किसी अन्य सेल से अधिक या कम होने पर एक संदेश बॉक्स पॉप आउट हो जाए, तो कृपया नीचे दिया गया कोड लागू करें:

1. उस वर्कशीट पर जाएँ जिसका आप उपयोग करना चाहते हैं।

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

वीबीए कोड: यदि सेल का मान किसी सेल से अधिक या कम है तो एक संदेश बॉक्स पॉप अप करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

नोट: उपरोक्त कोड में, A1 और D1 वे दो कोशिकाएँ हैं जिनसे आप तुलना करना चाहते हैं।

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

अधिक संबंधित पॉप अप संदेश बॉक्स लेख:

---

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

एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है

• सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
• कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
• डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
• सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
• पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
• पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
• सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
• वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
• पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना... 

---

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

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

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना...