2010-10-25 11 views

उत्तर

85

क्या निम्न मैक्रो आपकी मदद करेगा?

Sub activateSheet(sheetname As String) 
'activates sheet of specific name 
    Worksheets(sheetname).Activate 
End Sub 

असल में आप एक्टिवेट फ़ंक्शन का उपयोग करना चाहते हैं। चयनित स्ट्रिंग एक वास्तविक लिंक बनाने के लिए किया जाता है

Sub activateSheet(sheetname As String) 
'selects sheet of specific name 
    Sheets(sheetname).Select 
End Sub 
+0

'शीटनाम' वर्कशीट इंडेक्स नंबर (इसलिए पूर्णांक) हो सकता है। यहां तक ​​कि यदि 'विकल्प बेस' मान 0 है, तो यह सूचकांक 1 से शुरू होता है। –

0

करने के लिए (नहीं गतिशील रूप से) एक वैकल्पिक तरीका मैक्रो बिना किसी कार्यपत्रक को सक्रिय करने के लिए एक पाठ लिंक: या तुम इतनी तरह .Select फ़ंक्शन का उपयोग कर सकते हैं। आप उस सेल को चुनकर ऐसा कर सकते हैं जिसमें टेक्स्ट है और CTRL + K दबाएं, फिर विकल्प/टैब 'इस दस्तावेज़ में रखें' का चयन करें और उस टैब का चयन करें जिसे आप सक्रिय करना चाहते हैं। यदि आप टेक्स्ट पर क्लिक करेंगे (जो अब एक लिंक है) कॉन्फ़िगर किया गया शीट सक्रिय/चयनित हो जाएगा।

4

मैं आप के बजाय कार्यपत्रक के नाम का उपयोग करने का कार्यपत्रक के सूचकांक का उपयोग करने के, इस तरह आप भी पत्रक के माध्यम से "गतिशील"

for i=1 to thisworkbook.sheets.count 
sheets(i).activate 
'You can add more code 
with activesheet 
'Code... 
end with 
next i 

पाश यह भी प्रदर्शन में सुधार होगा सकते में की सिफारिश करेंगे।

+0

यह वर्कशीट्स() सक्रिय करें' पर प्रदर्शन को कैसे बेहतर बनाता है? – TylerH

+0

@TylerH यह चादरों ("नाम") पर प्रदर्शन में सुधार करता है। सक्रिय करें – Moreno

संबंधित मुद्दे