एक्सेल में अनुप्रयोगों की एक विस्तृत श्रृंखला है। और VBA . का उपयोग करते समय तो ऐसा लगता है कि हम एक्सेल में जो चाहें कर सकते हैं। तो निश्चित रूप से, हम स्थानों के बीच की दूरी का पता लगा सकते हैं एक्सेल में मानचित्र का उपयोग करना। इस लेख में, मैं Google मानचित्र के साथ तीखे चरणों और स्पष्ट चित्रों के साथ एक्सेल में दूरी की गणना करने के लिए एक त्वरित मार्गदर्शिका दिखाऊंगा।
आप यहां से निःशुल्क एक्सेल वर्कबुक डाउनलोड कर सकते हैं और स्वयं अभ्यास कर सकते हैं।
Google मानचित्र के साथ Excel में दूरी की गणना करने के लिए उपयोगकर्ता-निर्धारित फ़ंक्शन का उपयोग करना
यहां, हम दूरी ज्ञात करेंगे Google मानचित्र का उपयोग करके मैकआर्थर पार्क और जर्सी सिटी के बीच।
सबसे पहले हमें एक महत्वपूर्ण बात जाननी होगी। Google मानचित्र का उपयोग करके Excel में दूरी की गणना करने के लिए, हमें एक API . की आवश्यकता होगी चाभी। एपीआई एप्लिकेशन प्रोग्रामिंग इंटरफ़ेस के लिए खड़ा है . एक्सेल आवश्यक डेटा एकत्र करने के लिए एपीआई कुंजी का उपयोग करके Google मानचित्र से जुड़ता है। कुछ मानचित्र Bing मानचित्र जैसी निःशुल्क API कुंजियाँ प्रदान करते हैं। लेकिन Google मानचित्र निःशुल्क API प्रदान नहीं करता है। यद्यपि आप किसी भी तरह एक मुफ्त एपीआई का प्रबंधन करते हैं जो पूरी तरह से काम नहीं करेगा। तो, आपको API . खरीदना होगा इस लिंक से कुंजी।
यहाँ, मैंने एक मुफ़्त API . प्रबंधित किया है चाभी। यह ठीक से काम नहीं करता है, बस एक उदाहरण के रूप में दिखाने के लिए प्रयोग किया जाता है। हम VBA . का उपयोग करेंगे एक उपयोगकर्ता-परिभाषित फ़ंक्शन बनाने के लिए नाम दिया गया गणना_Distance दूरी का पता लगाने के लिए . इसके तीन तर्क होंगे- आरंभिक स्थान , गंतव्य , और एपीआई कुंजी . अब प्रक्रिया शुरू करते हैं।
चरण:
- 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).Submit_matches(0), ".", Application.International(xlListSeparator))
Calculate_Distance = CDbl(tmp_Value)
Exit Function
ErrorHandl:
Calculate_Distance = -1
End Function
- तो कुछ नहीं, बस अपनी शीट पर वापस जाएं।
कोड ब्रेकडाउन:
- सबसे पहले, मैंने एक सार्वजनिक समारोह प्रक्रिया का उपयोग किया Calculate_Distance ।
- फिर कुछ चर घोषित किए first_Value, second_Value, and last_Value हमारे उपयोगकर्ता-परिभाषित फ़ंक्शन के तर्कों के लिए।
- चरों के लिए मान सेट करें (प्रत्येक मान स्व-वर्णनात्मक है), और mitHTTP सेट करें ServerXMLHTTP . में ऑब्जेक्ट करें GET . का उपयोग करने के लिए विधि (बाद में उपयोग की गई, यह ऑब्जेक्ट गुण POST . का उपयोग करने की अनुमति देगा विधि भी)।
- यूआरएल पहले सेट किए गए सभी मानों का संयोजन है, mitHTTP . की खुली संपत्ति ऑब्जेक्ट ने इसका इस्तेमाल किया।
- मानों को निर्दिष्ट करने के बाद लाइब्रेरी फ़ंक्शन शेष गणना करता है।
अब आप देखिए, हमारा फ़ंक्शन उपयोग के लिए तैयार है।
- सेल C8 . में , निम्न सूत्र टाइप करें-
=Calculate_Distance(C4,C5,C6)
- आखिरकार, बस ENTER दबाएं दूरी पाने के लिए बटन। यह मीटर इकाई . में दूरी दिखाएगा ।
और पढ़ें: Excel में दो पतों के बीच ड्राइविंग दूरी की गणना कैसे करें
Google मानचित्र के साथ दूरी की गणना करते समय पेशेवरों और विपक्ष
- आपके पास एक मान्य API कुंजी होनी चाहिए ।
- उपरोक्त कोड मीटर इकाई में आउटपुट देगा ।
- उपयोगकर्ता-परिभाषित फ़ंक्शन सीधे स्थान नामों का उपयोग करता है, निर्देशांक का उपयोग करने की कोई आवश्यकता नहीं है।
- सुनिश्चित करें कि आपने एक मान्य स्थान का उपयोग किया है।
Google मानचित्र से दूरी की गणना करने के लाभ और हानि
फायदे
- कुछ बड़े स्थानों के लिए, यह काफी व्यवहार्य है क्योंकि हम भरें हैंडल का उपयोग कर सकते हैं सूत्र की प्रतिलिपि बनाने के लिए उपकरण। Google मानचित्र . में यह संभव नहीं है
- यह बहुत तेज़ तरीका है।
- निर्देशांक का उपयोग करने की कोई आवश्यकता नहीं है।
नुकसान
- यह निर्देशांक के साथ काम नहीं कर सकता।
- आपको नक्शा या मार्ग नहीं मिलेगा, बस आपको दूरी मिल जाएगी।
- यह स्थान के नामों के अनुमानित मिलान के साथ काम नहीं करेगा।
निष्कर्ष
मुझे आशा है कि ऊपर वर्णित प्रक्रियाएं Google मानचित्र के साथ एक्सेल में दूरी की गणना करने के लिए पर्याप्त होंगी। बेझिझक कोई भी सवाल कमेंट सेक्शन में पूछें और कृपया मुझे फीडबैक दें। ExcelDemy पर जाएं अधिक जानने के लिए।
संबंधित लेख
- Excel में दो GPS निर्देशांकों के बीच की दूरी की गणना कैसे करें
- एक्सेल में असर और दूरी से निर्देशांक की गणना करें
- एक्सेल में महलानोबिस दूरी की गणना कैसे करें (चरण दर चरण)
- एक्सेल में दो पतों के बीच मीलों की गणना करें (2 तरीके)
- एक्सेल में मैनहट्टन दूरी की गणना कैसे करें (2 उपयुक्त तरीके)
- एक्सेल में लेवेनशेटिन दूरी की गणना करें (4 आसान तरीके)