हम मैक्रो का उपयोग करके सभी कोशिकाओं में विभाजन करते हैं

विवरण

एक मनमाना संख्या द्वारा कोशिकाओं में मूल्यों के स्वचालित विभाजन के लिए मैक्रो। यह आवश्यक हो सकता है यदि हमारे पास एक डेटा फ़ाइल है जहां सभी मान पेनीज़ में निर्दिष्ट हैं, और हमें गणना और डेटा को रिव्निया (या अन्य मुद्रा) में अनुवाद करने की आवश्यकता है।

बेशक, आप मूल्यों को परिवर्तित करने के लिए सूत्रों का उपयोग कर सकते हैं, लेकिन यदि बहुत सारी संख्याएँ हैं, तो इस तरह से परिवर्तित करना बहुत लंबा और उबाऊ होगा।

आइए विचार करें कि सभी चयनित कोशिकाओं को एक संख्या से कैसे विभाजित किया जाए, उदाहरण के लिए, "100" Excel में मैक्रो का उपयोग करके।

मैक्रो के लिए VBA कोड

ऐसा करने के लिए, अपनी पुस्तक खोलें, पर जाएँ विजुअल बेसिक एडिटोर्ट (Alt+F11), मॉड्यूल जोड़ें VBA ( Insert - Modle ) और इस मैक्रो टेक्स्ट को वहां कॉपी करें:

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" विनिमय दर पर, तो हमें दूसरी मुद्रा में मूल्य मिलेगा।

इसी तरह, आप कोई भी ऑपरेशन कर सकते हैं, जैसे किसी भी संख्या से गुणा करना।