تحديد الخلايا التى تحتوى على حرف محدد

[مختار حسين محمود]

السلام عليكم ورحمة الله وبركاته

اليوم أعرض علي حضراتكم كودى الجديد  هذا الكود يساعدك على تحديد الخلايا التى تحتوى على حرف محدد 

و بناء عليه يمكن تنفيذ اجراءات أخرى على الخلايا المحددة كالنسخ أو الحذف أو  .... أو .....الخ

الكود وعليه الشرح :

Option Explicit

Sub SCCSCharacter()
' الكود التالى لتحديد الخلايا التى تحتوى حرف
' By Mokhtar 3/12/2015
' المتغيرات
 Dim SelectRange, MyRng As Range, C As Range, MyString As String
' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى
 On Error Resume Next
 ' نطاق البحث
 Set MyRng = Sheet1.Range("C2", Range("C" & Rows.Count).End(xlUp))
 ' النص الذى أبحث عنه
 MyString = Sheets("Sheet1").Range("C1").Text
 'الغاء تحديث الشاشة
  Application.ScreenUpdating = False
 'ازالة التنسيق عن نطاق البحث
  MyRng.Interior.Pattern = xlNone
 ' حلقة تكرارية على كل خلايا نطاق البحث
 For Each C In MyRng '
     ' فحص اذا ما كانت الخلايا تحتوى النص الذى نبحث عنه أم لا
     If InStr(1, C.Value, MyString, vbTextCompare) > 0 Then '
        If SelectRange Is Nothing Then ' شرط اذا لم يكن المتغير موجوداً
           Set SelectRange = C  ' جواب الشرط : اعتبر أن المتغير يساوى قيمة الخلية
        Else 'اذا لم يتحقق الشرط
           Set SelectRange = Union(SelectRange, C) ' جواب الشرط : اعتبر أن المتغير يساوى اتحاد المتغير مع الخلية
        End If 'انهاء الشرط الاول
     End If ' انهاء الشرط الثانى
 Next ' الانتقال الى الخلية التالية
 
 If SelectRange Is Nothing Then   ' اذا لم يكن المتغير موجودا
    MsgBox "الحرف :" & " " & "( " & MyString & " )" & " " & "لا يوجد فى الكلمات": Exit Sub   ' رسالة للمستخدم بأن المتغير غير موجود بالنطاق وانهاء الاجراء
    Else  ' اذا لم يتحقق الشرط
    ' CopyRange.Select
    SelectRange.Interior.ColorIndex = 38 ' قم بتلوين الخلية التى تحتوى المتغير باللون 38
End If ' انهاء الشرط

Application.ScreenUpdating = True ' اعادة تفعيل تحديث الشاشة
End Sub  ' انهاء الاجراء

المرفق لالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالا يوجد

طبق الكود كالتالى :

الخلية C1  أدخل فيها الحرف الذى تبحث عنه  ( يمكن عمل قائمة منسدلة فيها بالحروف )   

  النطاق من C2 الى C10 أدخل به مثلا مجموعة كلمات   وجرب الكود

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

والسلام عليكم ورحمة الله وبركاته

[saad abed]

اخى مختار

اكوادك مهمه ومفيده

جزاك الله خيرا

 

[عبد العزيز البسكري]

 

حاضر معنا .. فتبهرنا بمشاركاتك و حلولك المميّزة البديعاتْ

تغيب عنّا لأيّام .. فتأتينا بالجديد و الأفكار و الأكواد المبهراتْ

بسم الله تبارك الله

جزاك الله خيرًا أستاذي القدير " مختار حسين محمود "

بارك الله فيك و زادك من علمه و فضله

فائق إحتراماتي و إعجاباتي

 

[Yasser Fathi Albanna]

هاتفضل دائما رائع أخى الحبيب الغالى / مختار

زادك الله من علمه وفضلة

تقبل خالص تحياتى وتقديرى

[مختار حسين محمود]

أخى الكريم سعد

بارك الله فيك لك كل التحية والتقدير لشخصكم الكريم

أخى الكريم  العزيز عبدالعزيز

أشكرك جزيل الشكر على كلماتك المشجعة ودعائك الطيب لك كل التحية والتقدير لشخصكم الكريم

أخى الكريم  الغالى المهندس الكبير ياسر فتحى

  أشكرك على كلماتك المشجعة ودعائك الطيب لك كل التحية والتقدير لشخصكم الكريم

أخى الكريم  العيدروس

أشكرك على اعجابك بالموضوع  لك كل التحية والتقدير لشخصكم الكريم

[مختار حسين محمود]

معلش للأخوة  اللى لسه معرفوش يجربوا  وللأخوة اللى مكسلين يجربوا

تحديد الخلايا التى تحتوى على حرف محدد.rar

[ياسر خليل أبو البراء]

أخي الحبيب مختار

إنت ملكش حل !! مدهش كعادتك دائماً

بارك الله فيك وفي وقتك وفي مالك وفي أهلك وأولادك

تقبل تحياتي

 

[KHMB]

السام عليكم ورحمة الله

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

[مختار حسين محمود]

أستاذنا الغالى ياسر خليل نورت الموضوع و نورت المنتدى بعد فترة غياب بصراحة افتقدك الفترة الماضية

أخى الحبيب أبا الحسن و الحسين بارك الله فيكم  تشرفت بمرورك

[قلم-الاكسل(عبدالعزيز)]

الاستاذ مختار

هل ينفع لنعمل هذا الكود على البحث عن مجموع قيم معينة

يعني

مثلا اذا كان لدينا عمودين a و b ولدينا خلية في عمود  d  نكتب فيها المجموع مثلا 430

فيظهر لنا او يقوم الاكسل بتحديد او تظليل او تلوين الخلايا اللي تساوي هذا المجموع .. هل يعني هذا الكود ينفع للارقام ام فقط للحروف ؟

انظر المرفق

خالص اعتذاري وشكري الاخوي

 

مجموع البحث.rar

تم تعديل يناير 3, 2016 بواسطه قلم-الاكسل(عبدالعزيز)

[مختار حسين محمود]

الكود  يسرى على الأرقام  تعم   و لكن بطريقتى

تحديد الخلايا التى تحتوى على حرف أو رقم محدد.rar

و ليس بنفس الكيفية التى تطلبها لأن ذلك يتطلب عمليات حسابية  وهذا لا يتوفر فى الكود  تحياتى

 

 

[قلم-الاكسل(عبدالعزيز)]

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

[محي الدين ابو البشر]

استاذي العظيم والرائع

بارك الله بك وأثابك الله 

أعمالك وأفكارك رائعة رائعة

احترامي لك كبير كبير