वुआकोंडा के डैन ने इस हफ्ते के एक्सेल सवाल को पेश किया।
मेरे पास एक एक्सेल वर्कशीट है जो एक मूल्य की गणना करता है। यदि सेल वैल्यू> 100 है, तो मुझे एक मिडी फ़ाइल चलाने की आवश्यकता है।
यह टिप 23 दिसंबर को यहां चर्चा किए गए इवेंट हैंडलर का उपयोग करता है। यदि आप ईवेंट हैंडलर से परिचित नहीं हैं, तो कृपया पहले उस टिप की समीक्षा करें।
पहला कदम मिडी फ़ाइल की एक कॉपी को आपके कार्यपत्रक पर आउट-ऑफ-द-स्पॉट स्पॉट में पेस्ट करना है।
- WIN95 मीडिया प्लेयर खोलें। कार्यक्रम> सहायक उपकरण> मल्टीमीडिया
- मीडिया प्लेयर में चुनी हुई मिडी फ़ाइल खोलें।
- मीडिया प्लेयर में, संपादन चुनें, फिर ऑब्जेक्ट कॉपी करें।
- एक्सेल में, बाहर का रास्ता खोजें। इस उदाहरण में, मैं Sheet1 सेल Z99 उठा रहा हूं। यहां क्लिक करें और फिर संपादित करें> चिपकाएँ
- एक्सेल में नाम बॉक्स को देखें। नाम बॉक्स में, यह मिडी फ़ाइल को एक नाम देगा। खान को वस्तु 1 कहा जाता है।
उस मिडी फ़ाइल को चलाने के लिए VBA मैक्रो है:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End Subयदि आपके पास Excel 97 या Excel 95 / 7.0 है, तो इस पर निर्भर करते हुए कि आप उपरोक्त कोड को लागू करने के लिए उपयुक्त ईवेंट हैंडलर का उपयोग करेंगे। यहां Excel 97 के लिए एक उदाहरण दिया गया है। मान लें कि सेल A1 में एक नया मान दर्ज किया गया है, तो आप यह जांचना चाहते हैं कि A2 में गणना की गई सेल> 100 है या नहीं। ईवेंट हैंडलर इस प्रकार है:
Visual Basic Editor खोलें। बाईं विंडो में, शीट 1 पर राइट क्लिक करें और देखें कोड चुनें। Book1 - Sheet1 कोड संवाद बॉक्स के शीर्ष पर, दो ड्रॉपडाउन हैं। बाएं ड्रॉपडाउन से कार्यपत्रक का चयन करें। सही ड्रॉपडाउन से, चेंज सेलेक्ट करें। कोड की निम्नलिखित पंक्तियाँ दर्ज करें:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub
