एक मनमाना संख्या द्वारा कोशिकाओं में मूल्यों के स्वचालित विभाजन के लिए मैक्रो। यह आवश्यक हो सकता है यदि हमारे पास एक डेटा फ़ाइल है जहां सभी मान पेनीज़ में निर्दिष्ट हैं, और हमें गणना और डेटा को रिव्निया (या अन्य मुद्रा) में अनुवाद करने की आवश्यकता है।
बेशक, आप मूल्यों को परिवर्तित करने के लिए सूत्रों का उपयोग कर सकते हैं, लेकिन यदि बहुत सारी संख्याएँ हैं, तो इस तरह से परिवर्तित करना बहुत लंबा और उबाऊ होगा।
आइए विचार करें कि सभी चयनित कोशिकाओं को एक संख्या से कैसे विभाजित किया जाए, उदाहरण के लिए, मैक्रो का उपयोग करके एक्सेल में "100"।
ऐसा करने के लिए, अपनी कार्यपुस्तिका खोलें, Visual Basic Editor (Alt+F11) पर जाएं, VBA मॉड्यूल जोड़ें (Insert - Module) और इस मैक्रो टेक्स्ट को वहां कॉपी करें। :
Sub Division() For Each cell In Selection cell.Formula = cell.Value Next cell For Each cell In Selection cell.Value = cell.Value / 100 Next cell End Sub
उसके बाद आप Excel पर वापस लौट सकते हैं। आवश्यक कोशिकाओं का चयन करें और हमारे मैक्रो को मेनू Tools - Macro - Macros (Alt+F8) के माध्यम से चलाएँ।
इसके अलावा, यदि हम मैक्रो कोड में मुद्रा दर के साथ "100" को प्रतिस्थापित करते हैं, तो हमें दूसरी मुद्रा में मूल्य मिलेगा।
इसी तरह, आप कोई भी ऑपरेशन कर सकते हैं, जैसे किसी भी संख्या से गुणा करना।