این مقاله نحوه محاسبه فاصله بین دو آدرس در اکسل را به شما نشان می دهد. مایکروسافت اکسل دارای این ویژگی و فرمول جالب برای پیدا کردن فاصله بین دو مکان در جهان است. اگر مختصات GPS از دو مکان دارید، می توانید به راحتی فاصله بین آن مکان ها را در هر واحدی که می خواهید تعیین کنید.

دانلود کتاب تمرین تمرین

محاسبه فاصله بین دو آدرس.xlsm

3 روش برای محاسبه فاصله بین دو آدرس در اکسل

در مجموعه داده ما، طول جغرافیایی و طول جغرافیایی برای اوهایو و آلاسکا . ما فاصله بین آنها را اندازه گیری می کنیم.

طول عرض های جغرافیایی برای اوهایو و آلاسکا هستند 40.4173 شمال و 64.2008 شمال . همچنین، طول جغرافیایی برای اوهایو و آلاسکا به ترتیب 82.9071 غربی و 149.4937 غربی هستند.

1. استفاده از فرمول Haversine برای محاسبه فاصله بین دو آدرس

اگر در ریاضیات مهارت دارید، استفاده از Haversine Formula برای شما عالی خواهد بود. اگرچه نتیجه تقریبی به شما می دهد، اما نتیجه بسیار خوبی است.

اول از همه، ما باید فرمول پایه طول قوس را بدانیم. و با استفاده از این فرمول، آن را با فاصله بین دو مکان روی زمین مقایسه می کنیم. فرمول زیر آورده شده است.

S = rθ

S = فاصله بیندو آدرس

r = شعاع زمین

θ = زاویه معرفی شده در مرکز زمین توسط دو آدرس

اما اگر مختصات GPS از دو مکان دارید، باید از فرمول Haversine تعیین کنید. به فرمول Haversine که در زیر نشان داده شده است نگاه کنید.

اگر این را با فرمول طول قوس مقایسه کنید، مانند زیر خواهید بود. تصویر زیر.

بیایید شما را با پارامترهای Haversine Formula آشنا کنیم.

φ ₁ = عرض جغرافیایی مکان اول

φ ₂ = عرض جغرافیایی مکان دوم

ℽ ₁ = طول مکان اول

ℽ ₂ = عرض جغرافیایی رتبه دوم

اکنون، نحوه اعمال این فرمول را در اکسل گام به گام به شما نشان خواهم داد.

مراحل:

• ابتدا، یک سلول برای ذخیره مقدار فاصله ایجاد کنید و فرمول زیر را در سلول C8 تایپ کنید.

=2*6400*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

فرمول از ASIN ، SQRT ، <استفاده می کند توابع 1>SIN و COS . اگر فقط به فرمول Haversine نگاه کنید بسیار ساده است. ما فاصله را بر حسب کیلومتر اندازه گیری می کنیم، بنابراین شعاع زمین را بر حسب کیلومتر می گذاریم که 6400 کیلومتر است. ASIN به سینوس معکوس یا ArcSine اشاره دارد. اگر زوایای پارامتر فرمول Haversine را با فرمول اکسل خود مقایسه کنیم، مادریافت،

₁ = عرض جغرافیایی اوهایو (C5)

₂ = عرض جغرافیایی آلاسکا (C6)

ℽ ₁ = طول جغرافیایی اوهایو ( D5)

ℽ ₂ = عرض جغرافیایی آلاسکا (D6)

• پس از آن، دکمه ENTER را فشار دهید تا فاصله بین اوهایو و آلاسکا در کیلومتر را مشاهده کنید.

• پس از آن، اگر می خواهید فاصله را بر حسب مایل اندازه گیری کنید ، از فرمول زیر در سلول C8 استفاده کنید.

=2*3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

در اینجا، از همان فرمول اکسل استفاده کردیم که برای یافتن فاصله استفاده کردیم. مایل . به همین دلیل، شعاع زمین را بر حسب مایل که 3959 است در نظر می گیریم.

بنابراین می توانید فاصله بین دو آدرس زمین را محاسبه کنید. در اکسل با استفاده از فرمول Haversine .

بیشتر بخوانید: نحوه محاسبه فاصله بین دو مختصات در اکسل (2 روش) <3

2. استفاده از عملکردهای Excel CONCATENATE و SUBSTITUTE برای محاسبه فاصله بین دو آدرس

شما می توانید یک پیوند Google Map برای پیدا کردن فاصله بین دو آدرس با استفاده از Excel ایجاد کنید. توابع 1>CONCATENATE و SUBSTITUTE . بیایید روند زیر را طی کنیم.

مراحل:

• ابتدا فرمول زیر را در C8 تایپ کنید.

=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=", SUBSTITUTE(B5," ","+"),"&daddr=",SUBSTITUTE(B6," ","+"))

این فرمول یک Google Map ایجاد می کند پیوند نحوه سفر از اوهایو به آلاسکا . تابع CONCATENATE آدرس ها را در پیوند اضافه می کند و تابع SUBSTITUTE نام آدرس ها را قرار می دهد.

• بعد، دکمه ENTER را فشار دهید و پیوند Google Map را در C8 خواهید دید.

• پس از آن، از این پیوند در نوار جستجوی اینترنتی خود استفاده کنید و اطلاعات فاصله را در مورد این دو آدرس<2 دریافت خواهید کرد>.

در نهایت، می توانید فاصله بین دو آدرس زمین در اکسل را با اعمال CONCATENATE محاسبه کنید. و توابع SUBSTITUTE .

بیشتر بخوانید: نحوه محاسبه فاصله بین دو شهر در اکسل

3 . استفاده از VBA برای محاسبه فاصله بین دو آدرس در اکسل

یک راه دیگر برای محاسبه فاصله بین دو آدرس می تواند با ایجاد API ( برنامه) باشد. رابط برنامه نویسی ) پیوند داده شده و از آن برای ایجاد یک عملکرد تعریف شده کاربر توسط VBA استفاده کنید. می توانید یک پیوند API در Bing به صورت رایگان ایجاد کنید. برای ایجاد Bing Map API Key خود، اینجا را کلیک کنید .

مراحل:

• ابتدا ، به Developer >> Visual Basic بروید.

• پس از آن، <1 را انتخاب کنید >> Module را برای باز کردن VBA Module وارد کنید.

• بعداً ، کد زیر را در قسمت وارد کنید ماژول VBA . ما در حال ایجاد یک عملکرد تعریف شده کاربر برای محاسبه فاصله در مایل هستیم.

4590

توضیح کد

• ابتدا، ما عملکرد را DistanceInMiles نامگذاری کردیم. ما همچنین 3 پارامتر را وارد کردیم: First_Location به عنوان رشته، Final_Location به عنوان رشته و Target_Value به عنوان رشته .
• پس از آن، را اعلام کردیم. Initial_Point ، Ending_Point ، Distance_Unit و Outout_Url as String ; Setup_HTTP به عنوان Object .
• بعداً، Initial_Point را به عنوان شروع پیوند URL ، قرار دادیم. Ending_Point به عنوان Destination و Distance_Unit to Miles .
• پس از آن، پارامترهای لازم را برای ایجاد رابطه بین <1 خود تنظیم می کنیم>VBA کد و API
• در نهایت، عملکرد تعریف شده کاربر خود را ایجاد کردیم.

• پس از آن ، با پیروی از همان رویه ها، یک عملکرد تعریف شده کاربر برای یافتن فاصله در کیلومتر ایجاد کردیم.

شما می توانید ببینید، ما فقط Distance_Unit را به کیلومتر تغییر دادیم.

• پس از آن، در تصویر زیر، می توانید API <2 را ببینید>کلید در سلول C8 .

• پس از آن، فرمول زیر را در سلول C8 تایپ کنید.

=DistanceInMiles(E5,E6,C8)

• بعدی، ENTER <2 را فشار دهید> را فشار دهید و خواهید دید فاصله بین اوهایو و آلاسکا در مایل .

• پس از آن، از فرمول زیر برای دیدن فاصله در کیلومتر استفاده کنید.

=DistanceInKM(E5,E6,C8)

بنابراین، می توانید فاصله بین دو آدرس را با استفاده از کلید VBA و API محاسبه کنید.

بیشتر بخوانید: نحوه محاسبه فاصله رانندگی بین دو آدرس در اکسل

چیزهایی که باید به خاطر بسپارید

• این را در نظر داشته باشید، باید مختصات GPS از این حالت را در داده‌ها قرار دهید زیرا از اینترنت برای یافتن فاصله استفاده می‌کنید. از آنجایی که حالت ها غرب به خط نصف النهار هستند، هر دو طول جغرافیایی منفی خواهند بود.

بخش تمرین

در این بخش مجموعه داده های این مقاله را در اختیار شما قرار می دهم تا بتوانید این روش ها را به تنهایی تمرین کنید.

نتیجه گیری

کافی است که بگوییم، پس از خواندن این مقاله، روش های بسیار موثری را برای محاسبه فاصله بین دو آدرس در اکسل یاد خواهید گرفت. اگر روش یا سوال یا بازخورد بهتری در مورد این مقاله دارید، لطفاً آنها را در کادر نظر به اشتراک بگذارید. این به من کمک می کند مقالات آینده ام را غنی کنم. برای سؤالات بیشتر، لطفاً از وب سایت ما دیدن کنید ExcelWIKI.com .