معادلة اكسل هل من الممكن ان تتحول الى اكسس (استعلام تحديث)

[MOMEN AHMED]

اعزائي مشرفي واعضاء المنتدى الذي اضع له كل الاحترام والتقدير في شخصهم الكريم

ترددت كثيرا اين اضع موضوعي في قسم الاكسل ام في قسم الاكسس ولكن وضعتها هنا لان استفساري عن الاكسس

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

المعادله بالاكسل

IFERROR(LOOKUP(1;0/MATCH("*"&Sheet2!$A$2:$A$204&"*";OFFSET(C2;;;COUNTIF(F:F;F2));0);Sheet2!$B$2:$B$204);"")

ووضعت في المرفقات الاكسل

المطلوب تحويل المعادلة من الاكسل الى الاكسس

شرح مبسط للفكره

ان sheet2 به الكلمهات الدلالية داخل العناوين وامام كل كلمه اسم المحافظه التي سوف تجلبها المعادلة

sheet1 به العناوين التي يراد البحث بداخلها عن الكلمات الدلاليه 

 

ارجوا المساعده جزاكم الله خيرا لان الاكسل كما تعلمون ياخذ وقت طويل جدا في التحديث اما الاكسس فيمكن اجراء هذه المعادله في بضع ثوان اذا كانت كمية العناوين هائله 

معادله تكويد سريعه.xls

[husamwahab]

تفضل هذه المحاولة ارجو ان تكون موفقة

Database1.rar

[MOMEN AHMED]

مجهود ممتاز ومشكور على الرد والاهتمام 

بس هل ممكن شرح مبسط لفكرة المديول وفكرة الاستعلام

 

وهل لو في اكثر من حقل في sheet2 يظهر لي نفس النتيجة لاني حابب اضيف حقل(اسم الشارع) حقل(اسم المنطقة) حقل (اسم المحافظه) والناتج كود معين

[MOMEN AHMED]

المديول يبحث عن كلمه واحده فقط في sheet2 انا جربت يكون اسم شارع مكون من اكثر من كلمه ولكن لم يكون هناك نتائج هل في جزء معين يتم التعديل عليه ليكون هناك البحث عن اكثر من كلمه في الحقل وهل من الممكن الشرط يتحقق بالبحث في اكثر من حقل؟

 

[د.كاف يار]

23 ساعات مضت, MOMEN AHMED said:

اعزائي مشرفي واعضاء المنتدى الذي اضع له كل الاحترام والتقدير في شخصهم الكريم

ترددت كثيرا اين اضع موضوعي في قسم الاكسل ام في قسم الاكسس ولكن وضعتها هنا لان استفساري عن الاكسس

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

المعادله بالاكسل

IFERROR(LOOKUP(1;0/MATCH("*"&Sheet2!$A$2:$A$204&"*";OFFSET(C2;;;COUNTIF(F:F;F2));0);Sheet2!$B$2:$B$204);"")

ووضعت في المرفقات الاكسل

المطلوب تحويل المعادلة من الاكسل الى الاكسس

شرح مبسط للفكره

ان sheet2 به الكلمهات الدلالية داخل العناوين وامام كل كلمه اسم المحافظه التي سوف تجلبها المعادلة

sheet1 به العناوين التي يراد البحث بداخلها عن الكلمات الدلاليه 

 

ارجوا المساعده جزاكم الله خيرا لان الاكسل كما تعلمون ياخذ وقت طويل جدا في التحديث اما الاكسس فيمكن اجراء هذه المعادله في بضع ثوان اذا كانت كمية العناوين هائله 

معادله تكويد سريعه.xls 515 kB · 6 downloads

ياليت توصف مهمة هذا الكود عشان نتوصل لحل

و تفضل هذه المحاولة

 

 

تكويد.accdb

[husamwahab]

1 ساعه مضت, MOMEN AHMED said:

بس هل ممكن شرح مبسط لفكرة المديول وفكرة الاستعلام

 

الكود يقوم بتقسيم النص الى كلمات ويحجزها في مصفوفة ثم يقارن وحود كلمة او كلمتين متتاليتين في حقل جدول المقارنة 

 

1 ساعه مضت, MOMEN AHMED said:

وهل لو في اكثر من حقل في sheet2 يظهر لي نفس النتيجة لاني حابب اضيف حقل(اسم الشارع) حقل(اسم المنطقة) حقل (اسم المحافظه) والناتج كود معين

نعم ممكن لكن الافضل مراعاة عدم تطابق بيانات الحقول فكلما كانت البيانات فريدة (غير مكررة) كلما كانت النتائج ادق

 

1 ساعه مضت, MOMEN AHMED said:

المديول يبحث عن كلمه واحده فقط

يبحث لحد كلمتين لانه لو تلاحظ النتائج وجود كفر الشيخ

نعم بعض النتائج لا تظهر وذلك لوجود مشكلة في النص جرب ان تكتب كلمات مثل البحر الاحمر وغيرها ولاحظ النتيجة

 

1 ساعه مضت, MOMEN AHMED said:

هل في جزء معين يتم التعديل عليه ليكون هناك البحث عن اكثر من كلمه

نعم يتم اضافة شرط ثالث للكود لكن للامانة لم اجرب

ElseIf Nz(DLookup("Column1", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'"), 0) <> 0 Then
      FnSearch = DLookup("Column2", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'")
      Exit For

 وعذرا للاطالة

[MOMEN AHMED]

انا منبهر بحضرتك وجزاك الله خير وجعله الله في ميزان حسناتك

اقتباس

نعم ممكن لكن الافضل مراعاة عدم تطابق بيانات الحقول فكلما كانت البيانات فريدة (غير مكررة) كلما كانت النتائج ادق

انسخ نفس المعادلة واضيف فقط اسماء الحقول المكتوب فيها الكلمات صح كده؟؟؟

[MOMEN AHMED]

4 ساعات مضت, د.كاف يار said:

و تفضل هذه المحاولة

 

اكثر من ممتازه بارك الله فيك

 

[husamwahab]

8 ساعات مضت, MOMEN AHMED said:

انا منبهر بحضرتك وجزاك الله خير وجعله الله في ميزان حسناتك

انا بخدمتك استاذي العزيز اما الانبهار فيمكن  تجاوزه بمجرد النظر الى مشاركات اساتذتنا الاجلاء وما يقدموه من افكار وحلول امثال استاذ جعفر و د. كاف يار واستاذ بارنا واستاذ صالح وغيرهم الكثير الكثير 

وما انا سوى تلميذ صغير بمدرستهم يبحث عن اكواد هنا وهناك لمحاولة المساعدة لبعض الاعضاء الاعزاء

 

8 ساعات مضت, MOMEN AHMED said:

انسخ نفس المعادلة واضيف فقط اسماء الحقول المكتوب فيها الكلمات صح كده؟؟؟

نعم صحيح مه مراعاة ما يجب تغييره من اسماء المتغيرات وغيره وهناك طريقة اكثر مرونة بجعل نفس المعادلة تتعامل مع اكثر من جدول وحقل

[MOMEN AHMED]

في ٨‏/٩‏/٢٠٢١ at 12:10, husamwahab said:

الكود يقوم بتقسيم النص الى كلمات ويحجزها في مصفوفة ثم يقارن وحود كلمة او كلمتين متتاليتين في حقل جدول المقارنة 

 

نعم ممكن لكن الافضل مراعاة عدم تطابق بيانات الحقول فكلما كانت البيانات فريدة (غير مكررة) كلما كانت النتائج ادق

 

يبحث لحد كلمتين لانه لو تلاحظ النتائج وجود كفر الشيخ

نعم بعض النتائج لا تظهر وذلك لوجود مشكلة في النص جرب ان تكتب كلمات مثل البحر الاحمر وغيرها ولاحظ النتيجة

 

نعم يتم اضافة شرط ثالث للكود لكن للامانة لم اجرب

ElseIf Nz(DLookup("Column1", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'"), 0) <> 0 Then
      FnSearch = DLookup("Column2", "Sheet2", "Column1='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'")
      Exit For

 وعذرا للاطالة

السلام عليكم

عزيزي husamwahab

اعتذر عن التاخير في التجربه ولكن دواعي العمل ارادت ان يكون البحث عن ثلاث كلمات وليس كلمتين فقط

تم اضافه الكود ولكن يخرج لي error ارجوا من حضرتك التجربه واخباري اين الخطأ

واريد حضرتك تعلمني اذا زودنا في sheet2 اكثر من حقل Column1 و Column2 وColumn3 والنتيجه تكون من Column4 كيف يتم التعديل في المديول
 

وجزاك الله خير الجزاء

[MOMEN AHMED]

ارجوا ان اجد اجابه