वीबीए: किसी अन्य शीट में सेल का मान कैसे सेट करें

आप किसी अन्य शीट में सेल मान सेट करने के लिए VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: किसी अन्य शीट में सेल मान सेट करें

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

यह विशेष मैक्रो शीट 2 में सेल A2 के मान को शीट1 में सेल A2 के मान के बराबर सेट करेगा।

विधि 2: एक अन्य शीट में एकाधिक सेल मान सेट करें

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

यह विशेष मैक्रो शीट2 में रेंज A2:A11 में प्रत्येक सेल के मान को शीट1 में रेंज A2:A11 में प्रत्येक सेल के मान के बराबर सेट करेगा।

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: किसी अन्य शीट में सेल मान सेट करें

मान लीजिए कि हमारे पास शीट1 नामक निम्नलिखित शीट है जिसमें विभिन्न बास्केटबॉल टीमों के नाम हैं:

और मान लीजिए कि हमारे पास शीट2 है जिसमें केवल एक हेडर पंक्ति है:

हम शीट 2 के सेल A2 के मान को शीट1 के सेल A2 के मान के बराबर सेट करने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell value in Sheet2 equal to cell value in Sheet1
    wks2.Range(" A2 ").Value = wks1.Range(" A2 ").Value
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हम देख सकते हैं कि शीट2 के सेल A2 का मान अब “Mavs” पर सेट है, जो शीट1 के सेल A2 के मान से मेल खाता है:

उदाहरण 2: एक अन्य शीट में एकाधिक सेल मान सेट करें

मान लीजिए कि हम शीट 2 की रेंज A2:A11 में प्रत्येक सेल का मान शीट1 की रेंज A2:A11 में प्रत्येक सेल के बराबर सेट करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub SetCellAnotherSheet()
    
    Sun wks1 As Worksheet, wks2 As Worksheet
    
    'specify sheets to use
    Set wks1 = Sheets(" Sheet1 ")
    Set wks2 = Sheets(" Sheet2 ")
    
    'set cell range in Sheet2 equal to cell range in Sheet1
    wks2.Range(" A2:A11 ").Value = wks1.Range(" A2:A11 ").Value
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हम देख सकते हैं कि शीट2 की रेंज A2:A11 में मान अब शीट1 की रेंज A2:A11 में मानों के समान ही सेट हैं:

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: अंतिम प्रयुक्त पंक्ति कैसे खोजें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: उपयोग किए गए कॉलमों की संख्या कैसे गिनें