حمادة عمر قام بنشر فبراير 25, 2014 الكاتب مشاركة قام بنشر فبراير 25, 2014 الاخ الكريم / ريان احمد بارك الله فيك شاهد الرابط التالي ... ان شاء الله به ما تريد بعنوان بحث بثلاثة معايير حسب الاختيار http://www.officena.net/ib/index.php?showtopic=33514 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 (معدل) لقد شاهدته ولكن لم افهم الكود بحيث أضيف أعمدة بحث وإختيار الشاك بوكس ولقد وصعت تساؤل في هذال الشأن فهل يمكن شرح أجزاء الكود لتلك الفورم تم تعديل فبراير 26, 2014 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
الغالي وليد قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 مميز والله الموضوع وطرح اجمل شكرا لك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
سيكوتوري قام بنشر فبراير 26, 2014 مشاركة قام بنشر فبراير 26, 2014 السلام عليكم إخواني الرجاء تعديل كود فورم البحث بحيث حين اختار عمود القائمة مثلا "اسم المستلم" وفي textfind مثلا "*" وأضغط على بحث يعطيني كنتيجة الاسماء بدون تكرار، ولما اضع في textfind مثلا "**" يعطيني الاسماء بدون تكرار مع ترثيبها ترثيبا ابجديا. اتمنى ان اكون وفقت في الشرح. الف شكر مسبقا لرواد منتدى العرب أوفيسنا. ملف بحث بفورم ممتاز.rar رابط هذا التعليق شارك More sharing options...
سيكوتوري قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 up رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 up رابط هذا التعليق شارك More sharing options...
سيكوتوري قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 up رابط هذا التعليق شارك More sharing options...
سيكوتوري قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 up رابط هذا التعليق شارك More sharing options...
سيكوتوري قام بنشر مارس 2, 2014 مشاركة قام بنشر مارس 2, 2014 للرفع رابط هذا التعليق شارك More sharing options...
azilalouzoud قام بنشر مارس 10, 2014 مشاركة قام بنشر مارس 10, 2014 عمل جبار تطلب مجهود كبير وصبر ,,,, عمل يستحق بالفعل التنويه والشكر,,,, فلك جزيل الشكر ولو جاء متأخرا لأني لم أكتشف هذا العمل إلا هدا الأسبوع رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 10, 2014 الكاتب مشاركة قام بنشر مارس 10, 2014 السلام عليكم الاخ الكريم / azilalouzoud بارك الله فيك واجمل ما في الموضوع مشاركتك حيث يسعدني جدا ان تكون اولي مشاركات في موضوع لي ارجو من الله ان اكون افدتك ولو بمعلومة بسيطة تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر مارس 14, 2014 مشاركة قام بنشر مارس 14, 2014 جزاكم الله خيرا علي المعلومات القيمة و الرائعة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 14, 2014 الكاتب مشاركة قام بنشر مارس 14, 2014 السلام عليكم الاخ الحبيب / محمد عسكر بارك الله فيك مرور طيب وكريم من أخ كريم تقب خالص تحياتي رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 7, 2014 مشاركة قام بنشر أبريل 7, 2014 السلام عليكم كيف يتم التعديل في الكود حتى يتم البحث في عمودين في آن واحد d / c تجريب البحث.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 8, 2014 مشاركة قام بنشر أبريل 8, 2014 للرفع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 9, 2014 مشاركة قام بنشر أبريل 9, 2014 للرفع رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 9, 2014 الكاتب مشاركة قام بنشر أبريل 9, 2014 السلام عليكم الاخ الحبيب / ريان أحمد بارك الله فيك عذرا ع التأخر في الرد حيث لم اري طلبك الا الآن اليك الملف المرفق ... قم بكتابة اي اسم او اي حرف موجود في العمودين C-D وستحصل علي النتيجة المطلوبة ( ان شاء الله ) شاهد المرفق ... تقبل خالص تحياتي تجريب البحث_3.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 السلام عليكم شكرا جزيلا وبارك الله فيك Dim MyRange_Search As Range, Mycel As Range Dim r As Integer Set MyRange_Search = Range("SAMA1") For Each Mycel In MyRange_Search If LCase(Mycel) Like "*" & LCase(TextBox1) & "*" Then With ListBox1 .AddItem .List(r, 0) = MyRange_Search.Cells(Mycel.Row - 1, 1) .List(r, 1) = MyRange_Search.Cells(Mycel.Row - 1, 2) .List(r, 2) = MyRange_Search.Cells(Mycel.Row - 1, 3) .List(r, 3) = MyRange_Search.Cells(Mycel.Row - 1, 4) .List(r, 4) = MyRange_Search.Cells(Mycel.Row - 1, 5) .List(r, 5) = MyRange_Search.Cells(Mycel.Row - 1, 6) End With r = r + 1 End If Next هذه الجزئية من الكود وتسمية النطاق هل هذا ما أصيفه لفورم البحث رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 10, 2014 الكاتب مشاركة قام بنشر أبريل 10, 2014 تمام كما ذكرت اخي الحبيب ولكن تم الاستغناء عن اجزاء كبيرة من الكود السابق او بمعني آخر تم تغييره قم بتسمية نطاق البحث كما تريد .. واستخدم هذا الكود لتنفيذ طلبك تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
ناصر حسان قام بنشر أبريل 19, 2014 مشاركة قام بنشر أبريل 19, 2014 اخى الفاضل / ابوسما ان اروع الاشخاص هو من يترك مكانة تاركا بصمة على الجدار ليقال من بعدة من هنا مر فلان .... والاروع من ذلك هو من يترك فى كل يوم بصمة كل الاحترام والتقدير لك ابوسما لانك فى كل يوم تترك عندى بصمة جميلة تقبل كل الاحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
حليم ناصر قام بنشر أبريل 21, 2014 مشاركة قام بنشر أبريل 21, 2014 سلام عليكم الله يبارك فيك ويجعل اعمالك في ميزان حسناتك ويرزقك الصحة والعافية لك ولعائلتك ولكل الاعضاء مرة اخرى جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 21, 2014 الكاتب مشاركة قام بنشر أبريل 21, 2014 السلام عليكم الاخ الحبيب / ناصر حسان بارك الله فيك علي كلماتك الطيبة مرور طيب وكريم من أخ كريم تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها