طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة

[حمادة عمر]

الاخ الكريم / ريان احمد

بارك الله فيك

 

شاهد الرابط التالي ... ان شاء الله به ما تريد

بعنوان

 

بحث بثلاثة معايير حسب الاختيار

http://www.officena.net/ib/index.php?showtopic=33514

[ريان أحمد]

لقد شاهدته  ولكن لم افهم الكود بحيث أضيف أعمدة بحث  وإختيار الشاك بوكس

 

ولقد وصعت تساؤل في هذال الشأن

 

فهل يمكن شرح أجزاء الكود لتلك الفورم

تم تعديل فبراير 26, 2014 بواسطه ريان أحمد

[الغالي وليد]

مميز والله الموضوع وطرح اجمل

 

شكرا لك وجزاك الله كل خير

[سيكوتوري]

السلام عليكم إخواني

الرجاء تعديل كود فورم البحث بحيث حين اختار عمود القائمة مثلا "اسم المستلم" وفي textfind  مثلا "*" وأضغط على بحث يعطيني كنتيجة الاسماء بدون تكرار، ولما اضع في textfind  مثلا "**" يعطيني الاسماء بدون تكرار مع ترثيبها ترثيبا ابجديا.

اتمنى ان اكون وفقت في الشرح.

الف شكر مسبقا لرواد منتدى العرب أوفيسنا.

ملف بحث بفورم ممتاز.rar

[سيكوتوري]

up

[ريان أحمد]

up

[سيكوتوري]

للرفع

[ريان أحمد]

up

[سيكوتوري]

للرفع

[ريان أحمد]

up

[سيكوتوري]

للرفع

[azilalouzoud]

عمل جبار تطلب مجهود كبير وصبر ,,,,

عمل يستحق بالفعل التنويه والشكر,,,,

فلك جزيل الشكر ولو جاء متأخرا لأني لم أكتشف هذا العمل إلا هدا الأسبوع

[حمادة عمر]

السلام عليكم

الاخ الكريم / azilalouzoud

بارك الله فيك

واجمل ما في الموضوع مشاركتك

حيث يسعدني جدا ان تكون اولي مشاركات في موضوع لي

ارجو من الله ان اكون افدتك ولو بمعلومة بسيطة

تقبل خالص تحياتي

[محمد عسكر]

جزاكم الله خيرا علي المعلومات القيمة  و الرائعة 

[حمادة عمر]

السلام عليكم

الاخ الحبيب / محمد عسكر

بارك الله فيك

مرور طيب وكريم من أخ كريم

تقب خالص تحياتي

[ريان أحمد]

السلام عليكم

 

كيف يتم التعديل في الكود حتى يتم البحث في عمودين في آن واحد

  d   /  c

تجريب البحث.rar

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ريان أحمد

بارك الله فيك

عذرا ع التأخر في الرد حيث لم اري طلبك الا الآن

 

اليك الملف المرفق ... قم بكتابة اي اسم او اي حرف موجود في العمودين C-D وستحصل علي النتيجة المطلوبة ( ان شاء الله )

شاهد المرفق ...

 

تقبل خالص تحياتي

 

 

تجريب البحث_3.rar

[ريان أحمد]

السلام عليكم

 

شكرا جزيلا وبارك الله فيك

 

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

 

هذه الجزئية من الكود وتسمية النطاق  هل هذا ما أصيفه لفورم البحث

[حمادة عمر]

تمام كما ذكرت اخي الحبيب

ولكن تم الاستغناء عن اجزاء كبيرة من الكود السابق او بمعني آخر تم تغييره

 

قم بتسمية نطاق البحث كما تريد .. واستخدم هذا الكود لتنفيذ طلبك

 

تقبل خالص تحياتي

[ناصر حسان]

اخى الفاضل / ابوسما

 

ان اروع الاشخاص هو من يترك مكانة تاركا بصمة على الجدار ليقال من بعدة من هنا مر فلان .... والاروع من ذلك هو من يترك فى كل يوم بصمة

 

كل الاحترام والتقدير لك ابوسما لانك فى كل يوم تترك عندى بصمة جميلة

 

تقبل كل الاحترام والتقدير

[حليم ناصر]

سلام عليكم 

الله يبارك فيك ويجعل اعمالك في ميزان حسناتك ويرزقك الصحة والعافية  لك ولعائلتك ولكل الاعضاء

 

مرة اخرى جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ناصر حسان

بارك الله فيك علي كلماتك الطيبة

مرور طيب وكريم من أخ كريم

تقبل خالص تحياتي