Match Not working Excel: Error 1004 Unable to get the Match Property -
उप विक्रय_समरी_माक्र्रो () कम strMake, strmodel, strCount के रूप में स्ट्रिंग दी मेकलोक, मॉडल लॉक, countLoc के रूप में पूर्णांक strMake = application इनपुट बॉक्स ("बनाओ") strModel = Application.InputBox ("मॉडल") strCount = Application.InputBox ("गणना") अगर strMake & lt; & gt; झूठी तो डीबग.प्रंट स्ट्रैंक डीबग.प्रंट स्ट्रमोडेल डीबग.प्रिंट स्ट्रैकाउंट मेकलोक = वर्कशीट फंक्शन। मैच (स्ट्रैमकेज़, रेंज ("ए 1: ए 10"), 0) डीबग करें। प्रिंट करेंलोक समाप्ति यदि एंड सब < P> मैं बस उपयोगकर्ता के स्ट्रिंग इनपुट को तीन अलग-अलग चर पर लेना चाहता हूं और प्रत्येक चर वाले कॉलम को ढूंढना चाहता हूं। मैंने आवेदन की कोशिश की है। मैच () और मैच () अकेले और न ही काम करने लगते हैं।
UPD: क्या यह है संभव है कि इसे सी 1 जैसे सेल संदर्भ वापस करने के लिए और फिर उस कक्ष का संदर्भ अन्य फ़ंक्शन में उपयोग करें
उप sales_Summary_Macro () के रूप में स्ट्रिंग स्ट्रिंग, strmodel स्ट्रिंग स्ट्रिंग, strcount as String डिम मेकलोक, मॉडल लॉक इंटिजर के रूप में, गणना लॉजिक के रूप में पूर्णांक मंद रिस के रूप में रेंज स्ट्रैंक = एप्लीकेशन.इनपुटबॉक्स ("बनाओ") strModel = Application.InputBox ("Model") strCount = Application.InputBox ("Count") अगर strMake & lt; & gt; "गलत" तब डीबग करें.प्रंट स्ट्रैक डीबग.प्रंट स्ट्रमोडेल डीबग.प्रिंट स्ट्रैकाउंट पर त्रुटि फिर से शुरू करें अगला 'सेट रेस = रेंज ("ए 1: Z1")। ढूँढें (क्या: = strMake, LookAt: = xlWhole, MatchCase: = False) सेट res = Application.Index (रेंज ("A1: A10"), Application.Match (strMake, रेंज ("A1: A10"), 0)) त्रुटि पर GoTo 0 यदि Res कुछ भी नहीं है MsgBox "कुछ भी नहीं मिला!" उपदंड से बाहर निकलें यदि 'डीबग के प्रिंट एड्रेस का प्रिंट करें। प्रिंट रिसेड करें। मेकलोक = रेस। वैल्यू डिबग। प्रिंट करेंलोक एन्ड एंड एंड कम
बीटीडब्ल्यू,
जब आप Dim strMake, strModel, strCount के रूप में स्ट्रिंग
का उपयोग कर रहे हैं, केवल strCount
प्रकार स्ट्रिंग
है, लेकिन strMake , स्ट्रमोडेल
हैं भिन्न
।
एक ही चीज़ मंद मेकलोक, मॉडल लॉक, काउटललोक फॉर इंटीजर
- केवल countLoc
में पूर्णांक कोड> प्रकार है।
>
Comments
Post a Comment