एक्सेल में सेल वैल्यू के आधार पर मैक्रो कैसे चलाएं?
मान लीजिए, मेरी कार्यपुस्तिका में एकाधिक मैक्रो कोड हैं, और अब, मैं सेल मान के आधार पर इन कोड को चलाना चाहता हूं। इस लेख में, मैं उन कई स्थितियों के बारे में बात करूंगा जिनका सामना आपको एक्सेल का उपयोग करते समय अपने दैनिक कार्य में करना पड़ सकता है।
यदि सेल मान VBA कोड के साथ किसी विशिष्ट मान से अधिक या कम है, तो मैक्रो चलाएँ या ट्रिगर करें
यदि सेल मान VBA कोड के साथ विशिष्ट टेक्स्ट के बराबर है तो मैक्रो चलाएँ या ट्रिगर करें
यदि सेल मान VBA कोड के साथ किसी विशिष्ट मान से अधिक या कम है, तो मैक्रो चलाएँ या ट्रिगर करें
उदाहरण के लिए, यदि सेल A1 में मान 10 और 50 के बीच है, तो मैक्रो1 चलाएँ, और यदि मान 50 से अधिक है, तो मैक्रो2 चलाएँ। एक्सेल में इस कार्य को हल करने के लिए, कृपया निम्नलिखित VBA कोड लागू करें।
1. उस शीट टैब पर राइट क्लिक करें जिसे आप सेल मान के आधार पर मैक्रो निष्पादित करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
VBA कोड: यदि सेल मान इससे अधिक या कम है तो मैक्रो चलाएँ:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
नोट: उपरोक्त कोड में:
A1 वह सेल है जिसमें वह विशिष्ट मान होता है जिसके आधार पर आप मैक्रो चलाना चाहते हैं;
केस 10 से 50: मैक्रो1: इसका मतलब है कि यदि मान 10 और 50 के बीच है, तो मैक्रो1 चलाएँ;
केस इज़>50: मैक्रो2: इसका मतलब है कि यदि मान 50 से अधिक है, तो Macro2 चलाएँ।
कृपया इन मैक्रो नामों और मानदंडों को अपनी आवश्यकता के अनुसार बदलें, और आप इनका अनुसरण करके और मानदंड भी जोड़ सकते हैं मामला लिपियों.
2. फिर इस कोड विंडो को सहेजें और बंद करें, अब, जब आपके द्वारा दर्ज किया गया मान सेल A10 में 50 और 1 के बीच है, तो Macro1 ट्रिगर हो जाएगा, यदि दर्ज किया गया मान 50 से अधिक है, तो Macro2 निष्पादित हो जाएगा।
यदि सेल मान VBA कोड के साथ विशिष्ट टेक्स्ट के बराबर है तो मैक्रो चलाएँ या ट्रिगर करें
यदि आप किसी सेल में विशिष्ट टेक्स्ट के आधार पर मैक्रो को ट्रिगर करना चाहते हैं, उदाहरण के लिए, यदि टेक्स्ट "डिलीट" दर्ज किया गया है तो मैक्रो1 चलाएं, और यदि टेक्स्ट "इन्सर्ट" टाइप किया गया है तो मैक्रो2 चलाएं। निम्नलिखित कोड आपका भला कर सकता है.
1. उस शीट पर राइट क्लिक करें जिसे आप सेल मान के आधार पर मैक्रो निष्पादित करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: यदि सेल मान एक विशिष्ट टेक्स्ट है तो मैक्रो चलाएँ
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
नोट: उपरोक्त कोड में, "मिटाना" तथा "सम्मिलित करें"वे सेल टेक्स्ट हैं जिनके आधार पर आप मैक्रोज़ चलाना चाहते हैं, और मैक्रों १ और मैक्रों १ वे मैक्रोज़ हैं जिन्हें आप टेक्स्ट के आधार पर निष्पादित करना चाहते हैं। कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।
2. फिर इस कोड को सेव करें और विंडो बंद करें, अब, जब आप सेल A1 में "डिलीट" टेक्स्ट दर्ज करते हैं, तो मैक्रो1 ट्रिगर हो जाता है, यदि "इन्सर्ट" टेक्स्ट दर्ज किया जाता है, तो मैक्रो2 निष्पादित हो जाएगा।
संबंधित आलेख:
एक्सेल में सेल वैल्यू बदलने पर मैक्रो कैसे चलाएं?
एक्सेल में प्रिंट करने से पहले मैक्रो को स्वचालित रूप से कैसे चलाएं?
Excel में ड्रॉप डाउन सूची से चयनित मान के आधार पर मैक्रो कैसे चलाएं?
एक्सेल में हाइपरलिंक्स पर क्लिक करके मैक्रो कैसे चलाएं?
जब किसी कार्यपुस्तिका से शीट का चयन किया जाता है तो मैक्रो कैसे चलाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!