جدول المحتويات
Microsoft Excel هو برنامج جداول بيانات شديد التنوع. إنه يعرض عليك القيام بمجموعة واسعة من المهام التي لا يمكنك حتى تخيلها. يمكنك أيضًا حساب مسافة القيادة بين عنوانين في Excel. إذا كانت لديك قائمة بالعناوين لمعرفة الفرق بينها ، فيمكنك بالطبع استخدام MS Excel. يمكنك أيضًا حساب المسافة يدويًا. لكن ذلك سيكون مضيعة للوقت. حيث أن لديك مئات الآلاف من المسافات لحسابها. وبالتالي في هذه المقالة ، سأوضح لك كيفية حساب مسافة القيادة بين عنوانين في Excel.
تنزيل Practice Workbook
يمكنك تنزيل ملف Excel من الرابط التالي والممارسة جنبًا إلى جنب مع
حساب مسافة القيادة بين عنوانين. xlsm
2 طرق فعالة لحساب مسافة القيادة بين عنوانين في Excel
1 . استخدام الدوال المثلثية لحساب مسافة القيادة
هنا ، سأوضح لك الجمع بين دوال مثلثية مختلفة لحساب مسافة القيادة بين عنوانين في Excel.
لإعطاء لك على سبيل المثال ، لقد أخذت عنوانين. العنوان الأول هو MacArthur Park، Camden NSW، Australia . خطوط الطول والعرض الخاصة بها هي 34.06312149 و -118.2783975 على التوالي. العنوان الثاني هو Jersey City، New Jersey، USA . خطوط الطول والعرض الخاصة بها هي 40.71799929 و -74.04276812 على التوالي.
الآن ، سأجمع بين ACOS ، COS ، SIN ، & amp؛ يعمل RADIANS لإنشاء صيغة. ستحسب الصيغة بشكل فعال مسافة القيادة بين عنوانين في الأميال.
لذلك ،
❶ حدد الخلية D8 أولاً.
❷ ثم أدخل الصيغة التالية في الخلية.
=ACOS(COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) * COS(RADIANS(D6-D5))) *3959 ❸ بعد ذلك ، اضغط على الزر ENTER .
الآن ، سترى أن الصيغة قد حسبت مسافة القيادة بين MacArthur Park ، Camden NSW ، Australia ، و Jersey City ، New Jersey ، USA بالأميال. وبالتالي ، سترى النتيجة في الخلية D8 وهي 2445.270922 أميال.
انهيار الصيغة
- COS (RADIANS (90-C6)) * COS (RADIANS (90-C5)) - وظائف RADIANS قم بتحويل القيم إلى راديان وتوفر الدالة COS جيب التمام للقيم ، ويتم ضرب جيب التمام لخط العرض بعد ذلك. الإخراج - 0.36
4151
540842758 - 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.449864893802199
- COS (RADIANS (90-C6)) * COS (RADIANS (90-C5)) + SIN (RADIANS (90- C6)) * SIN (RADIANS (90-C5)) * COS (RADIANS (D6-D5)) - يصبح 0.36
4151
540842758 * 0.449864893802199. الإخراج - 0.815242434644958
- ثم تقوم الدالة ACOS بتحديد القيمة. الإخراج - 0.617648629071256
- أخيرًا ، يؤدي ضرب القيمة 3959 - 0.617648629071256 * 3959 إلى الحصول على النتيجة بالأميال. الإخراج - 2445.270922
قراءة المزيد: كيفية حساب الأميال بين عنوانين في Excel (طريقتان)
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 أو خريطة Bing ما تفضله.
ولكن إنشاء Google يتم دفع API للخريطة . على العكس من ذلك ، يمكنك إنشاء API من Bing MAP مجانًا.
وبالتالي ، فأنا أستخدم Bing MAP API هنا.
- لإنشاء Bing MAP API ، انقر هنا .
لقد قمت بإنشاء API . أرفق API أدناه:
AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ-VrzOWptdUwsvj9D3L9F 
الآن ، حان الوقت لكتابة VBA كود. لذلك ،
- اضغط على ALT + F11 لفتح محرر VBA .
- انتقل الآن إلى إدراج ➤ الوحدة النمطية لفتح وحدة نمطية جديدة.
بعد فتح محرر VBA ، أدخل التالي كود VBA في الوحدة النمطية المفتوحة.
4151
Code Breakdown
- هنا ، لقد قمت بإنشاء وظيفة محددة بواسطة المستخدم تسمى Driving_Distance.
- ثم استخدمت 3 معلمات: تحديد الموقع ، الوجهة ،و keyvalue. هذه هي موضع العنوانين وقيمة API على التوالي.
- ثم استخدمت عدة متغيرات مثل First_Value ، Second_Value ، Last_value ، mitHTTP ، & amp؛ mitUrl. تُستخدم هذه المتغيرات لتخزين قيم مختلفة.
- ثم دمج القيم (المخزنة في mitUrl ) واستخدام عدة طرق للكائنات ( فتح ، SetRequestHeader ، إرسال ). هذه هي الطريقة التي تمكنت بها من حساب مسافة القيادة من خلال API .
هذا الرمز VBA يولد وظيفة محددة من قبل المستخدم تسمى Driving_Distance .
الوظيفة Driving_Distance تتطلب 3 وسيطات في المجموع.
هنا الصيغة العامة لوظيفة Driving_Distance .
=Driving_Distance(Start_Location_Coordinate,End_Location_Coordinate, API) الآن ، حان الوقت لتطبيق الوظيفة المعرفة من قبل المستخدم. لذلك ،
- حدد الخلية E10 .
- ثم أدخل الصيغة التالية:
=Driving_Distance(E5,E6,C8)
- الآن ، اضغط على ENTER .
انهيار الصيغة
- E5 هو Start_Location_Coordinate .
- E6 هو End_Location_Coordinate .
- C8 هي API من خريطة Bing .
تحسب الوظيفة مسافة بالسيارة بين عنوانين بالأميال. تحقق من الخلية E10 . سيشاهد الرقم ، 2790 .
لذا مسافة القيادة بين MacArthur Park ،Camden NSW، Australia، و Jersey City، New Jersey، USA هي 2790 ميل.
قراءة المزيد: كيفية حساب المسافة بين عنوانين في Excel (3 طرق)
قسم الممارسة
ستحصل على ورقة Excel مثل لقطة الشاشة التالية ، في نهاية ملف Excel المقدم حيث يمكنك ممارسة جميع الطرق التي تمت مناقشتها في هذه المقالة.
الخاتمة
باختصار ، لقد ناقشت 2 طرق لحساب مسافة القيادة بين عنوانين في Excel. ولا تتردد في طرح أي أسئلة في قسم التعليقات أدناه. سنحاول الرد على جميع الاستفسارات ذات الصلة في أسرع وقت ممكن. ويرجى زيارة موقعنا على الإنترنت Exceldemy لاستكشاف المزيد.
