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

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

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

شكل النتائج المتوقعة : المسافة بين العنوانين بالميل ( رقم ) اين اريد النتائج المتوقعة : فى العمود F او اضافة عمود جديد معدل وبه تعديل على الكود المرفق او كود جديد امثلة العنوان الاول: 21 spectrum pointe dr 103 lake forest ca العنوان الثاني : 1 ACORN RDG,,RANCHO SANTA MARGARITA,CA,92688,5508 المسافة بينهم 11.05 ميل من خلال النت وظيفة الكود انه بيجيب المسافة من جوجل ماب اوتوماتيك بالمتر وانا حولتها للميل بالمعادلات بس الكود ده بيهنج بعد عدد من العناوين مثلا 3000 عنوان وانا عندي 20000 مش عارف اعمل اية بقي

العنوان المراد حساب المسافة منة بالعمود B باقي العناوين بالعمود C العمود D موضح فية الـ ZIP CODE لكل عنوان بالعمود C العمود E موضح بة المسافة بين العنوان الأول والثاني من خلال البحث اليدوي بالإنترنت العمود F موضح بة المسافة بإستخدام الكود المرفق ## انا مش فاهم يعني اية تغيير اسم الظهور بالغة العربية ارجو ان الموضوع يكون كدة بقي اوضح وارجو اني الاقي المساعدة من حضراتكم

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

السلام عليكم ورحمة الله وبركاتة انا عندي شيت اكسل فية اكتر من عشرين الف عنوان وعايز المسافة بين عنوان معين وكل العناوين الـ 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 شكرا