जो एक नए मैक्रो पर एक त्रुटि का पता लगाने की कोशिश कर रहा है जो उसने लिखा था।
NextRow को असाइन करने वाली लाइन एक त्रुटि दे रही है जो कहती है "ऑब्जेक्ट वैरिएबल या विथ वैरिएबल नॉट सेट"।
ऑब्जेक्ट चर बहुत अच्छे हैं। पुराने सुझावों में, मैं इन जैसे नियमित चर का उपयोग करूंगा:
OrigName = ActiveSheet.Name Worksheets(OrigName).Copyएक बेहतर रास्ता है। आप एक चर को किसी भी वस्तु जैसे कार्यपत्रक के रूप में परिभाषित कर सकते हैं। इसके कई फायदे हैं। कार्यपत्रक (OrigName) के स्थान पर ऑब्जेक्ट चर का उपयोग करना कम है। साथ ही, जैसा कि आप कोड टाइप कर रहे हैं, VBA को पता चल जाएगा कि चर एक वर्कशीट है और डॉट टाइप करने के बाद उपयुक्त गुण और तरीके प्रदान करें। यहाँ नया कोड है:
Dim WSO as Worksheet Set WSO = Activesheet WSO.Copyहालाँकि, चाल यह है कि जब आपके पास कोई ऑब्जेक्ट चर होता है, तो उसे सेट कीवर्ड के साथ असाइन करना होता है। यदि आप सेट को कोड में डालने में विफल रहते हैं, तो आपको कुछ गैर-सहज ज्ञान युक्त "ऑब्जेक्ट वैरिएबल या ब्लॉक वेरिएबल नॉट सेट" मिल जाएगा। जो को बस सेट शब्द के साथ अपने वैरिएबल असाइनमेंट से पहले की जरूरत है।
