एक्सेल - VBA कोड को कई शीट पर लागू करें

मुद्दा

मेरे पास वेतन एक्सेल फाइल है। इस फ़ाइल में 200 शीट शामिल हैं जो प्रत्येक कर्मचारी के लिए हैं।

मेरे पास निम्नलिखित VBA कोड है।

 Private Sub Worksheet_Change (ByVal Target As Range) अगर Target.Address "$ C $ 9" तो Exit Sub if Target = "Seconded" तो Range ("a12")। EntireRow.Hidden = True Range ("14 A14")। = ट्रू एल्स रेंज ("a12")। EntireRow.Hidden = झूठी श्रेणी ("a14")। EntireRow.Hidden = गलत अंत यदि उप 

मुझे इस कोड को केवल एक बार सभी 200 शीट के लिए काम करने के लिए लिखना / लिखना होगा अन्यथा मुझे इसे 200 शीट में से प्रत्येक में कॉपी और पेस्ट करना होगा।

उपाय

यह मुझे लगता है कि आप कोड को एक पत्रक पर नहीं बल्कि संपूर्ण कार्यपुस्तिका पर लागू करना चाहते हैं।

इसलिए VB में शीट के नीचे ThisWorkbook पर डबल-क्लिक करें और अपना कोड पेस्ट करें:

 निजी सब वर्कबुक_शीटचेंज (ByVal Sh As Object, ByVal Target As Range) यदि Target.Address "$ C $ 9" तो फिर Sub Sub को टारगेट करें = "सेकंड" "रेंज (" a12 ")। ) .EntireRow.Hidden = ट्रू एल्स रेंज ("a12")। EntireRow.Hidden = झूठी श्रेणी ("a14")। EntireRow.Hidden = गलत अंत यदि उप उप। 

इस टिप के लिए TrowaD का धन्यवाद।