एक्सेल VBA - - Msg बॉक्स जब सेल मापदंड को पूरा करता है

• मुद्दा
• उपाय
• ध्यान दें

मुद्दा

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

क्या कोई मदद कर सकता है?

उपाय

यह कोड मानता है कि आप जो देख रहे हैं वह कॉलम A में है।

 निजी उप Find_Criteria () डिम i डिम आरआर = रेंज ("A65536")। अंत (xlUp) ।Row i = 1 for i = i to r if Range ("A" & i) = "मानदंड" तो MsgBox "मिला" & "" और श्रेणी ("A" & i)। अतिरिक्त समाप्त करें यदि अगला I अंत उप है यदि आप किसी श्रेणी में कुछ मापदंड खोज रहे हैं, तो कुछ इस तरह का प्रयास करें। निजी सब Find_Criteria () डिम आई वेरिएंट डिम फाइंडरेंज के रूप में रेंज सेट फाइंडरेंज = रेंज ("A1: K50") प्रत्येक के लिए फाइंड्रेंज में यदि i = "मानदंड" तो MsgBox "मिला" और "" और i.Address एंड मैं अंत उप 

ध्यान दें

मंच पर इस टिप के लिए हेल्पर का धन्यवाद।