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

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


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





كيف نبحث عن كلمة او حرف او عبارة داخل نص

فقط اكتب للاكسل ما تريد ان تبحث عنه (ابرة في كومة قش) واضغط الزر Run حرب هذا الملف [code]PGJyIC8+DQpPcHRpb24gRXhwbGlj ..



01-09-2018 10:43 مساء
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

فقط اكتب للاكسل ما تريد ان تبحث عنه  (ابرة في كومة قش واضغط الزر Run 
حرب هذا الملف

Option Explicit
Sub colorize1()
Dim x%, k%, i%
Dim MY_St1$, MY_St2$, find_txt$
Dim My_Txt
MY_St1$ = UCase(Range("a2")): MY_St2$ = UCase(Range("c2"))
Application.ScreenUpdating = False
With Range("a2").Font
.ColorIndex = 0: .Underline = False:
.Italic = False: .Bold = False
End With
If MY_St1 = vbNullString Or MY_St2 = vbNullString Then
  MsgBox "Nothing to Do" & Chr(10) & "Bay Bay"
  GoTo Exite_Me
End If
For i = 1 To Len(MY_St1) - Len(MY_St2) + 1
  find_txt$ = Mid(MY_St1, i, Len(MY_St2))
  If find_txt$ = MY_St2 Then
  With Range("a2").Characters(i, Len(MY_St2)).Font
  .ColorIndex = 3: .Underline = True:
  .Italic = True: .Bold = True
   k = k + 1
 End With
     End If
   Next
  Select Case k
  Case 0: Range("b2") = "Nothing similar"
  Case Else: Range("b2") = "There are: " & Chr(10) & k & "  Expressions"
  End Select
  If k = 1 Then Range("b2") = Mid(Range("b2"), 1, Len(Range("b2")) - 1)
Exite_Me:
  Application.ScreenUpdating = True
End Sub

 
 
  Saerch_expressions.rar   تحميل rar مرات التحميل :(36)
الحجم :(17.874) KB


01-09-2018 11:17 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
أحسنت استاذ سليم جزاك الله كل خير
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

01-09-2018 11:51 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً
موضوعات مميزة من شخص فريد .. 
اسلام دلوقتي هيفكر إنك غيرت اسمك لفريد smile
142

02-09-2018 12:46 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
جزاك الله خيرا استاذ سليم ، عمل رائع biggrin2
....................................

لو عايز فريده "اس 2" قول بس وهجيبهالك ب جنيه وربع زى ما اتفقنا laugh

02-09-2018 02:05 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
ما أنا قلت لك حلال عليك .. إنت لسه عازب وإنت أولى بيها smile 63

02-09-2018 02:28 صباحا
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
هههههههههههههههههه لا العزوبيه ارحم من فريدة خلاص توبت توبت biggrin2

02-09-2018 07:52 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص

جزاكم الله خيرا استاذ سليم
كود رائع 142

توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله





الكلمات الدلالية
نبحث ، كلمة ، عبارة ، داخل ،


 










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

الساعة الآن 10:24 صباحا