تعديل علي كود بحث ( خبراء الإكسيل أطلب مساعدتكم){عنوان معدل}

[رؤوف شعرون]

هذا ثاني مشاركة لي في منتداكم الرائع وأسف أنها طلب مساعدة وليست مشاركة فعالة

قراءة حوالي 50%  من مواضيعكم وتعلمت منه الكثير والكثير  وأصبحت اعرف اعمل بعض ملفات الإكسل التي احتاجها في عملي       وكلها تعلمتها منكم وجمعت من بعض أعملكم ملف بس طالب المساعد في بعض من أكود البحث أو كيفية عمل الكود

وألف ألف شكر لكل الأخوة القائمين في المنتدى من إدارة ومشرفين وأعضاء على تعليمي في ازاى اعمل ملف بهذا الشكل

واليكم 

الملف 

احمد111.rar

تم تعديل مارس 28, 2015 بواسطه رؤوف شعرون

[ياسر خليل أبو البراء]

الأخ رؤوف شعرون ..

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

ثانياً عنوان الموضوع يرجى أن يكون معبر عن الموضوع ..يرجى الابتعاد عن العناوين الغير معبرة

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

ثالثا الملف يبدو أنه متعوب عليه ..تسلم ايدك بصراحة وربنا يخليلك أولادك (زي القمر بصراحة ..بسم الله ما شاء الله لتقول إني حسدتهم !!)

رابعا طلبك غير محدد المعالم ..تريد المساعدة في كود البحث ..كيف تريد العمل على البحث وما شكل النتائج المرجوة من البحث لأني لاحظت أن هناك كود للبحث بالفعل ...هل تقصد التعديل عليه في نقطة معينة أم أنك تريد أمراً آخر ..

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

[رؤوف شعرون]

 

 

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

ثانياً عنوان الموضوع يرجى أن يكون معبر عن الموضوع ..يرجى الابتعاد عن العناوين الغير معبرة

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

و بصفة خاصة نؤكدعلى ما يلي

1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة

2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.

3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.

4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....

5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

ومخالفة ذلك تعرض الموضوع للحذف

ثالثا الملف يبدو أنه متعوب عليه ..تسلم ايدك بصراحة وربنا يخليلك أولادك (زي القمر بصراحة ..بسم الله ما شاء الله لتقول إني حسدتهم !!)

رابعا طلبك غير محدد المعالم ..تريد المساعدة في كود البحث ..كيف تريد العمل على البحث وما شكل النتائج المرجوة من البحث لأني لاحظت أن هناك كود للبحث بالفعل ...هل تقصد التعديل عليه في نقطة معينة أم أنك تريد أمراً آخر ..

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

بداية  مرحبا أستاذ ياسر

ثانياً  أسف على عنوان الموضوع أن يكون غير معبر

ثالثا  التعديل عليه والتعديل المطلوب هو عند كتابة اسم طالب فى البحث يظهر فى الفرم

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

مثل اسم الفصل و عدد أيام الغياب والبيانات الموجود فى شيت2

لأني لم بكتب اسم الطالب يظهر اسم الطالب فقط

وأنا عوز  يظهر الفصل المكتوب و عدد أيام الغياب  وباقي البيانات

الموجود فى قاعدة البيانات اللي فى الورقة رقم2

 

 

  عند فتح الملف اضغط على كلمة

احمد111.rar

 قرأت وسأرسلها لصديق

تم تعديل مارس 28, 2015 بواسطه رؤوف شعرون

[ياسر خليل أبو البراء]

جرب الكود التالي كبداية فقط ..يمكنك الإطلاع على الأسطر وتكملة باقي الفورم ..

بالنسبة لورقة العمل (قاعدة البيانات) يوجد عمودين للغياب ..على أيهما تريد العمل ...

أعتقد أن الورقة بحاجة إلى ضبط بعض الشيء ....

Private Sub CommandButton1_Click()
   On Error GoTo Error:
     If TextBox1 = "" Then
        MsgBox ("ادخل نص في حقل البحث")
     Else
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
        TextBox5 = ActiveCell
        TextBox2 = ActiveCell.Offset(, 1)
        TextBox3 = ActiveCell.Offset(, 26)
        
    End If
   Exit Sub
Error:
   MsgBox ("لا تتوفر نتائج للبحث")
End Sub

تم تعديل مارس 28, 2015 بواسطه YasserKhalil

[رؤوف شعرون]

 

جرب الكود التالي كبداية فقط ..يمكنك الإطلاع على الأسطر وتكملة باقي الفورم ..

بالنسبة لورقة العمل (قاعدة البيانات) يوجد عمودين للغياب ..على أيهما تريد العمل ...

أعتقد أن الورقة بحاجة إلى ضبط بعض الشيء ....

Private Sub CommandButton1_Click()
   On Error GoTo Error:
     If TextBox1 = "" Then
        MsgBox ("ادخل نص في حقل البحث")
     Else
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
        TextBox5 = ActiveCell
        TextBox2 = ActiveCell.Offset(, 1)
        TextBox3 = ActiveCell.Offset(, 26)
        
    End If
   Exit Sub
Error:
   MsgBox ("لا تتوفر نتائج للبحث")
End Sub

 

أستاذ ياسر ألف ألف شكر هو فعلا الكود المطلوب

وقمت بإضافة باقي الخطوات وبق 10على10 بس لي طلب

كود يقوم بمسح الاسم المكتوب فى TextBox1

 

Private Sub CommandButton1_Click()
   On Error GoTo Error:
     If TextBox1 = "" Then
        MsgBox ("ادخل نص في حقل البحث")
     Else
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
        TextBox2 = ActiveCell
        TextBox3 = ActiveCell.Offset(, 1)
        TextBox4 = ActiveCell.Offset(, 2)
        TextBox5 = ActiveCell.Offset(, 3)
        TextBox6 = ActiveCell.Offset(, 5)
        TextBox7 = ActiveCell.Offset(, 6)
        TextBox8 = ActiveCell.Offset(, 4)
        TextBox9 = ActiveCell.Offset(, 7)
        TextBox10 = ActiveCell.Offset(, 8)
        TextBox11 = ActiveCell.Offset(, 10)
        TextBox12 = ActiveCell.Offset(, 12)
        TextBox13 = ActiveCell.Offset(, 9)
        TextBox14 = ActiveCell.Offset(, 14)
        TextBox15 = ActiveCell.Offset(, 16)
        TextBox16 = ActiveCell.Offset(, 15)
        TextBox17 = ActiveCell.Offset(, 19)
        TextBox18 = ActiveCell.Offset(, 20)
        TextBox19 = ActiveCell.Offset(, 16)
        TextBox20 = ActiveCell.Offset(, 21)
        TextBox21 = ActiveCell.Offset(, 17)
        TextBox22 = ActiveCell.Offset(, 22)
        TextBox23 = ActiveCell.Offset(, 24)
        TextBox24 = ActiveCell.Offset(, 26)
        TextBox25 = ActiveCell.Offset(, 27)
        TextBox26 = ActiveCell.Offset(, 28)
        TextBox27 = ActiveCell.Offset(, 29)
        TextBox28 = ActiveCell.Offset(, 30)
 End If
        Exit Sub
Error:
   MsgBox ("لا تتوفر نتائج للبحث")
End Sub
 

[ياسر خليل أبو البراء]

أعتقد أن الموضوع بسيط

استخدم الكود بهذا الشكل بالنسبة لزر الأمر اللي على اليمين المسمى ButtonSerach1

Private Sub ButtonSerach1_Click()
    TextBox1 = ""
End Sub

وفي الكود الخاص باستهلال الفورم

Private Sub UserForm_Initialize()
  أضف هذا السطر في آخر الكود
    ButtonSerach1.Caption = "مسح"
End Sub

[رؤوف شعرون]

 

أعتقد أن الموضوع بسيط

استخدم الكود بهذا الشكل بالنسبة لزر الأمر اللي على اليمين المسمى ButtonSerach1

Private Sub ButtonSerach1_Click()
    TextBox1 = ""
End Sub

وفي الكود الخاص باستهلال الفورم

Private Sub UserForm_Initialize()
  أضف هذا السطر في آخر الكود
    ButtonSerach1.Caption = "مسح"
End Sub

الاستاذ الفاضل ياسر خليل حفظك الله عز وجل

من كل سوء وزادك من فضله علما ومعرفة

ودمتم في رعاية الله وحفظه