excel - Using range-variable in multiple worksheets -


एक श्रेणी वाला चर का उपयोग करते समय मुझे कोई समस्या है।

मैंने वर्कबुक मॉड्यूल में विश्वव्यापी "आरएनजी" घोषित किया है:

  सार्वजनिक रेंज के रूप में रेंज  

अब एक वर्कशीट मॉड्यूल में मैंने चर के बाद सेट किया है एक चेकबॉक्स पर क्लिक करके इसके लिए एक श्रेणी परिभाषित करें:

  उप चेकबॉक्स 1_Click () सेट आरएनजी = रेंज ("D8: Q51") यदि Me.OO ऑब्जेक्ट ("चेकबॉक्स 1")। Object.Value कॉल कम (आरएनजी) अन्य कॉल कॉल औस (आरएनजी) एंड एंड एंड एंड उप  

उप "ओस (आरएनजी)" कहने पर मुझे हमेशा एक त्रुटि मिलती है जो कहते हैं:

त्रुटि 438, ऑब्जेक्ट इस गुण या विधि का समर्थन नहीं करता

"aus (rng)" में निम्न कोड है:

  कार्यपत्रक ( 5) .rng.Copy कार्यपत्रक ("aktuell")। Rng  

बीटीडब्ल्यू: एक ही वर्कशीट में सीमा-चर का उपयोग करते हुए मॉड्यूल किसी त्रुटि को नहीं फेंकता है। इसलिए किसी भी तरह "वर्कशीट्स (5)" के साथ सहसंबंध होना पड़ता है।

जब आप किसी श्रेणी को परिभाषित करते हैं सेट करें और आप वर्कबुक या वर्कशीट की पैरेंट ऑब्जेक्ट को परिभाषित नहीं करते हैं, यह ActiveWorkBook और ActiveWorkSheet पर डिफ़ॉल्ट होगा। इसलिए यह लेखन की तरह है:

  सेट आरएनजी = एक्टिववॉर्चबुक.एक्टिवशेट.रेन्ज ("डी 8: Q51")  

जब आप rng का उपयोग करते हैं बाद में कोड में, आप इसे एक शीट के अंतर्गत आज़माते हैं और मूल रूप से लिखते हैं:

  कार्यपत्रक (5)। एक्टिववार्केच। एक्टिवशेट.रेन्ज ( "D8: Q51") कॉपी करें  

जो हम जानते हैं वह गलत वाक्यविन्यास है और त्रुटि होगी।

एक वैकल्पिक हल के रूप में, आप निम्न कोड का उपयोग कर सकते हैं:

  कार्यपत्रक (5) .रेंज (rng.Address)। कॉपी कार्यपत्रक ("aktuell")। रेंज (rng.Address)  

Comments

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

html - CSS autoheight, but fit content to height of div -

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -