वीबीए: किसी वेरिएबल में सेल का मान कैसे पढ़ें

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

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

यह विशेष मैक्रो सेलवैल नामक एक स्ट्रिंग वेरिएबल बनाता है और फिर वर्तमान में सक्रिय शीट के सेल ए1 के मान को वेरिएबल में पढ़ता है।

अंत में, हम संदेश बॉक्स में इस वेरिएबल का मान प्रदर्शित करने के लिए MsgBox का उपयोग करते हैं।

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

उदाहरण: वीबीए में किसी वेरिएबल में सेल का मान कैसे पढ़ें

मान लीजिए हमारे पास सेल A1 में 500 के मान वाली एक एक्सेल शीट है:

हम इस सेल मान को एक वेरिएबल में पढ़ने के लिए निम्नलिखित मैक्रो बना सकते हैं और फिर एक संदेश बॉक्स में मान प्रदर्शित कर सकते हैं:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

मैक्रो वेरिएबल का मान प्रदर्शित करता है, जिसमें सेल A1 से मान 500 होता है।

ध्यान दें कि यदि हम चाहें तो वेरिएबल का उपयोग करके हम अधिक जटिल गणनाएँ भी कर सकते हैं।

उदाहरण के लिए, हम सेल A1 के मान को एक वेरिएबल में पढ़ने के लिए निम्नलिखित मैक्रो बना सकते हैं, और फिर एक संदेश बॉक्स बना सकते हैं जो उस मान को 5 से गुणा करके प्रदर्शित करता है:

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

मैक्रो वेरिएबल के मान को 5 से गुणा करके प्रदर्शित करता है, जो 500 * 5 = 2500 होता है।

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

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

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