FTHLLA قام بنشر فبراير 15, 2009 مشاركة قام بنشر فبراير 15, 2009 عندى بيانات كثيرة فى عمود واحد فاريد بدل من البحث اريد عمل كود لتصفية البيانات او ميكرو للتصفية بناء على يبدا ب بمعنى اخر الحروف الاولى بحيث كلما زودت حرف كلما كانت التصفية اكثر رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر فبراير 15, 2009 مشاركة قام بنشر فبراير 15, 2009 ارفق الملف ووضح طلبك فيه وإن شاء الله سوف تحصل على طلبك رابط هذا التعليق شارك More sharing options...
FTHLLA قام بنشر مارس 5, 2009 الكاتب مشاركة قام بنشر مارس 5, 2009 ارفق الملف ووضح طلبك فيه وإن شاء الله سوف تحصل على طلبك ارجو المساعدة فى تصحيح هذا الكود او هذا الميكرو ____.rar رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر مارس 5, 2009 مشاركة قام بنشر مارس 5, 2009 (معدل) اكتب معيار البحث في الخلية الخضراء ثم اضغط زر ( بحث ) إذا كنت تريد الأسماء التي تبدأ باسم ( محمد ) فاكتب في الخلية الخضراء محمد ثم علامة (*) وإذا كنت تريد الأسماء التي تنتهي باسم محمد فاكتب العلامة (*) ثم كلمة (محمد) وإذا كنت تريد الأسماء التي تبدأ بحرف ( م ) فاكتب ( م ) ثم العلامة (*) بدون مسافة وهكذا .... هل هذا هو المطلوب ؟ abusarah73_17.rar تم تعديل مارس 5, 2009 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
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 آمل ان يكون هذا المطلوب مع التحية الف شكر اخوانى الحلين اجمل من بعض بس التانى احلى حبتين الف شكر رابط هذا التعليق شارك More sharing options...
FTHLLA قام بنشر مارس 8, 2009 الكاتب مشاركة قام بنشر مارس 8, 2009 حقيقى الف شكر ليكم حقيقى مكنتش اتخيل ان ممكن حل الموضوع دة بالكود الجميل دة وكمان من غير ميكرو الف شكر يا جماعة وكل سنة وانتم طيبيين رابط هذا التعليق شارك More sharing options...
FTHLLA قام بنشر مارس 11, 2009 الكاتب مشاركة قام بنشر مارس 11, 2009 اخى احمد يعقوب كتبت الكود فى الملف بتاعى ولاكن يوجد ,وجهتنى مشكلة انا حجم الملف بتاعى 5 ميجا عند كتابة الكود داخل ال VBA يذيد حجم الملف 1 ميجا وتحدث مشكلة فى االحفظ يصبح الحفظ مشكلة وياخذ وقت كبير يكاد يقارف النصف دقيقة رابط هذا التعليق شارك More sharing options...
FTHLLA قام بنشر مارس 11, 2009 الكاتب مشاركة قام بنشر مارس 11, 2009 هذا مع العلم ان الكود يعمل بطريقة جيدة داخل اى صفحة اكتبة بها رابط هذا التعليق شارك More sharing options...
FTHLLA قام بنشر مارس 11, 2009 الكاتب مشاركة قام بنشر مارس 11, 2009 اخى احمد يعقوب ممكن تقولى لو حبيت اعمل نفس الشى للعمود التانى اضيف اية للكود رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 11, 2009 مشاركة قام بنشر مارس 11, 2009 السلام عليكم اخي الفاضل زيادة حجم الملف ليست بسبب الكود ان عملية تأخر الحفظ بسبب كثرة البيانات و العمليات الحسابية -يث يقوم اكسل بمراجعة جميع العمليات الحسابية قبل الحفظ اما حول طلبك عملية التصفية لأكثر من عمود فلقد سبق و ان نفذتها على الرابط التالي http://www.officena.net/ib/index.php?showt...st&p=131401 آمل ان تجد به طلبك وان كان غير ذلك فضلا اعلمني هنا مع التحية و التقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان