اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

المديول يبحث عن كلمه واحده فقط في 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

  • Like 5
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

اقتباس

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

  • 3 months later...
في ٨‏/٩‏/٢٠٢١ 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 كيف يتم التعديل في المديول
 

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

رابط هذا التعليق
شارك

  • 3 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information