एक्सेल VBA में सूचनाओं के लिए Msg / पॉपअप कैसे बनाएं?

मुद्दा

मुझे एक संदेश को सूचित / पॉपअप करने के लिए एक एक्सेल वीबी स्क्रिप्ट की आवश्यकता होती है जब एक कैलेंडर पर U अक्षर की संख्या 6, 8, 12 इत्यादि से अधिक हो जाती है। इसके लिए U अक्षर की खोज करने वाले कैलेंडर की श्रेणी और उन्हें जोड़ने और फिर जांचना होगा। U की संख्या 6 और आदि से अधिक होने पर एक स्वचालित पॉपअप प्रदान करना ।

उपाय

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

[यूआरएल = // www.4shared.com/file/87077596/56259f70/Calendar.html]Calendar.xls/URL

 निजी सब वर्कशीट_चेंज (बायल टारगेट रेंज के रूप में) डिम आई वेरिएंट डिम अक्षर के रूप में = LCase ("u") लेटर 2 = यूसीज ("यू") डिम काउंट के रूप में इंटेगर डिम फाइयू के रूप में रेंज सेट फाइंडयू - रेंज ("ए 4: जी 12") प्रत्येक अस्थायी के लिए डिम अस्थायी I FindU में यदि InStr (i, अक्षर)> 0 या InStr (i, letter2)> 0 तो गिनती = 1 + अस्थायी = गिनती समाप्त करें अगला समाप्त होने पर केस अस्थायी का चयन करें केस>> 12 MsgBox की संख्या: यू की संख्या 12 पार कर गई है। " & "कुल है" और अस्थायी मामला है> 8 MsgBox "U की संख्या 8 पार कर गई है।" & "कुल है" और अस्थायी मामला है> 6 MsgBox "U की संख्या 6 से अधिक हो गई है" & "टोटल है" और अस्थायी एंड सिलेक्ट एंड सु 

ख

ध्यान दें

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