एक्सेल VBA पेस्ट वैल्यूज़
कॉपी और पेस्ट दुनिया में सबसे बड़ा काम नहीं है !!! लेकिन विशेष विकल्पों के साथ कॉपी और पेस्ट करने के लिए वीबीए में किसी प्रकार के ज्ञान की आवश्यकता होती है। यह सरल प्रतिलिपि और पेस्ट के रूप में सीधे आगे की प्रक्रिया नहीं है। VBA में महत्वपूर्ण पेस्ट विशेष विधियों में से एक है "पेस्ट वैल्यूज़"।
VBA का उपयोग करके एक्सेल में वैल्यू पेस्ट कैसे करें?
उदाहरण # 1 - पेस्ट विशेष का उपयोग करना
उदाहरण के लिए, नीचे दी गई कार्यपत्रक छवि देखें।
सेल बी 6 में, हमने बी 2 से बी 5 कोशिकाओं तक कुल बिक्री मूल्यों की गणना करने के लिए सूत्र लागू किया है। अब, यदि मैं सेल B6 को C6 में कॉपी और पेस्ट करता हूं, तो मुझे 22,761 का मान नहीं मिलेगा, लेकिन मुझे इसका फॉर्मूला मिल जाएगा।
VBA में समान कार्य को करने के लिए, हमें कोडिंग ज्ञान की आवश्यकता है। हम आपको दिखाएंगे कि VBA का उपयोग करके मूल्यों को कैसे पेस्ट किया जाए। नीचे दिए गए चरणों का पालन करें।
चरण 1: सेल B6 की प्रतिलिपि बनाएँ।
सेल B6 की प्रतिलिपि बनाने के लिए, कोड का उपयोग रेंज ("B6") के रूप में करें
चरण 2: गंतव्य सेल का चयन करें। इस मामले में, C6 सेल।
जैसा कि आप कॉपी के बाद देख सकते हैं, यह पूछता है, "गंतव्य।" यह कुछ भी नहीं है लेकिन आप कहां पेस्ट करना चाहते हैं, इसलिए रेंज के रूप में "गंतव्य" चुनें ("C6")
कोड:
उप पेस्ट_वैल्यूज़ () रेंज ("बी 6")। कॉपी रेंज ("सी 6") एंड सब
चरण 3: कोड चलाएँ
इस कोड को चलाएं हमें C6 में B6 कॉपी मिलेगी।
हमें यहां केवल सूत्र मिला।
चरण 4: एक पेस्ट विशेष विधि करें।
पेस्ट विशेष विधि करने के लिए, आइए पेस्ट विशेष विधि के नीचे के सिंटैक्स को देखें।
पेस्ट विशेष विधि में, हमारे पास कई तरीके हैं। हम जो ऑपरेशन कर रहे हैं, उसके आधार पर हमें उसके अनुसार टाइप का चयन करना होगा।
समझने के लिए, आइए कोड को दो लाइनों में तोड़ दें।
पहले एक सेल B6 की नकल है।
अब अगली पंक्ति में, गंतव्य सेल को रेंज ("C6") के रूप में लिखें
अब पेस्ट विशेष विधि का उपयोग करने के लिए एक डॉट डालें और अक्षर "P" लिखना शुरू करें।
उपरोक्त विभिन्न विकल्पों में, "पेस्ट स्पेशल" विधि का चयन करें।
विधि का चयन करने के बाद, विभिन्न पेस्ट विशेष विधियों को देखने के लिए अंतरिक्ष कुंजी को मारो।
विकल्पों की इस विविधता में, "xlPasteValues" चुनें।
विकल्प चुनने के बाद, टैब कुंजी को ऑटो सेलेक्ट पर हिट करें।
कोड:
उप पेस्ट_वैल्यूज़ () रेंज ("बी 6")। कॉपी रेंज ("सी 6")। पेस्टस्पेशल एक्सप्लास्टवैल्यूज़ एंड सब
चरण 5: कोड चलाएँ
अब कोड चलाएं, हमें सेल B6 का सेल C6 का केवल मान प्राप्त करना चाहिए।
यदि आप कोड को चलाने के बाद वर्कशीट पर ध्यान देते हैं, तो यह अभी भी कॉपी मोड में है।
पेस्ट विशेष विधि निष्पादित होने के बाद यह कट कॉपी मोड को अक्षम कर देगा।
उदाहरण # 2 - लूप्स के साथ विशेष पेस्ट
विशेष पेस्ट करना आसान है लेकिन एक बड़े कोड के हिस्से के रूप में इसका उपयोग करने के मामले में उन्नत स्तर के कोडिंग कौशल की आवश्यकता होती है।
उदाहरण के लिए, नीचे दी गई छवि देखें।
स्तंभ "एफ" में वर्कशीट की उपरोक्त छवि में, हमारे पास कुल स्तंभ है, अर्थात F2, F5, F8, F11, और F14 कोशिकाओं में।
अब मेरी आवश्यकता संबंधित सेल से प्रत्येक कुल सेल को कॉपी करने और संबंधित कोशिकाओं के साथ कॉलम "एच" में पेस्ट करने की है।
नीचे दिए गए कोड का उपयोग करके, VBA लूप्स के साथ, हम यह कर सकते हैं।
कोड:
Sub Paste_Values1 () Dim k As Integer Dim j as Integer j = 2 For k = 1 To 5 Cells (j, 6) .Copy Cells (j, 8) .PasteSpecial xlPasteVues j = j + 3 Next k End उप।
पेस्ट विशेष विकल्प वाला यह कोड प्रत्येक कुल सेल को कॉपी करने और संबंधित कोशिकाओं के साथ कॉलम "एच" में पेस्ट करने का कार्य करेगा।
उदाहरण # 3 - वर्कशीट से दूसरे में कॉपी करें
एक वर्कशीट से दूसरे में वैल्यू पेस्ट करने के लिए, हमें दोनों वर्कशीट के नामों का उल्लेख करना होगा। नीचे उस का एक उदाहरण है।
उप पेस्ट_वैल्यूस 2 () वर्कशीट ("शीट 1")। रेंज ("ए 1")। कॉपी वर्कशीट ("शीट 2")। रेंज ("ए 15")। पेस्टस्पेशल एक्सप्लास्टवैलव्यू एंड सब उप।
