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

यदि Excel में सेल मान "X" के बराबर है तो संदेश बॉक्स कैसे पॉप अप करें?

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

संदेश बॉक्स को पॉप अप करने से निर्दिष्ट सीमा में कुछ सामग्री ढूंढने में बहुत मदद मिलती है। उदाहरण के लिए, आपको A50:C1 श्रेणी में 7 के बराबर सेल मान मिल रहा है, और आपको यह बताने के लिए एक संदेश बॉक्स की आवश्यकता है कि सेल मान मौजूद है या नहीं। निम्नलिखित दो विधियाँ आपकी सहायता कर सकती हैं।

यदि सेल मान VBA कोड के साथ "X" के बराबर है तो संदेश बॉक्स पॉप अप करें
यदि एक्सेल के लिए कुटूल के साथ सेल मान "एक्स" के बराबर है तो आसानी से संदेश बॉक्स पॉप अप करें


यदि सेल मान VBA कोड के साथ "X" के बराबर है तो संदेश बॉक्स पॉप अप करें

निर्दिष्ट सीमा में निश्चित मान मौजूद होने पर निम्नलिखित VBA कोड एक पॉप अप संदेश बॉक्स बनाने में मदद कर सकता है। कृपया निम्नानुसार करें.

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

यदि सेल मान 1 है तो दस्तावेज़ संदेश बॉक्स

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

VBA कोड: यदि सेल मान "X" के बराबर है तो संदेश बॉक्स पॉप अप करें

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3। दबाएँ ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो खोलें और वर्कशीट पर वापस जाएँ।

अब से, जब सेल मान श्रेणी A1:C7 में बदले जाते हैं और सेल मान "50" के बराबर होता है, तो आपको नीचे स्क्रीनशॉट में दिखाए अनुसार एक संदेश बॉक्स मिलेगा।

इसके अलावा, यदि सेल मान मौजूद है तो आप संदेश बॉक्स को पॉप अप करने के लिए बस रेंज का चयन कर सकते हैं।

यदि सेल मान 1 है तो दस्तावेज़ संदेश बॉक्स

नोट्स:

1. यदि सेल मान मानदंड को पूरा नहीं करता है, तो संदेश बॉक्स पॉप अप नहीं होगा।
2. उपरोक्त कोड में, आप अपनी आवश्यकता के अनुसार सेल संदर्भ और मान को बदल सकते हैं।
3. एकाधिक परिणाम होने पर यह केवल एक मिलान सेल संदर्भ प्रदर्शित कर सकता है।

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

RSI विशिष्ट कक्षों का चयन करें की उपयोगिता एक्सेल के लिए कुटूल इस समस्या को हल करने में भी आपकी मदद कर सकता है। कृपया निम्नानुसार करें.

आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.

1. उस श्रेणी का चयन करें जिसे आप ढूंढना चाहते हैं यदि सेल मान मौजूद है, फिर क्लिक करें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें

2। में विशिष्ट कक्षों का चयन करें संवाद बॉक्स, का चयन करें सेल में विकल्प चयन प्रकार अनुभाग, फिर चुनें बराबरी पहली बार में विशिष्ट प्रकार ड्रॉप-डाउन सूची और अगले टेक्स्ट बॉक्स में सेल मान टाइप करें, और अंत में क्लिक करें OK बटन.

यदि सेल मान 1 है तो दस्तावेज़ संदेश बॉक्स

यदि सेल मान निर्दिष्ट सीमा में मौजूद है, तो आपको निम्न संदेश बॉक्स मिलेगा, पर क्लिक करें OK बटन, सेल का चयन किया जाएगा।

यदि सेल मान 1 है तो दस्तावेज़ संदेश बॉक्स

अन्यथा, आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार संदेश बॉक्स मिलेगा।

यदि सेल मान 1 है तो दस्तावेज़ संदेश बॉक्स

  यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।


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


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

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
Hi Rajesh,
The below code can help you solve the problem, please have a try. Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

'Update: 2020/8/21

Dim xCell As Range, Rg As Range

On Error Resume Next

Set Rg = Application.Intersect(Target, Range("A1:C7"))

If Not Rg Is Nothing Then

For Each xCell In Rg

If xCell.Value = "50" Or xCell.Value = "100" Then

MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"

Exit Sub

End If

Next

End If

End Sub
This comment was minimized by the moderator on the site
Hi Crystal, Both conditions are working . Thank you so much ThanksRajesh
This comment was minimized by the moderator on the site
Is there a way to update for 2 values in the same range? ex "50" or "100" ?
This comment was minimized by the moderator on the site
I also tried duplicating this code, and changing to a different range where my data is repeated, but it appears the "Worksheet - Change" function can only be used once. Is this true?
This comment was minimized by the moderator on the site
This script works fine when the cell was enter manually. But when I try to copy the whole line from the other line and paste it to the new line, the pop up window will still come up even the cell on the new line didn't contain the key word. Any way to get rid of it? Please advice. Thanks
This comment was minimized by the moderator on the site
Dear TANGO, Thank you for your comment! We have updated the VBA script to get rid of the problem you mentioned above. Hope the new code can ease your work. If you have any problem, please do hesitate to contact us! Thanks again for your comment!
This comment was minimized by the moderator on the site
please need your help give me your email address Linda mine is
This comment was minimized by the moderator on the site
Hi,
Sorry for replying so late. Please contact me at .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations