गूगल मैप्स का उपयोग करके एक्सेल में सटीक दूरी की गणना करें

एक्सेल के अनुप्रयोगों की एक विस्तृत श्रृंखला है। और VBA का उपयोग करते समय ऐसा लगता है कि हम एक्सेल में जो चाहें कर सकते हैं। इसलिए निश्चित रूप से, हम एक्सेल में मानचित्र का उपयोग करके स्थानों के बीच की दूरी ढूंढ सकते हैं। इस लेख में, मैं एक्सेल में गूगल मैप्स के साथ दूरी की गणना करने के लिए स्पष्ट चरणों और स्पष्ट चित्रण के साथ एक त्वरित मार्गदर्शिका दिखाऊंगा।

आप यहां से मुफ्त एक्सेल वर्कबुक डाउनलोड कर सकते हैं और स्वयं अभ्यास कर सकते हैं।

उपयोगकर्ता-परिभाषित फंक्शन का उपयोग करके गूगल मैप्स के साथ एक्सेल में दूरी की गणना

यहां, हम मैकआर्थर पार्क और जर्सी सिटी के बीच दूरी ढूंढेंगे गूगल मैप्स का उपयोग करके।

गूगल मैप्स का उपयोग करके एक्सेल में सटीक दूरी की गणना करें – चरण-दर-चरण मार्गदर्शिका

सबसे पहले, हमें एक महत्वपूर्ण बात जानने की जरूरत है। एक्सेल में गूगल मैप्स का उपयोग करके दूरी की गणना करने के लिए, हमें एक API कुंजी की आवश्यकता होगी। API का अर्थ एप्लीकेशन प्रोग्रामिंग इंटरफेस है। एक्सेल API कुंजी का उपयोग करके गूगल मैप्स से जुड़ता है आवश्यक डेटा एकत्र करने के लिए। कुछ मानचित्र मुफ्त API कुंजी प्रदान करते हैं जैसे बिंग मैप्स। लेकिन गूगल मैप्स मुफ्त API प्रदान नहीं करता। हालांकि आप किसी तरह मुफ्त API प्राप्त करते हैं तो वह पूरी तरह से काम नहीं करेगा। इसलिए, आपको इस लिंक से API कुंजी खरीदनी होगी।

यहां, मैंने एक मुफ्त API कुंजी प्रबंधित की है। यह ठीक से काम नहीं करती, केवल उदाहरण के रूप में उपयोग की गई है। हम VBA का उपयोग करके Calculate_Distance नामक एक उपयोगकर्ता-परिभाषित फंक्शन बनाएंगे दूरी ढूंढने के लिए। इसके तीन तर्क होंगे- प्रारंभिक स्थान, गंतव्य, और API कुंजी। अब प्रक्रियाएं शुरू करते हैं।

चरण:

ALT + F11 दबाकर VBA विंडो खोलें।

अगला, इस तरह क्लिक करें: इन्सर्ट > मॉड्यूल एक नया मॉड्यूल बनाने के लिए।

बाद में, विंडो में निम्न कोड टाइप करें-

Public Function Calculate_Distance(start As String, dest As String) Dim first_Value As String, second_Value As String, last_Value As String first_Value = "https://maps.googleapis.com/maps/api/distancematrix/json?origins=" second_Value = "&destinations=" last_Value = "&mode=car&language=pl&sensor=false&key=YOUR_KEY" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") Url = first_Value & Replace(start, " ", "+") & second_Value & Replace(dest, " ", "+") & last_Value mitHTTP.Open "GET", Url, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") If InStr(mitHTTP.ResponseText, """distance"" : {") = 0 Then GoTo ErrorHandl Set mit_reg = CreateObject("VBScript.RegExp"): mit_reg.Pattern = """value"".*?([0-9]+)" mit_reg.Global = False Set mit_matches = mit_reg.Execute(mitHTTP.ResponseText) tmp_Value = Replace(mit_matches(0).SubMatches(0), ".", Application.International(xlListSeparator)) Calculate_Distance = CDbl(tmp_Value) Exit Function ErrorHandl: Calculate_Distance = -1 End Function

फिर कुछ नहीं, बस अपनी शीट पर वापस जाएं।

कोड विश्लेषण:

सबसे पहले, मैंने एक पब्लिक फंक्शन प्रक्रिया Calculate_Distance का उपयोग किया।
फिर हमारे उपयोगकर्ता-परिभाषित फंक्शन के तर्कों के लिए कुछ वेरिएबल first_Value, second_Value, और last_Value घोषित किए।
वेरिएबल के लिए मान सेट किए (प्रत्येक मान स्व-वर्णनात्मक है), और mitHTTP ऑब्जेक्ट को ServerXMLHTTP में सेट किया GET विधि का उपयोग करने के लिए (बाद में उपयोग किया गया, यह ऑब्जेक्ट प्रॉपर्टी POST विधि का उपयोग करने की अनुमति देगा)।
Url पहले सेट किए गए सभी मानों का संयोजन है, mitHTTP ऑब्जेक्ट के ओपन प्रॉपर्टी ने इसका उपयोग किया।
मान निर्दिष्ट करने के बाद लाइब्रेरी फंक्शन बाकी की गणना करता है।

अब आप देखते हैं, हमारा फंक्शन उपयोग के लिए तैयार है।

सेल C8 में, निम्न सूत्र टाइप करें-

=Calculate_Distance(C4,C5,C6)

अंत में, बस ENTER बटन दबाएं दूरी प्राप्त करने के लिए। यह मीटर इकाई में दूरी दिखाएगा।

और पढ़ें: एक्सेल में दो पतों के बीच ड्राइविंग दूरी की गणना कैसे करें

गूगल मैप्स के साथ दूरी की गणना करते समय फायदे और नुकसान

आपके पास एक वैध API कुंजी होनी चाहिए।
उपरोक्त कोड मीटर इकाई में आउटपुट देगा।
उपयोगकर्ता-परिभाषित फंक्शन सीधे स्थान नामों का उपयोग करता है, निर्देशांक का उपयोग करने की आवश्यकता नहीं।
सुनिश्चित करें, आपने एक वैध स्थान का उपयोग किया है।

गूगल मैप्स के साथ दूरी की गणना के फायदे और नुकसान

फायदे

बड़ी संख्या में स्थानों के लिए, यह काफी संभव है क्योंकि हम सूत्र को कॉपी करने के लिए फिल हैंडल टूल का उपयोग कर सकते हैं। जो गूगल मैप्स में संभव नहीं है।
यह काफी तेज़ तरीका है।
निर्देशांक का उपयोग करने की आवश्यकता नहीं।

नुकसान

यह निर्देशांक के साथ काम नहीं कर सकता।
आपको मानचित्र या मार्ग नहीं मिलेगा, केवल दूरी मिलेगी।
यह स्थान नामों के अनुमानित मिलान के साथ काम नहीं करेगा।

निष्कर्ष

मुझे आशा है कि ऊपर वर्णित प्रक्रियाएं एक्सेल में गूगल मैप्स के साथ दूरी की गणना करने के लिए पर्याप्त होंगी। कमेंट सेक्शन में कोई भी प्रश्न पूछने के लिए स्वतंत्र महसूस करें और कृपया मुझे फीडबैक दें। अधिक जानने के लिए एक्सेलडेमो पर जाएं।