วิธีคำนวณระยะทางใน Excel ด้วย Google แผนที่

Excel มีแอพพลิเคชั่นมากมาย และในขณะที่ใช้ VBA ดูเหมือนว่าเราสามารถทำทุกอย่างที่เราต้องการใน Excel แน่นอน เราหาระยะห่างระหว่างสถานที่ต่างๆ ได้ โดยใช้แผนที่ใน Excel ในบทความนี้ ผมจะแสดงคำแนะนำสั้นๆ ในการคำนวณระยะทางใน excel ด้วย Google Maps ด้วยขั้นตอนที่เฉียบคมและภาพประกอบที่ชัดเจน

คุณสามารถดาวน์โหลดเวิร์กบุ๊ก Excel ได้ฟรีจากที่นี่และฝึกฝนด้วยตัวเอง

การใช้ฟังก์ชันที่ผู้ใช้กำหนดเพื่อคำนวณระยะทางใน Excel ด้วย Google แผนที่

เราจะหาระยะทาง ระหว่าง MacArthur Park และ Jersey City โดยใช้ Google Maps

อันดับแรก เราต้องรู้สิ่งสำคัญ ในการคำนวณระยะทางใน Excel โดยใช้ Google Maps เราจำเป็นต้องมี API กุญแจ. API ย่อมาจาก Application Programming Interface . Excel เชื่อมต่อกับ Google Maps โดยใช้คีย์ API เพื่อรวบรวมข้อมูลที่จำเป็น แผนที่บางแห่งมีคีย์ API ฟรี เช่น Bing Maps แต่ Google Maps ไม่ได้ให้บริการ 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).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 และ last_Value สำหรับอาร์กิวเมนต์ของฟังก์ชันที่ผู้ใช้กำหนด
• ตั้งค่าสำหรับตัวแปร (แต่ละค่าเป็นตัวอธิบาย) และตั้งค่า mitHTTP ออบเจ็กต์ใน ServerXMLHTTP เพื่อใช้ GET เมธอด (ใช้ในภายหลัง คุณสมบัติอ็อบเจ็กต์นี้จะอนุญาตให้ใช้ POST ด้วย)
• URL คือการรวมกันของค่าทั้งหมดที่ตั้งไว้ก่อนหน้านี้ ซึ่งเป็นคุณสมบัติเปิดของ mitHTTP วัตถุใช้มัน
• หลังจากกำหนดค่าแล้ว ฟังก์ชันไลบรารีจะคำนวณส่วนที่เหลือ

ตอนนี้คุณเห็นแล้วว่าฟังก์ชันของเราพร้อมใช้งานแล้ว

• ใน เซลล์ C8 , พิมพ์สูตรต่อไปนี้-

• สุดท้าย เพียงกดปุ่ม ENTER ปุ่มเพื่อรับระยะทาง มันจะแสดงระยะทางในหน่วยมิเตอร์ .

อ่านเพิ่มเติม: วิธีคำนวณระยะทางขับรถระหว่างสองที่อยู่ใน Excel

ข้อดีและข้อเสียขณะคำนวณระยะทางด้วย Google Maps

• คุณต้องมีคีย์ API . ที่ถูกต้อง .
• โค้ดด้านบนจะให้ผลลัพธ์ใน หน่วยมิเตอร์ .
• ฟังก์ชันที่ผู้ใช้กำหนดใช้ชื่อสถานที่โดยตรง ไม่จำเป็นต้องใช้พิกัด
• ตรวจสอบให้แน่ใจว่าคุณใช้สถานที่ที่ถูกต้อง

ข้อดีและข้อเสียของการคำนวณระยะทางด้วย Google Maps

ข้อดี

• สำหรับสถานที่ขนาดใหญ่สองสามแห่ง มันค่อนข้างเป็นไปได้เพราะเราสามารถใช้ Fill Handle เครื่องมือในการคัดลอกสูตร ที่ไม่สามารถทำได้ใน Google แผนที่
• เป็นวิธีที่เร็วกว่ามาก
• ไม่จำเป็นต้องใช้พิกัด

ข้อเสีย

• ใช้กับพิกัดไม่ได้
• คุณจะไม่ได้รับแผนที่หรือเส้นทาง เพียงแต่คุณจะได้รับระยะทาง
• ใช้ไม่ได้กับการจับคู่ชื่อสถานที่โดยประมาณ

บทสรุป

ฉันหวังว่าขั้นตอนที่อธิบายไว้ข้างต้นจะดีพอที่จะคำนวณระยะทางใน Excel ด้วย Google Maps อย่าลังเลที่จะถามคำถามใด ๆ ในส่วนความคิดเห็นและโปรดให้ข้อเสนอแนะ ไปที่ ExcelDemy เพื่อสำรวจเพิ่มเติม

บทความที่เกี่ยวข้อง

• วิธีการคำนวณระยะทางระหว่างพิกัด GPS สองแห่งใน Excel
• คำนวณพิกัดจากแบริ่งและระยะทางใน Excel
• วิธีการคำนวณระยะทาง Mahalanobis ใน Excel (ทีละขั้นตอน)
• คำนวณไมล์ระหว่างสองที่อยู่ใน Excel (2 วิธี)
• วิธีการคำนวณระยะทางแมนฮัตตันใน Excel (2 วิธีที่เหมาะสม)
• คำนวณระยะทาง Levenshtein ใน Excel (4 วิธีง่ายๆ)