logo

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



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





01-09-2018 10:43 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
فقط اكتب للاكسل ما تريد ان تبحث عنه ( ابرة في كومة قش ) واضغط الزر Run
حرب هذا الملف
CODE

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 مرات التحميل :(35)
الحجم :(17.874) KB





look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
  01-09-2018 11:17 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذ سليم جزاك الله كل خير



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

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




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

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




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




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




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

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




توقيع :الصقر

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


look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
  02-09-2018 11:11 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
السلام عليكم ورحمة الله وبركاته
الأستاذ سليم المحترم دعني أقل لك تهانينا الحارة على هذا العمل المميز123
هذا البحث رائع حقاً ولكن هل يمكن تفعيله ليتجاوز الخلايا المحددة المدموجة.
بورك فيك ..مع أجمل وأعطر الأماني للمضي قدماً
في كل ما يفيد الشباب ويحفزهم على البحث والإتيان بكل ما هو جديد ومفيد
والسلام عليكم
142111



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
  02-09-2018 02:20 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
المشاركة الأصلية كتبت بواسطة: محمد حسن المحمد السلام عليكم ورحمة الله وبركاته
الأستاذ سليم المحترم دعني أقل لك تهانينا الحارة على هذا العمل المميز123
142111
​استاذ محمد
بناءً على اقتراحكم تم تعديل الملف

MTYzNzEwMQ4646Multicells
CODE

Option Explicit

Sub colorize2()
Dim x%, k%, i%, m%
Dim MY_St1$, MY_St2$, find_txt$
Dim My_Txt
Dim Last_Row%: Last_Row = Cells(Rows.Count, 1).End(3).Row
If Last_Row < 2 Then Last_Row = 2
MY_St2 = UCase(Range("c2"))
Application.ScreenUpdating = False
For i = 2 To Last_Row
MY_St1$ = UCase(Range("a" & i).Value)
        With Range("a" & i).Font
        .ColorIndex = 0: .Underline = False:
        .Italic = False: .Bold = False
        End With
'==================================
For m = 1 To Len(MY_St1) - Len(MY_St2) + 1
  find_txt$ = Mid(MY_St1, m, Len(MY_St2))
  If find_txt$ = MY_St2 Then
        With Range("a" & i).Characters(m, Len(MY_St2)).Font
        .ColorIndex = 3: .Underline = True:
        .Italic = True: .Bold = True
         k = k + 1
        End With
   End If
  Next m
'==============================

If Range("a" & i).MergeCells = True Then
i = i + Range("a" & i).MergeArea.Rows.Count - 1
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



الملف مرفق
 
 
  Fuul_Saerch_expressions.rar   تحميل rar مرات التحميل :(9)
الحجم :(58.244) KB





look/images/icons/i1.gif كيف نبحث عن كلمة او حرف او عبارة داخل نص
  02-09-2018 02:40 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
السلام عليكم ورحمة الله وبركاته
فائق تقديري واحترامي
أرجو ألا أكون أثقلت عليك في طلبي
وأرجو أن يعم نفعه
والسلام عليكم
hummingbirdwithflowersanimated



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


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




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









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

الساعة الآن 07:55 AM