الـعيدروس قام بنشر أغسطس 24, 2013 قام بنشر أغسطس 24, 2013 اي تكست بوكس ؟ هل تقصد مربع الإختيار اذا مربع الاختيار الذي تقصد ماهو الشرط البحث اي رقم يبداء بالرقم المعطى او مطابق للقيمه فقط ؟ استبدل السطر التالي If Application.WorksheetFunction.Search(M, q, 1) = 1 And _ IIf(CheckBox1, q.Text = q.Offset(0, -6).Text & "/" & Mm Or q.Text) Then بهذا If Application.WorksheetFunction.Search(M, q, 1) = 1 And _ q.Offset(0, -6).Text & "/" & Mm Or q.Text Then
Nadia Khalil قام بنشر أغسطس 24, 2013 الكاتب قام بنشر أغسطس 24, 2013 أخي عباد الكود لا يعمل - حاول أن تقوم بالبحث عن الرقم (10) ولاحظ النتائج
الـعيدروس قام بنشر أغسطس 24, 2013 قام بنشر أغسطس 24, 2013 (معدل) جربت ويعمل بشكل طبيعي تم تعديل أغسطس 24, 2013 بواسطه عباد
بن علية حاجي قام بنشر أغسطس 25, 2013 قام بنشر أغسطس 25, 2013 السلام عليكم ورحمة الله أختي الكريمة نادية، لست أدري ماذا يحدث معك فالملفان المرفقان في ردي وفي رد الأخ الكريم عباد مختلفان فقط بالإضافة الجديدة CheckBox. المهم قمت بالتعديل على ملف أخي عباد بحذف التكست بوكس الثاني (وكل الأكواد المتعلقة به) حسب الطلب الجديد (الذي طُلب سابقا إضافته)... أرجو هذه المرة أن يعمل الملف جيدا... أخوك بن علية الملف المرفق : Nadia_Offic8_b.rar
Nadia Khalil قام بنشر أغسطس 25, 2013 الكاتب قام بنشر أغسطس 25, 2013 أخي عباد لو لاحظت في الصورة التي قمت أنت بارفاقها - النتائج ليست لها علاقة بالبحث هناك 2 نتيجة ليس لهما علاقة بالبحث حيث أنني اقوم بالبحث عن سيريال آخره الرقم 10 أخي بن علية - فعلا ملفك الأول لا يعمل عندي بالفعل هناك بعض النتائج لا تظهر مثل (91 و 44 و 258) وقد لاحظت أن أي نتائج لا يوجد لها بديل (أي نتائج مفردة) لا تظهر ف التكست بوكس مرفقك الأخير الخاص بأخي عباد يعمل ولكن نفس المشكلة - تظهر نتائج ليس لها علاقة بقيمة البحث كما في الصورة الأخيرة جزاكم الله خيرا
بن علية حاجي قام بنشر أغسطس 25, 2013 قام بنشر أغسطس 25, 2013 (معدل) السلام عليكم ورحمة الله أخي عباد لو لاحظت في الصورة التي قمت أنت بارفاقها - النتائج ليست لها علاقة بالبحث هناك 2 نتيجة ليس لهما علاقة بالبحث حيث أنني اقوم بالبحث عن سيريال آخره الرقم 10 أخي بن علية - فعلا ملفك الأول لا يعمل عندي بالفعل هناك بعض النتائج لا تظهر مثل (91 و 44 و 258) وقد لاحظت أن أي نتائج لا يوجد لها بديل (أي نتائج مفردة) لا تظهر ف التكست بوكس مرفقك الأخير الخاص بأخي عباد يعمل ولكن نفس المشكلة - تظهر نتائج ليس لها علاقة بقيمة البحث كما في الصورة الأخيرة جزاكم الله خيرا أختي الكريمة نادية، الظاهر أن المشكلة عندك، فالملفات كلها تشتغل جيدا، قمت بتحضير ملفين تنفيذيين الأول "ملف1" هو تطبيق على ملفي الأول Nadia_Offic8 والثاني "ملف2" هو تطبيق على ملفي الثاني (تعديل ملف أخي عباد) Nadia_Offic8_b... وتلاحظين أن في كلا الملفين عملية البحث تأتي بالمطلوب... والله أعلى وأعلم أخوك بن علية الملف المرفق : Demo.rar تم تعديل أغسطس 25, 2013 بواسطه بن علية حاجي
Nadia Khalil قام بنشر أغسطس 25, 2013 الكاتب قام بنشر أغسطس 25, 2013 أخي بن علية : بالنسبة للملف الأول فقد جربته فعلا ولكن لا يعمل عندي ولا أدري ما السبب الملف الثاني يعمل جيدا ولكن أنظر الي الصورة في آخر مشاركة لأخونا عباد ستجد انه عند البحث عن القيمة (10) تظهر نتائج غير متطابقة كـ (253) و (257) آسفة ع الازعاج - أنا عارفة اني متعبة
بن علية حاجي قام بنشر أغسطس 25, 2013 قام بنشر أغسطس 25, 2013 السلام عليكم ورحمة الله أختي الكريمة نادية، إن الأخ عباد قدم -على ما أعتقد- صورة لتطبيق عملية البحث على نسخة الملف في الرد رقم 21# (دون CheckBox أو قيمته تساوي 0) لذلك عملية البحث عن العدد 10 أعطت جميع البيانات التي رقم ICn يحوي العدد 10 سواء في رقم اليوم أو رقم الشهر أو رقم السنة أو الرقم الذي ينتهي به ICn... وأرقام ICn التي استخرجت بياناتها هي : 257/2010/10/24 (وهنا الرقم 10 موجود في رقم الشهر ورقم السنة) - 253/2012/05/10 (هنا العدد 10 موجود في رقم اليوم) - 10/2012/01/04 (والعدد 10 موجود في نهاية رقم ICn) وهذا سبب ظهور هذه البيانات... بالنسبة لعدم عمل الملفات بطريقة صحيحة في جهازك فهذا ليس لي فيه أي تفسير... أخوك بن علية
Nadia Khalil قام بنشر أغسطس 26, 2013 الكاتب قام بنشر أغسطس 26, 2013 أخي بن علية - الكود يعمل تمام التمام فحصت الكود وتوصلت للخطأ وهو يعمل الآن بشكل مبهر عند فحص الكود بتاعك وجدت أنه يقارن بين الـ Icn وبين تاريخ الاستلام والخطأ كان في تغير فورمات التاريخ عن فورمات Ic هل من الممكن عمل كود يقوم عند فتح الملف باجبار الاكسل على فورمات (d/m/yyyy) في العواميد B & J & K & L
الـعيدروس قام بنشر أغسطس 26, 2013 قام بنشر أغسطس 26, 2013 هل من الممكن عمل كود يقوم عند فتح الملف باجبار الاكسل على فورمات (d/m/yyyy) في العواميد B & J & K & L جربى الكود التالي في حدث Thisworkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Set Sh = ActiveSheet If Not Intersect(Target, Range("B:B,J:J,K:K,L:L")) Is Nothing Then If IsDate(Target) Then Target = Format(Target, "d/m/yyyy") End If End Sub
Akram Galal قام بنشر سبتمبر 2, 2013 قام بنشر سبتمبر 2, 2013 الأساتذة الأفاضل أ/ بن علية أ/ ضاحي الغريب أ/ عباد مجهودات رائعة وجزاكم الله خيرا وجعله في ميزان حسناتكم
زياد عبد الجليل قام بنشر أغسطس 8, 2018 قام بنشر أغسطس 8, 2018 (معدل) السلام على الجميع و بالاخص استاذنا القدير الاستاذ بن علية هل يمكن تعديل الكود بوضع نسخة لكل ورقة على حدة ووضعهم داخل مجلد 1- لدي استفسار هل عند اجراء اي تعديل في النسخة هل هذا سيؤثر على النسخة الاصلية . 2-اريد ادراج كود الاستاذ بن علية داخل الفولرم لعمل نسخ لكل الاوراق الموجودة بالمصنف حيث كل ورقة تكون مستقلة في مصنف ووضعهم كلهم داخل مجلد ولكم مني جزيل الشكر تم تعديل أغسطس 8, 2018 بواسطه زياد عبد الجليل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.