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

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


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





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

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



26-05-2019 11:43 مساء
OmarGad
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 7
قوة السمعة : 557
 offline 

اخوانى الكرام اقدم لكم ملف يقوم بالبحث باى حرف من الجملة او الاسم بتكست بوكس مع وضع شرح لكل سطر  للكود المستخدم بالاضافة الى الترقيم التلقائى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  بحث بتكست بوكس باى حرف مع الترقيم التلقائى.xlsm   تحميل xlsm مرات التحميل :(207)
الحجم :(23.13) KB


26-05-2019 11:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
بارك الله فيك أخي الكريم عمر وجزاك الله خيراً
Private Sub TextBox1_Change()
'هذا السطر لايقاف اهتزازات الشاشة
Application.ScreenUpdating = False

' e هذا السطر للحصول حتى اخر خلية بها بيانات فى العمود
lr = Range("e" & Rows.Count).End(xlUp).Row

'هذا السطر لو التكست بوكس به بيانات وغير فارغ يقوم بـ
If TextBox1.Text <> "" Then

'هذين السطرين للقيام بالفلترة بما هو مكتوب فى التكست بوكس1 فى داخل العمود 2 وهو العمود ايى لاننا قمنا بتحديد الفلتر من العمود ديى حتى العمود جيى باى حرف داخل النص
ActiveSheet.Range("$d$2:$g$" & lr).AutoFilter Field:=2, Criteria1:= _
"=" & "*" & TextBox1.Text & "*", Operator:=xlOr

'هذا السطر اذا لم يكن التكست بوكس فارغ يقوم بـ
Else

'هذا السطر يقوم بـ الغاء الفلتر فى نفس العمود اللذى قمنا بالفلترة عليه حتى اخر خلية بها بيانات وهو العمود الثانى
ActiveSheet.Range("$D$5:$g$" & lr).AutoFilter Field:=2

'هذا السطر لالغاء الفلتر من كل البيانات او ظهور كافة البيانات والغاء الفلترة
'ActiveSheet.ShowAllData
End If

'هذا السطر للتشغيل اهتزازات الشاشة
Application.ScreenUpdating = True
End Sub

27-05-2019 12:00 صباحا
مشاهدة مشاركة منفردة [2]
OmarGad
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 7
قوة السمعة : 557
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الكريم عمر وجزاك الله خيراً
[/code]

وجزاكم كذلك استاذنا الحبيب شرفت بمرور حضرتك


27-05-2019 01:19 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
جزاك الله خيرا أستاذ عمر وجعل عملك بميزان حسناتك 81

27-05-2019 04:09 صباحا
مشاهدة مشاركة منفردة [4]
OmarGad
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-5-1992
الدعوات : 2
يتابعهم : 10
يتابعونه : 7
قوة السمعة : 557
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
جزاك الله خيرا أستاذ عمر وجعل عملك بميزان حسناتك 81


وجزاكم كذلك استاذ اسلام شكرا لحضرتك


07-11-2020 04:54 مساء
مشاهدة مشاركة منفردة [5]
وجيه المصرى
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 07-11-2020
رقم العضوية : 20741
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1963
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
تسلم ايدك

18-11-2020 07:56 صباحا
مشاهدة مشاركة منفردة [6]
nchteiwi
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-11-2020
رقم العضوية : 20843
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 10-2-1961
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
بارك الله فيك
شكرا على الشرح المفصل 




الكلمات الدلالية
التلقائى ، الترقيم ، بوكس ، بالتكست ، الاسم ، الجملة ، البحث ،


 










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

الساعة الآن 03:09 صباحا