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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





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

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



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

اخوانى الكرام اقدم لكم ملف يقوم بالبحث باى حرف من الجملة او الاسم بتكست بوكس مع وضع شرح لكل سطر  للكود المستخدم بالاضافة الى الترقيم التلقائى
 
 
  بحث بتكست بوكس باى حرف مع الترقيم التلقائى.rar   تحميل rar مرات التحميل :(58)
الحجم :(19.265) KB


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





26-05-2019 11:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 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

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




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

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


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




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





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


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


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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصميم فاتورة لمحل بيع بروفيلات المنيوم بالجملة omar.atra
9 886 عبدالجيد

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


 







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



الساعة الآن 08:08 مساء

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