logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





26-05-2019 11:43 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 12-08-2018
رقم العضوية : 7616
المشاركات : 133
الجنس :
تاريخ الميلاد : 11-5-1992
الدعوات : 2
قوة السمعة : 571
الاعجاب : 2
اخوانى الكرام اقدم لكم ملف يقوم ب البحث باى حرف من الجملة او الاسم بتكست بوكس مع وضع شرح لكل سطر للكود المستخدم بالاضافة الى الترقيم التلقائى
بحث بتكست بوكس باى حرف مع الترقيم التلقائى.xlsm
 
 
  بحث بتكست بوكس باى حرف مع الترقيم التلقائى.xlsm   تحميل xlsm مرات التحميل :(217)
الحجم :(23.13) KB


أثارت هذه المشاركة إعجاب: alhoor.2017، ابونورا، خالد الشاعر، مدحت حافظ، noureddine70، انبية للروائح والعطور، محمدعبدالسلام، OMAR25،



look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  26-05-2019 11:47 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الكريم عمر وجزاك الله خيراً
CODE
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

أثارت هذه المشاركة إعجاب: مدحت حافظ، أباالحسن، noureddine70،



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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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




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




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




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

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



look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  26-11-2020 11:37 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 20
المشاركات : 318
الجنس :
تاريخ الميلاد : 24-10-1975
قوة السمعة : 714
الاعجاب : 1
OmarGad
جزاك الله خيرا




look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  06-12-2020 10:57 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-02-2019
رقم العضوية : 11752
المشاركات : 22
الجنس :
تاريخ الميلاد : 23-9-1962
قوة السمعة : 30
الاعجاب : 0

السلام عليكم
بارك الله فيكم
عمل ممتـــاز جــــــــدا


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



look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  08-12-2020 09:54 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 612
الجنس :
تاريخ الميلاد : 13-3-1990
قوة السمعة : 1166
الاعجاب : 4
جزاكم الله خير استاذ عمر




look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  12-02-2021 11:23 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 12-02-2021
رقم العضوية : 21703
المشاركات : 1
الجنس :
تاريخ الميلاد : 22-4-1964
قوة السمعة : 10
الاعجاب : 0
بارك الله فيك




look/images/icons/i1.gif البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى
  14-02-2021 08:58 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 177
الجنس :
تاريخ الميلاد : 3-7-1969
الدعوات : 1
قوة السمعة : 292
الاعجاب : 0
استاذ عمر
جزاك الله كل خيراً

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




اضافة رد جديد اضافة موضوع جديد



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

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









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

الساعة الآن 11:24 PM