مشكلة فى كود لمعرفة المسافة بين عنوانين

[ابراهيم سعيد النجار]

السلام عليكم ورحمة الله وبركاتة

انا عندي شيت اكسل فية اكتر من عشرين الف عنوان 

وعايز المسافة بين عنوان معين وكل العناوين الـ 20000

انا بحثت كتير فى الموضوع ولقيت مواقع اجنبية بتتكلم عن الموضوع دة وبالفعل لقيت كود بيعمل كدة ونسختة فى الشيت بس مش عارف لية بعد عدد من العناوين الكود هنج 

فياريت ياجماعةحد يفيدني فى الموضوع ده 
لان خبرتي فى موضوع الـ vba صفر بصراحة 

او حد يقولي كود جديد تاني ينفعني فى المشكلة دي

شكراً

 

انا عملت نسخة من الفيل الاصلي لان الفيل الاصلي كبير جدا ورفعتة على دروب بوكس علشان مش عارف اعمل اتتاتش للفيل بصراحة

https://www.dropbox.com/s/c5laq7i9vxwu74e/Book1.xlsx?dl=0
والكود :

'Calculate Google Maps distance between two addresses
Public Function GetDistance(start As String, dest As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins="
    secondVal = "&destinations="
    lastVal = "&mode=car&language=pl&sensor=false"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")
    If InStr(objHTTP.responseText, """distance"" : {") = 0 Then GoTo ErrorHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = """value"".*?([0-9]+)": regex.Global = False
    Set matches = regex.Execute(objHTTP.responseText)
    tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
    GetDistance = CDbl(tmpVal)
    Exit Function
ErrorHandl:
    GetDistance = -1
End Function
 

 

شكرا 

[قلم-الاكسل(عبدالعزيز)]

الاخ ابراهيم تكرر الموضوع اكثر من مرة

حاول اذا كان الاتصال بطيء عندك وكتبت  الموضوع وعملت اضافة تنتظر 5 دقائق ثم اعمل refresh   للموقع  وادخل وشوف هل موضوعك موجود ام لا

هناك عندك خطأ كاتب الفيل وانت تقصد الفايل يعني الملف بالعربي لو كتبته فايل او ملف بس فيل يمكن لما يشوفها الواحد اول مرة بيظن فيل في الموقع ههههههههههههههههههههههههههههه

 

 

تم تعديل يناير 28, 2016 بواسطه قلم-الاكسل(عبدالعزيز)

[ابراهيم سعيد النجار]

اسف اصل دي اول مشاركة ليا فى المنتدي 
واسف على الاخطاء اللغوية 

[ياسر خليل أبو البراء]

أخي الفاضل إبراهيم النجار

يرجى تغيير اسم الظهور للغة العربية كما يرجى مزيد من التوضيح ..قم بضرب مثال أو مثالين للتوضيح

وأين العنوان المعين المطلوب حساب المسافة بينه وبين العناوين الأخرى ؟؟ وأين العناوين الأخرى في أي عمود تقع ؟؟ وما هو العمود المطلوب حساب المسافة على أساسه؟

الملف يحتاج للتوضيح والتفصيل لتجد استجابة من قبل إخوانك بالمنتدى

تقبل تحياتي

[ابراهيم سعيد النجار]

20 minutes ago, ياسر خليل أبو البراء said:

أخي الفاضل إبراهيم النجار

يرجى تغيير اسم الظهور للغة العربية كما يرجى مزيد من التوضيح ..قم بضرب مثال أو مثالين للتوضيح

وأين العنوان المعين المطلوب حساب المسافة بينه وبين العناوين الأخرى ؟؟ وأين العناوين الأخرى في أي عمود تقع ؟؟ وما هو العمود المطلوب حساب المسافة على أساسه؟

الملف يحتاج للتوضيح والتفصيل لتجد استجابة من قبل إخوانك بالمنتدى

تقبل تحياتي

العنوان المراد حساب المسافة منة بالعمود B

باقي العناوين بالعمود C

العمود D موضح فية الـ ZIP CODE لكل عنوان بالعمود C

العمود E موضح بة المسافة بين العنوان الأول والثاني من خلال البحث اليدوي بالإنترنت

العمود F موضح بة المسافة بإستخدام الكود المرفق 

## انا مش فاهم يعني اية تغيير اسم الظهور بالغة العربية 

ارجو ان الموضوع يكون كدة بقي اوضح وارجو اني الاقي المساعدة من حضراتكم

[ياسر خليل أبو البراء]

تمام

ممكن شكل النتائج المتوقعة ؟ وأين تريد النتائج المتوقعة؟

كما يرجى ضرب مثال أو اثنين لتتضح الصورة أكثر

بالنسبة لتغيير اسم الظهور بدلاً من إبراهيم النجار باللغة الإنجليزية .. غيره للغة العربية ...يمكنك الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى

تقبل تحياتي

[ابراهيم سعيد النجار]

5 minutes ago, ياسر خليل أبو البراء said:

تمام

ممكن شكل النتائج المتوقعة ؟ وأين تريد النتائج المتوقعة؟

كما يرجى ضرب مثال أو اثنين لتتضح الصورة أكثر

بالنسبة لتغيير اسم الظهور بدلاً من إبراهيم النجار باللغة الإنجليزية .. غيره للغة العربية ...يمكنك الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى

تقبل تحياتي

شكل النتائج المتوقعة : المسافة بين العنوانين بالميل ( رقم )

اين اريد النتائج المتوقعة : فى العمود F او اضافة عمود جديد معدل وبه تعديل على الكود المرفق او كود جديد

امثلة

العنوان الاول: 21 spectrum pointe dr 103 lake forest ca

العنوان الثاني : 1 ACORN RDG,,RANCHO SANTA MARGARITA,CA,92688,5508

المسافة بينهم 11.05 ميل من خلال النت 

وظيفة الكود انه بيجيب المسافة من جوجل ماب اوتوماتيك بالمتر 

وانا حولتها للميل بالمعادلات 

بس الكود ده بيهنج بعد عدد من العناوين مثلا 3000 عنوان وانا عندي 20000 مش عارف اعمل اية بقي

 

[ابراهيم سعيد النجار]

ما فيش حد عايز يساعدني فى الموضوع ده ولا اية يا جماعة !!!!!

[ياسر خليل أبو البراء]

أخي الكريم

الدالة المعرفة التي تستخدمها تعتمد على الاتصال بالانترنت وأعتقد أنه كلما كانت سرعة الانرنت عالية كلما تم التنفيذ بشكل سريع .. ومن الطبيعي أن يستغرق وقت مع هذا الكم الهائل من البيانات ... وحتى لو تم استخدام كود آخر ستكون نفس النتيجة تقريباً لأن الكود سيعتمد على الانترنت في استخراج النتائج المتوقعة

تقبل تحياتي

[ياسر خليل أبو البراء]

أخي الكريم

بعد عدة محاولات للبحث هنا وهناك ..يمكنني عمل محاولة بهذا الشكل ..الكلام نظري وما زال تحت التطبيق

يمكن الحصول على خطوط الطول والعرض بدالة معرفة سأقدمها لك فيما بعد اعتماداً على الكود ZIP ثم عمل معادلة تحسب المسافة بالميل كما طلبت .. اعتماداً على النتائج التي تم الحصول عليها من خطوط الطول والعرض ..

رجاءً حدد كود Zip لكل من المكان البداية والمكان الهدف لبدء المحاولات ..

تقبل تحياتي

[ابراهيم سعيد النجار]

4 hours ago, ياسر خليل أبو البراء said:

أخي الكريم

بعد عدة محاولات للبحث هنا وهناك ..يمكنني عمل محاولة بهذا الشكل ..الكلام نظري وما زال تحت التطبيق

يمكن الحصول على خطوط الطول والعرض بدالة معرفة سأقدمها لك فيما بعد اعتماداً على الكود ZIP ثم عمل معادلة تحسب المسافة بالميل كما طلبت .. اعتماداً على النتائج التي تم الحصول عليها من خطوط الطول والعرض ..

رجاءً حدد كود Zip لكل من المكان البداية والمكان الهدف لبدء المحاولات ..

تقبل تحياتي

اولا الف شكر لحضرتك على المحاولة 
ثانيا حضرتك فتحتلي مجال للتفكير وهو خطوط الطول والعرض 
مثلا : zip مكان البداية (  92630 )
zip مكان الهدف (  92688,5508 )

الف شكر لمحاولات حضرتك وربنا يوفقك وتلاقي الطريقة الصحيحة

تم تعديل يناير 30, 2016 بواسطه ابراهيم سعيد النجار