Microsoft Excel គឺ​ជា​កម្មវិធី​សៀវភៅ​បញ្ជី​ដែល​អាច​ប្រើ​បាន​ច្រើន​។ វាផ្តល់ជូនដើម្បីធ្វើកិច្ចការជាច្រើនដែលអ្នកនឹកស្មានមិនដល់។ អ្នកថែមទាំងអាចគណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរក្នុង Excel ។ ប្រសិនបើអ្នកមានបញ្ជីអាសយដ្ឋានដើម្បីស្វែងរកភាពខុសគ្នារវាងពួកវានោះ អ្នកអាចប្រើ MS Excel បាន។ អ្នកក៏អាចគណនាចម្ងាយដោយដៃផងដែរ។ ប៉ុន្តែវានឹងចំណាយពេលច្រើនពេក។ ដូចដែលអ្នកមានចម្ងាយរាប់រយរាប់ពាន់ដើម្បីគណនា។ ដូច្នេះក្នុងអត្ថបទនេះ ខ្ញុំនឹងបង្ហាញអ្នកពីរបៀបគណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរក្នុង Excel។

ទាញយកសៀវភៅការងារអនុវត្ត

អ្នកអាចទាញយកឯកសារ Excel ពីតំណខាងក្រោម ហើយអនុវត្តរួមជាមួយនឹង it.

2 វិធីដ៏មានប្រសិទ្ធភាពក្នុងការគណនាចម្ងាយបើកបររវាង Address ពីរក្នុង Excel

1 ដោយប្រើអនុគមន៍ត្រីកោណមាត្រដើម្បីគណនាចម្ងាយបើកបរ

នៅទីនេះ ខ្ញុំនឹងបង្ហាញអ្នកឱ្យបញ្ចូលគ្នានូវ អនុគមន៍ត្រីកោណមាត្រ ដើម្បីគណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរក្នុង Excel។

ដើម្បីផ្តល់ឱ្យ ជាឧទាហរណ៍ ខ្ញុំបានយកអាសយដ្ឋានពីរ។ អាសយដ្ឋានទីមួយគឺ MacArthur Park, Camden NSW, Australia ។ រយៈទទឹង និងរយៈបណ្តោយរបស់វាគឺ 34.06312149 និង -118.2783975 រៀងគ្នា។ អាសយដ្ឋានទីពីរគឺ Jersey City, New Jersey, USA ។ រយៈទទឹង និងបណ្តោយរបស់វាគឺ 40.71799929 និង -74.04276812 រៀងៗខ្លួន។

ឥឡូវនេះ ខ្ញុំនឹងបញ្ចូលគ្នានូវ ACOS , COS , SIN , & RADIANS មុខងារដើម្បីបង្កើតរូបមន្ត។ រូបមន្តនឹងគណនាចម្ងាយបើកបរប្រកបដោយប្រសិទ្ធភាពរវាងអាសយដ្ឋានពីរគិតជាម៉ាយល៍។

សម្រាប់នោះ

❶ ជ្រើសរើសក្រឡា D8 ដំបូង។

❷ បន្ទាប់មកបញ្ចូល រូបមន្តខាងក្រោមនៅក្នុងក្រឡា។

❸ បន្ទាប់ពីនោះចុចប៊ូតុង ENTER ។

ឥឡូវនេះ អ្នកនឹងឃើញថារូបមន្តបានគណនាចម្ងាយបើកបររវាង MacArthur Park, Camden NSW, Australia, និង Jersey City, New Jersey, USA ក្នុងម៉ាយល៍។ ដូច្នេះ អ្នកនឹងឃើញលទ្ធផលនៅក្នុងក្រឡា D8 ដែលមាន 2445.270922 miles។

ការបំបែករូបមន្ត

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) – មុខងារ RADIANS បំប្លែងតម្លៃទៅជារ៉ាដ្យង់ ហើយមុខងារ COS ផ្តល់កូស៊ីនុសនៃតម្លៃ កូស៊ីនុសសម្រាប់រយៈទទឹងត្រូវបានគុណបន្ទាប់មក។ លទ្ធផល – 0.365377540842758
• COS(RADIANS(D6-D5)) – ផ្តល់តម្លៃកូស៊ីនុសសម្រាប់ភាពខុសគ្នារយៈបណ្តោយរវាងអាសយដ្ឋានទាំងពីរ។ ទិន្នផល – 0.716476936499882

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) - គណនាការបង្វែរ នៃបណ្តោយពី 90 រ៉ាដ្យង់ និងគុណតម្លៃស៊ីនុស។ លទ្ធផល – 0.627884682513118

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6- D5)) – ក្លាយជា0.627884682513118 * 0.716476936499882 ។ លទ្ធផល – 0.44 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key=" & keyvalue & "&distanceUnit=mi" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance = Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90- C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) – ក្លាយជា 0.365377540842758 * 0.44 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key=" & keyvalue & "&distanceUnit=mi" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance = Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 893802199។ លទ្ធផល – 0.815242434644958

• បន្ទាប់មក អនុគមន៍ ACOS arccosine តម្លៃ។ លទ្ធផល – 0.617648629071256

• ជាចុងក្រោយ គុណតម្លៃដោយ 3959 – 0.617648629071256 *3959 ផ្តល់លទ្ធផលជាម៉ាយល៍។ លទ្ធផល – 2445.270922

អានបន្ថែម៖ របៀបគណនា Miles រវាងអាសយដ្ឋានពីរក្នុង Excel (2 វិធីសាស្រ្ត)

2. គណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរដោយប្រើកូដ VBA

នៅក្នុងផ្នែកនេះ ខ្ញុំនឹងប្រើកូដ VBA ដើម្បីបង្កើតមុខងារកំណត់ដោយអ្នកប្រើប្រាស់។ បន្ទាប់មកខ្ញុំនឹងប្រើមុខងារនោះដើម្បីគណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរក្នុង Excel។

នៅទីនេះ ខ្ញុំកំពុងប្រើអាសយដ្ឋានពីរ។ អាសយដ្ឋានទីមួយគឺ MacArthur Park, Camden NSW, Australia ។ រយៈទទឹង និងរយៈបណ្តោយរបស់វាគឺ 34.06312149 និង -118.2783975 រៀងគ្នា។ អាសយដ្ឋានទីពីរគឺ Jersey City, New Jersey, USA ។ រយៈទទឹង និងរយៈបណ្តោយរបស់វាគឺ 40.71799929 និង -74.04276812 រៀងគ្នា។

ខ្ញុំនឹងបង្កើតកូអរដោនេសម្រាប់អាសយដ្ឋាននីមួយៗ។ កូអរដោណេគឺជាការរួមបញ្ចូលគ្នានៃរយៈទទឹង និងរយៈបណ្តោយ។ ដើម្បីបង្កើតកូអរដោនេ

• វាយ​រយៈទទឹង​នៃ​អាសយដ្ឋានទីមួយ។
• បន្ទាប់មកបញ្ចូលសញ្ញាក្បៀស។
• បន្ទាប់ពីនោះវាយបញ្ចូលរយៈបណ្តោយនៃអាសយដ្ឋានដូចគ្នា។

ដូច្នេះកូអរដោនេនៃអាសយដ្ឋានទីមួយគឺ 34.0631214903094 ,-118.27839753751 ។ ហើយកូអរដោនេនៃអាសយដ្ឋានទីពីរគឺ 40.7179992930381,-74.0427681204225 ។

កូដ VBA ទាមទារ API នៃផែនទីដើម្បីគណនាចម្ងាយបើកបរ។ API តំណាងឱ្យចំណុចប្រទាក់កម្មវិធីកម្មវិធី។ អ្នកអាចប្រើ API ដើម្បីភ្ជាប់ Google Map ឬ Bing Map អ្វីក៏បានដែលអ្នកចូលចិត្ត។

ប៉ុន្តែការបង្កើត Google Map API ត្រូវបានបង់។ ផ្ទុយទៅវិញ អ្នកអាចបង្កើត API នៃ Bing MAP ដោយមិនគិតថ្លៃ។

ដូច្នេះ ខ្ញុំកំពុងប្រើ Bing MAP API នៅទីនេះ។

• ដើម្បីបង្កើត Bing MAP API ដោយឥតគិតថ្លៃ ចុចទីនេះ ។

ខ្ញុំបានបង្កើត API ។ ខ្ញុំកំពុងភ្ជាប់ API ខាងក្រោម៖

ឥឡូវ ដល់ពេលសរសេរ VBA កូដ។ សម្រាប់វា

• ចុច ALT + F11 ដើម្បីបើក VBA Editor ។
• ឥឡូវនេះ សូមចូលទៅកាន់ Insert ➤ ម៉ូឌុល ដើម្បីបើកម៉ូឌុលថ្មីមួយ។

បន្ទាប់ពីបើក VBA Editor សូមបញ្ចូលពាក្យខាងក្រោម VBA កូដនៅក្នុងម៉ូឌុលដែលបានបើក។

9864

ការបំបែកកូដ

• នៅទីនេះ ខ្ញុំបានបង្កើតមុខងារកំណត់ដោយអ្នកប្រើប្រាស់ហៅថា Driving_Distance។
• បន្ទាប់មកខ្ញុំបានប្រើប៉ារ៉ាម៉ែត្រ 3៖ ទីតាំងចាប់ផ្តើម , ទិសដៅ ,និង តម្លៃគន្លឹះ។ ទាំងនេះគឺជាទីតាំងនៃអាសយដ្ឋានទាំងពីរ និង API តម្លៃរៀងគ្នា។
• បន្ទាប់មកខ្ញុំបានប្រើអថេរជាច្រើនដូចជា First_Value , Second_Value , Last_value , mitHTTP , & mitUrl. អថេរទាំងនេះត្រូវបានប្រើដើម្បីរក្សាទុកតម្លៃផ្សេងៗគ្នា។
• បន្ទាប់មកបញ្ចូលគ្នានូវតម្លៃ (រក្សាទុកក្នុង mitUrl ) ហើយបានប្រើវិធីសាស្ត្រវត្ថុជាច្រើន ( បើក , SetRequestHeader , ផ្ញើ )។ នេះជារបៀបដែលខ្ញុំគ្រប់គ្រងដើម្បីគណនាចម្ងាយបើកបរតាមរយៈ API ។

កូដ VBA នេះបង្កើតមុខងារកំណត់ដោយអ្នកប្រើប្រាស់ហៅថា Driving_Distance .

អនុគមន៍ Driving_Distance ទាមទារ 3 អាគុយម៉ង់ សរុប។

នេះគឺជាវាក្យសម្ព័ន្ធទូទៅនៃអនុគមន៍ Driving_Distance .

ឥឡូវនេះ ដល់ពេលអនុវត្តមុខងារកំណត់ដោយអ្នកប្រើប្រាស់។ សម្រាប់នោះ

• ជ្រើសរើសក្រឡា E10 ។
• បន្ទាប់មកបញ្ចូលរូបមន្តខាងក្រោម៖

• ឥឡូវនេះ ចុច ENTER ។

ការបំបែករូបមន្ត

• E5 គឺជា Start_Location_Coordinate ។
• E6 គឺជា End_Location_Coordinate ។
<13 C8 គឺជា API នៃ Bing MAP ។

មុខងារគណនា ចម្ងាយបើកបររវាងអាសយដ្ឋានពីរគិតជាម៉ាយល៍។ ពិនិត្យមើលក្រឡា E10 ។ វានឹងឃើញលេខ 2790 ។

ដូច្នេះចម្ងាយបើកបររវាង MacArthur Park,Camden NSW, Australia, និង Jersey City, New Jersey, USA មានចម្ងាយ 2790 ម៉ាយ។

អានបន្ថែម៖ របៀបគណនាចម្ងាយរវាងអាសយដ្ឋានពីរក្នុង Excel (3 វិធី)

ផ្នែកអនុវត្ត

អ្នកនឹងទទួលបានសន្លឹក Excel ដូចរូបថតអេក្រង់ខាងក្រោម។ នៅចុងបញ្ចប់នៃឯកសារ Excel ដែលបានផ្តល់ឱ្យ ដែលអ្នកអាចអនុវត្តវិធីសាស្រ្តទាំងអស់ដែលបានពិភាក្សានៅក្នុងអត្ថបទនេះ។

សេចក្តីសន្និដ្ឋាន

ដើម្បីសង្ខេប ខ្ញុំបានពិភាក្សា 2 វិធីគណនាចម្ងាយបើកបររវាងអាសយដ្ឋានពីរក្នុង Excel ។ ហើយកុំស្ទាក់ស្ទើរក្នុងការសួរសំណួរណាមួយនៅក្នុងផ្នែក comment ខាងក្រោម។ យើងនឹងព្យាយាមឆ្លើយតបរាល់សំណួរដែលពាក់ព័ន្ធឱ្យបានឆាប់។ ហើយសូមចូលទៅកាន់គេហទំព័ររបស់យើង Exceldemy ដើម្បីស្វែងយល់បន្ថែម។