أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود حفظ اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

السلام عليكم يوجد بالملف ورقة عمل باسم سجل عام شكاوى بها يوزر فورم بحث بالاسم المطلوب التعديل على خاصية البحث نفسها بحي ..



16-06-2019 09:44 صباحا
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
السلام عليكم
يوجد بالملف ورقة عمل باسم سجل عام شكاوى
بها يوزر فورم بحث بالاسم
المطلوب التعديل على خاصية البحث نفسها 
بحيث عندما ابحث عن كلمة سيد مثلا يعطينى الناتج سيد و السيد
و طلب كمان بنفس الفورم تعديل كود العدد
بحيث عندما امسح خانة التكست بوكس يظهر بالعدد "0" او "لا يوجد نتائج"
و شكرا
 
 
  الشكاوى.rar   تحميل rar مرات التحميل :(10)
الحجم :(503.354) KB





18-06-2019 08:46 صباحا
مشاهدة مشاركة منفردة [1]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
up
فضلا و ليس امرا




18-06-2019 12:30 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8293
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
ممكن تضع الكود الموجود بالملف لأنه يتعذر علي في الوقت الحالي فتح الملفات بشكل مباشر




19-06-2019 11:33 صباحا
مشاهدة مشاركة منفردة [3]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
تفضل اخى العزيز
Private Sub Yh_TextFind_Change()
On Error Resume Next
Dim MySh As Worksheet
Dim V As Integer, LastRow As Integer
Dim M As String
Dim A, F
Yh_ListFind.clear
If Yh_TextFind.Text = "" Then GoTo 1
M = Yh_TextFind.Text
        Set MySh = Sheets("سجل عام شكاوى")
        With MySh
            LastRow = .Cells(.Rows.Count, "d").End(xlUp).Row
            Set A = .Range("d4:d" & LastRow).Find(M)
            If Not A Is Nothing Then
                F = A.Address
                Do
                If Application.WorksheetFunction.search(M, A, 1) = 1 Then
                    Yh_ListFind.AddItem A.Value
                    Yh_ListFind.List(V, 0) = A.Offset(0, -2).Value
                    Yh_ListFind.List(V, 1) = A.Offset(0, 0).Value
                    Yh_ListFind.List(V, 2) = A.Offset(0, 1).Text
                    Yh_ListFind.List(V, 3) = A.Offset(0, 2).Value
                    Yh_ListFind.List(V, 4) = A.Offset(0, 3).Text
                    Yh_ListFind.List(V, 5) = A.Offset(0, 4).Value
                    Yh_ListFind.List(V, 6) = A.Offset(0, 5).Value
                    Yh_ListFind.List(V, 7) = A.Offset(0, 6).Value
                    Yh_ListFind.List(V, 8) = A.Offset(0, 7).Value
                    Yh_ListFind.List(V, 9) = A.Address
                    UserForm1.Label19.Caption = (Yh_ListFind.ListCount)
                    V = V + 1
                 End If
                Set A = .Range("d5:d" & LastRow).FindNext(A)
                Loop While Not A Is Nothing And A.Address <> F
            End If
        End With
 

On Error GoTo 0
1 End Sub




19-06-2019 07:17 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8293
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
جرب السطر التالي بهذا الشكل
Set A = .Range("d4:d" & LastRow).Find(M, , , xlPart)




20-06-2019 01:22 مساء
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
للاسف لم تفلح




20-06-2019 06:51 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8293
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
هل أعطاك السطر خطأ أو ما شابه؟
يوجد سطر آخر فيه الأمر Find هل كررت فيه نفس الفكرة التي وضحتها لك؟




23-06-2019 08:40 صباحا
مشاهدة مشاركة منفردة [7]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
قصدك هذا السطر
Set A = .Range("d5:d" & LastRow).FindNext(A)


جعلته بهذا الشكل
Set A = .Range("d5:d" & LastRow).FindNext(A, , , xlPart)

اعطانى رسالة خطا
wrong number of agruments
 




23-06-2019 10:30 مساء
مشاهدة مشاركة منفردة [8]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
احذف هذا الشرط
If Application.WorksheetFunction.search(M, A, 1) = 1 Then

أثارت هذه المشاركة إعجاب: YasserKhalil،



24-06-2019 10:51 صباحا
مشاهدة مشاركة منفردة [9]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 285
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 231
الاعجاب : 87
 offline 
look/images/icons/i1.gif تعديل على كود بحث من التكست بوكس
تمام ا / ابو نور
تسلم ايدك و شكرا 
و الشكر ايضا للاستاذ / ياسر خليل
 

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
هلا والله - يعطيكم العافية - المطلوب كود تعديل من اللسيت بوكس بعد البحث واظهار النتيجة في التكست ا رمضان بكري
5 388 YasserKhalil
مشكلة تعديل بيانات بواسطة حدث changeعلى التكست بوكس Salamco
4 788 YasserKhalil

الكلمات الدلالية
بوكس ، التكست ، تعديل ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:32 صباحا

أعلن هنا
أعلن هنا
أعلن هنا