قاهر الاكسس قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 (معدل) ملف د.rarالسلام عليكم ورحمة الله وبركاتة , اسعد الله اوقاتكم بكل خير احبتي ,, عندي ملف اكسل , اريد عمل مربع بحث الاصفر اي انه عند ادخال اسم الشخص يفرز لحاله في الجدول يعني عندما اكتب س او اي حرف تظهر جمع الاسامي التي بنفس الحرف وذالك بعد الضغط على Enter استرجاع الجدول Delete ارجو مساعدتي بذالك ,, ولكم وافر الشكر مرفق الملف تم تعديل يناير 10, 2014 بواسطه قاهر الاكسس رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 تفضل اخي المرفقات ارجو ان تفي بطلبك ملف++ د.rar 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 واثراءا للموضوع يمكنك استخدام استبدال الاكواد الموجودة في الملف المرفق بالاكواد التالية Private Sub TextBox1_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox1 = "" Then Selection.AutoFilter Field:=3 Else Range("sama").AutoFilter , Field:=3, Criteria1:=CStr(TextBox1) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub '=========================================================== Private Sub TextBox2_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox2 = "" Then Selection.AutoFilter Field:=4 Else Range("sama1").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub وذلك لتنفيذ نفس المهمة او الوظيفة تقبل خالص تحياتي 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 ملفات مرفقة للكود الثاني ملف+1+ د.rar 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 السلام عليكم هل يمكن في ofi 2003 ويكون في فورم رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 10, 2014 مشاركة قام بنشر يناير 10, 2014 (معدل) بارك الله فيك أخي /حمادة عمر على هذا العمل المميز جعله الله في ميزان حسناتك... ----------------------------- وحتى استفيد انا من الموضوع ويستقفيد اخواني ويكون هذا الموضوع مرجع لي في كتاباتي عند الحاجة اليه ما فهمته من العمل او طريقة عمل هذا الفورم 1 - عمل تصفية للعمود الذى نريد البحث فيه 2 - عمل تسمية نطاق لجزء من العمود وسنضع هذه التسمية في الكود والمشار اليها في الاسفل في نقطة رقم ( ج ) 3 - ادراج فورم بحث 4 - اما بالنسب للمتغيرات في الكود Private Sub TextBox2_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox2 = "" Then Selection.AutoFilter Field:=4 Else Range("اسم النطاق الذي سنقوم بعمله وليكن كما في كود حضرتك ((sama))سما ").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub أ ) تغيير TextBox كلما اردنا ان نضيف تكست بوكس جديد بمعنى اننا لو اردنا ان نجعل صندوق ثاني سنضع كود جديد ونغير فيه رقم ال TextBox ليكون TextBox2 وهكذا .. ب ) رقم العمود الذي ستتم فيه العملية ج ) اسم النطاق الذي سنقوم بعمله والتي سنضعه في الكود ملف+2+ د.rar تم تعديل يناير 10, 2014 بواسطه محمد ابو البـراء 1 رابط هذا التعليق شارك More sharing options...
قاهر الاكسس قام بنشر يناير 10, 2014 الكاتب مشاركة قام بنشر يناير 10, 2014 تفضل اخي المرفقات ارجو ان تفي بطلبك ملف++ د.rar جزاك الله كل خير اخي حمادة , هذا البحث يبحث بالحرف الاول , هل ممكن يكون البحث باي حرف من داخل الجدل اي ليس اول حرف فقط مرفق هذا المثال التابع لاأخوانا احمد انا اريد يكون مثل هذا البحث تقبل تحياتي Book2.rar رابط هذا التعليق شارك More sharing options...
قاهر الاكسس قام بنشر يناير 10, 2014 الكاتب مشاركة قام بنشر يناير 10, 2014 بارك الله فيك أخي /حمادة عمر على هذا العمل المميز جعله الله في ميزان حسناتك... ----------------------------- وحتى استفيد انا من الموضوع ويستقفيد اخواني ويكون هذا الموضوع مرجع لي في كتاباتي عند الحاجة اليه ما فهمته من العمل او طريقة عمل هذا الفورم 1 - عمل تصفية للعمود الذى نريد البحث فيه 2 - عمل تسمية نطاق لجزء من العمود وسنضع هذه التسمية في الكود والمشار اليها في الاسفل في نقطة رقم ( ج ) 3 - ادراج فورم بحث 4 - اما بالنسب للمتغيرات في الكود Private Sub TextBox2_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox2 = "" Then Selection.AutoFilter Field:=4 Else Range("اسم النطاق الذي سنقوم بعمله وليكن كما في كود حضرتك ((sama))سما ").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub أ ) تغيير TextBox كلما اردنا ان نضيف تكست بوكس جديد بمعنى اننا لو اردنا ان نجعل صندوق ثاني سنضع كود جديد ونغير فيه رقم ال TextBox ليكون TextBox2 وهكذا .. ب ) رقم العمود الذي ستتم فيه العملية ج ) اسم النطاق الذي سنقوم بعمله والتي سنضعه في الكود جزاك الله كل خير اخي محمد هذا البحث يبحث بالحرف الاول , هل ممكن يكون البحث باي حرف من داخل الجدل اي ليس اول حرف فقط مرفق هذا المثال التابع لاأخوانا احمد انا اريد يكون مثل هذا البحث تقبل تحياتي ملفات مرفقة Book2.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر يناير 12, 2014 مشاركة قام بنشر يناير 12, 2014 up رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 12, 2014 مشاركة قام بنشر يناير 12, 2014 (معدل) السلام عليكم ورحمة الله وبركاته لعلك تجد بغيتك في هذا الرابط http://www.officena.net/ib/index.php?showtopic=51164#entry316017 بحث بأي حرف او رقم بالفلترة المتقدمة2.rar تم تعديل يناير 12, 2014 بواسطه محمد ابو البـراء رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 الأستاذ / حماده عمر الأستاذ / محمد 28 بارك الله فيكم جميعا وجزاكم رب العالمين عنا خيرا وتقبلوا منى وافر الإحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 شكرا جزيلا استاذي الفاضل/ استاذ محمود الشريف دائما سباق بدعواتك الجميلة جعل الله لك منها نصيب.... رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 السلام عليكم الاخ الكريم / محمد 28 بارك الله فيك بالفعل شرح رااائع ووافي لعلك تجد بغيتك في هذا الرابط http://www.officena.net/ib/index.php?showtopic=51164#entry316017 وبالنسبة للرابط المرفق منكم فلقد اتيت بالصواب لك مني ارق التحيات تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 السلام عليكم الاخ الكريم / محمود_الشريف بارك الله فيك مرور طيب وكريم من اخ كريم تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
ابو عصام الغالي قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 (معدل) الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة . الرقم اسم العهدة نوع العهدة حالة العهدة العدد الغرفة مكان العهدة الجهة الدائرة أو القسم التاريخ ملاحظات 01 مكتب موظف اثاث جيد 5 7 مبنى الادارة الشئون الادارية 1-1-2014 ..... 02 جهاز كومبيوتر اجهزة ممتاز 7 10 قاعة العلوم الشئون الاكاديمية 1-1-2014 .... تم تعديل يناير 13, 2014 بواسطه ابو عصام الغالي رابط هذا التعليق شارك More sharing options...
ابو عصام الغالي قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة . الرقم اسم العهدة نوع العهدة حالة العهدة العدد الغرفة مكان العهدة الجهة الدائرة أو القسم التاريخ ملاحظات 01 مكتب موظف اثاث جيد 5 7 مبنى الادارة الشئون الادارية 1-1-2014 ..... 02 جهاز كومبيوتر اجهزة ممتاز 7 10 قاعة العلوم الشئون الاكاديمية 1-1-2014 .... يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير رابط هذا التعليق شارك More sharing options...
ابو عصام الغالي قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة . الرقم اسم العهدة نوع العهدة حالة العهدة العدد الغرفة مكان العهدة الجهة الدائرة أو القسم التاريخ ملاحظات 01 مكتب موظف اثاث جيد 5 7 مبنى الادارة الشئون الادارية 1-1-2014 ..... 02 جهاز كومبيوتر اجهزة ممتاز 7 10 قاعة العلوم الشئون الاكاديمية 1-1-2014 .... يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير العمل في ملف اكسل ولكن لم اتمكن من ارسل المرفق بصيغة اكسل رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 13, 2014 مشاركة قام بنشر يناير 13, 2014 الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة . الرقم اسم العهدة نوع العهدة حالة العهدة العدد الغرفة مكان العهدة الجهة الدائرة أو القسم التاريخ ملاحظات 01 مكتب موظف اثاث جيد 5 7 مبنى الادارة الشئون الادارية 1-1-2014 ..... 02 جهاز كومبيوتر اجهزة ممتاز 7 10 قاعة العلوم الشئون الاكاديمية 1-1-2014 .... يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير العمل في ملف اكسل ولكن لم اتمكن من ارسل المرفق بصيغة اكسل الملف المرفق لا يعمل ممكن ترفق أخر بارك الله فيك لا يضاح فكرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.