FTHLLA قام بنشر فبراير 15, 2009 قام بنشر فبراير 15, 2009 عندى بيانات كثيرة فى عمود واحد فاريد بدل من البحث اريد عمل كود لتصفية البيانات او ميكرو للتصفية بناء على يبدا ب بمعنى اخر الحروف الاولى بحيث كلما زودت حرف كلما كانت التصفية اكثر
أبوســـارة1973 قام بنشر فبراير 15, 2009 قام بنشر فبراير 15, 2009 ارفق الملف ووضح طلبك فيه وإن شاء الله سوف تحصل على طلبك
FTHLLA قام بنشر مارس 5, 2009 الكاتب قام بنشر مارس 5, 2009 ارفق الملف ووضح طلبك فيه وإن شاء الله سوف تحصل على طلبك ارجو المساعدة فى تصحيح هذا الكود او هذا الميكرو ____.rar
أبوســـارة1973 قام بنشر مارس 5, 2009 قام بنشر مارس 5, 2009 (معدل) اكتب معيار البحث في الخلية الخضراء ثم اضغط زر ( بحث ) إذا كنت تريد الأسماء التي تبدأ باسم ( محمد ) فاكتب في الخلية الخضراء محمد ثم علامة (*) وإذا كنت تريد الأسماء التي تنتهي باسم محمد فاكتب العلامة (*) ثم كلمة (محمد) وإذا كنت تريد الأسماء التي تبدأ بحرف ( م ) فاكتب ( م ) ثم العلامة (*) بدون مسافة وهكذا .... هل هذا هو المطلوب ؟ abusarah73_17.rar تم تعديل مارس 5, 2009 بواسطه abusarah73
احمدزمان قام بنشر مارس 8, 2009 قام بنشر مارس 8, 2009 السلام عليكم اخي ابو سارة حل جميل و كلام صحيح 100% ولكن انا فهمت السؤال بشكل مختلف اخي فتح الله وهذا الحل المرفق باستخدام التصفية التلقائية وتم وضعة في حدث تغيير الصفحة بحيث بمجرد ادخال اول احرف و الضغط على انتر تظهر النتائج المطلوبة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Range("A1:A2222").AutoFilter Field:=1, Criteria1:=[a1] & "*" End If End Sub آمل ان يكون هذا المطلوب مع التحية AY__________________________.rar 1
FTHLLA قام بنشر مارس 8, 2009 الكاتب قام بنشر مارس 8, 2009 السلام عليكم اخي ابو سارة حل جميل و كلام صحيح 100% ولكن انا فهمت السؤال بشكل مختلف اخي فتح الله وهذا الحل المرفق باستخدام التصفية التلقائية وتم وضعة في حدث تغيير الصفحة بحيث بمجرد ادخال اول احرف و الضغط على انتر تظهر النتائج المطلوبة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Range("A1:A2222").AutoFilter Field:=1, Criteria1:=[a1] & "*" End If End Sub آمل ان يكون هذا المطلوب مع التحية الف شكر اخوانى الحلين اجمل من بعض بس التانى احلى حبتين الف شكر
FTHLLA قام بنشر مارس 8, 2009 الكاتب قام بنشر مارس 8, 2009 حقيقى الف شكر ليكم حقيقى مكنتش اتخيل ان ممكن حل الموضوع دة بالكود الجميل دة وكمان من غير ميكرو الف شكر يا جماعة وكل سنة وانتم طيبيين
FTHLLA قام بنشر مارس 11, 2009 الكاتب قام بنشر مارس 11, 2009 اخى احمد يعقوب كتبت الكود فى الملف بتاعى ولاكن يوجد ,وجهتنى مشكلة انا حجم الملف بتاعى 5 ميجا عند كتابة الكود داخل ال VBA يذيد حجم الملف 1 ميجا وتحدث مشكلة فى االحفظ يصبح الحفظ مشكلة وياخذ وقت كبير يكاد يقارف النصف دقيقة
FTHLLA قام بنشر مارس 11, 2009 الكاتب قام بنشر مارس 11, 2009 هذا مع العلم ان الكود يعمل بطريقة جيدة داخل اى صفحة اكتبة بها
FTHLLA قام بنشر مارس 11, 2009 الكاتب قام بنشر مارس 11, 2009 اخى احمد يعقوب ممكن تقولى لو حبيت اعمل نفس الشى للعمود التانى اضيف اية للكود
احمدزمان قام بنشر مارس 11, 2009 قام بنشر مارس 11, 2009 السلام عليكم اخي الفاضل زيادة حجم الملف ليست بسبب الكود ان عملية تأخر الحفظ بسبب كثرة البيانات و العمليات الحسابية -يث يقوم اكسل بمراجعة جميع العمليات الحسابية قبل الحفظ اما حول طلبك عملية التصفية لأكثر من عمود فلقد سبق و ان نفذتها على الرابط التالي http://www.officena.net/ib/index.php?showt...st&p=131401 آمل ان تجد به طلبك وان كان غير ذلك فضلا اعلمني هنا مع التحية و التقدير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.