ابراهيم سعيد النجار قام بنشر يناير 28, 2016 قام بنشر يناير 28, 2016 السلام عليكم ورحمة الله وبركاتة انا عندي شيت اكسل فية اكتر من عشرين الف عنوان وعايز المسافة بين عنوان معين وكل العناوين الـ 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 شكرا
قلم-الاكسل(عبدالعزيز) قام بنشر يناير 28, 2016 قام بنشر يناير 28, 2016 (معدل) الاخ ابراهيم تكرر الموضوع اكثر من مرة حاول اذا كان الاتصال بطيء عندك وكتبت الموضوع وعملت اضافة تنتظر 5 دقائق ثم اعمل refresh للموقع وادخل وشوف هل موضوعك موجود ام لا هناك عندك خطأ كاتب الفيل وانت تقصد الفايل يعني الملف بالعربي لو كتبته فايل او ملف بس فيل يمكن لما يشوفها الواحد اول مرة بيظن فيل في الموقع ههههههههههههههههههههههههههههه تم تعديل يناير 28, 2016 بواسطه قلم-الاكسل(عبدالعزيز)
ابراهيم سعيد النجار قام بنشر يناير 28, 2016 الكاتب قام بنشر يناير 28, 2016 اسف اصل دي اول مشاركة ليا فى المنتدي واسف على الاخطاء اللغوية
ياسر خليل أبو البراء قام بنشر يناير 28, 2016 قام بنشر يناير 28, 2016 أخي الفاضل إبراهيم النجار يرجى تغيير اسم الظهور للغة العربية كما يرجى مزيد من التوضيح ..قم بضرب مثال أو مثالين للتوضيح وأين العنوان المعين المطلوب حساب المسافة بينه وبين العناوين الأخرى ؟؟ وأين العناوين الأخرى في أي عمود تقع ؟؟ وما هو العمود المطلوب حساب المسافة على أساسه؟ الملف يحتاج للتوضيح والتفصيل لتجد استجابة من قبل إخوانك بالمنتدى تقبل تحياتي
ابراهيم سعيد النجار قام بنشر يناير 28, 2016 الكاتب قام بنشر يناير 28, 2016 20 minutes ago, ياسر خليل أبو البراء said: أخي الفاضل إبراهيم النجار يرجى تغيير اسم الظهور للغة العربية كما يرجى مزيد من التوضيح ..قم بضرب مثال أو مثالين للتوضيح وأين العنوان المعين المطلوب حساب المسافة بينه وبين العناوين الأخرى ؟؟ وأين العناوين الأخرى في أي عمود تقع ؟؟ وما هو العمود المطلوب حساب المسافة على أساسه؟ الملف يحتاج للتوضيح والتفصيل لتجد استجابة من قبل إخوانك بالمنتدى تقبل تحياتي العنوان المراد حساب المسافة منة بالعمود B باقي العناوين بالعمود C العمود D موضح فية الـ ZIP CODE لكل عنوان بالعمود C العمود E موضح بة المسافة بين العنوان الأول والثاني من خلال البحث اليدوي بالإنترنت العمود F موضح بة المسافة بإستخدام الكود المرفق ## انا مش فاهم يعني اية تغيير اسم الظهور بالغة العربية ارجو ان الموضوع يكون كدة بقي اوضح وارجو اني الاقي المساعدة من حضراتكم
ياسر خليل أبو البراء قام بنشر يناير 28, 2016 قام بنشر يناير 28, 2016 تمام ممكن شكل النتائج المتوقعة ؟ وأين تريد النتائج المتوقعة؟ كما يرجى ضرب مثال أو اثنين لتتضح الصورة أكثر بالنسبة لتغيير اسم الظهور بدلاً من إبراهيم النجار باللغة الإنجليزية .. غيره للغة العربية ...يمكنك الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى تقبل تحياتي
ابراهيم سعيد النجار قام بنشر يناير 28, 2016 الكاتب قام بنشر يناير 28, 2016 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 مش عارف اعمل اية بقي
ابراهيم سعيد النجار قام بنشر يناير 29, 2016 الكاتب قام بنشر يناير 29, 2016 ما فيش حد عايز يساعدني فى الموضوع ده ولا اية يا جماعة !!!!!
ياسر خليل أبو البراء قام بنشر يناير 29, 2016 قام بنشر يناير 29, 2016 أخي الكريم الدالة المعرفة التي تستخدمها تعتمد على الاتصال بالانترنت وأعتقد أنه كلما كانت سرعة الانرنت عالية كلما تم التنفيذ بشكل سريع .. ومن الطبيعي أن يستغرق وقت مع هذا الكم الهائل من البيانات ... وحتى لو تم استخدام كود آخر ستكون نفس النتيجة تقريباً لأن الكود سيعتمد على الانترنت في استخراج النتائج المتوقعة تقبل تحياتي
ياسر خليل أبو البراء قام بنشر يناير 30, 2016 قام بنشر يناير 30, 2016 أخي الكريم بعد عدة محاولات للبحث هنا وهناك ..يمكنني عمل محاولة بهذا الشكل ..الكلام نظري وما زال تحت التطبيق يمكن الحصول على خطوط الطول والعرض بدالة معرفة سأقدمها لك فيما بعد اعتماداً على الكود ZIP ثم عمل معادلة تحسب المسافة بالميل كما طلبت .. اعتماداً على النتائج التي تم الحصول عليها من خطوط الطول والعرض .. رجاءً حدد كود Zip لكل من المكان البداية والمكان الهدف لبدء المحاولات .. تقبل تحياتي
ابراهيم سعيد النجار قام بنشر يناير 30, 2016 الكاتب قام بنشر يناير 30, 2016 (معدل) 4 hours ago, ياسر خليل أبو البراء said: أخي الكريم بعد عدة محاولات للبحث هنا وهناك ..يمكنني عمل محاولة بهذا الشكل ..الكلام نظري وما زال تحت التطبيق يمكن الحصول على خطوط الطول والعرض بدالة معرفة سأقدمها لك فيما بعد اعتماداً على الكود ZIP ثم عمل معادلة تحسب المسافة بالميل كما طلبت .. اعتماداً على النتائج التي تم الحصول عليها من خطوط الطول والعرض .. رجاءً حدد كود Zip لكل من المكان البداية والمكان الهدف لبدء المحاولات .. تقبل تحياتي اولا الف شكر لحضرتك على المحاولة ثانيا حضرتك فتحتلي مجال للتفكير وهو خطوط الطول والعرض مثلا : zip مكان البداية ( 92630 ) zip مكان الهدف ( 92688,5508 ) الف شكر لمحاولات حضرتك وربنا يوفقك وتلاقي الطريقة الصحيحة تم تعديل يناير 30, 2016 بواسطه ابراهيم سعيد النجار
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.