مختار حسين محمود قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله وبركاته اليوم أعرض علي حضراتكم كودى الجديد هذا الكود يساعدك على تحديد الخلايا التى تحتوى على حرف محدد و بناء عليه يمكن تنفيذ اجراءات أخرى على الخلايا المحددة كالنسخ أو الحذف أو .... أو .....الخ الكود وعليه الشرح : 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 أدخل به مثلا مجموعة كلمات وجرب الكود أرجو أن أكون قد قدمت لكم شيئا جديدا و مفيدا هذا من وجهة نظرى على الأقل و الرأى لحضراتكم - بعد تجربة الكود - فى النهاية والسلام عليكم ورحمة الله وبركاته 4 رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 اخى مختار اكوادك مهمه ومفيده جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 حاضر معنا .. فتبهرنا بمشاركاتك و حلولك المميّزة البديعاتْ تغيب عنّا لأيّام .. فتأتينا بالجديد و الأفكار و الأكواد المبهراتْ بسم الله تبارك الله جزاك الله خيرًا أستاذي القدير " مختار حسين محمود " بارك الله فيك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي 1 رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 هاتفضل دائما رائع أخى الحبيب الغالى / مختار زادك الله من علمه وفضلة تقبل خالص تحياتى وتقديرى رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 4, 2015 الكاتب مشاركة قام بنشر ديسمبر 4, 2015 أخى الكريم سعد بارك الله فيك لك كل التحية والتقدير لشخصكم الكريم أخى الكريم العزيز عبدالعزيز أشكرك جزيل الشكر على كلماتك المشجعة ودعائك الطيب لك كل التحية والتقدير لشخصكم الكريم أخى الكريم الغالى المهندس الكبير ياسر فتحى أشكرك على كلماتك المشجعة ودعائك الطيب لك كل التحية والتقدير لشخصكم الكريم أخى الكريم العيدروس أشكرك على اعجابك بالموضوع لك كل التحية والتقدير لشخصكم الكريم رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 4, 2015 الكاتب مشاركة قام بنشر ديسمبر 4, 2015 معلش للأخوة اللى لسه معرفوش يجربوا وللأخوة اللى مكسلين يجربوا تحديد الخلايا التى تحتوى على حرف محدد.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 23, 2015 مشاركة قام بنشر ديسمبر 23, 2015 أخي الحبيب مختار إنت ملكش حل !! مدهش كعادتك دائماً بارك الله فيك وفي وقتك وفي مالك وفي أهلك وأولادك تقبل تحياتي رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 24, 2015 مشاركة قام بنشر ديسمبر 24, 2015 السام عليكم ورحمة الله اخي مختار كود رائع جزاك الله خير رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر ديسمبر 26, 2015 الكاتب مشاركة قام بنشر ديسمبر 26, 2015 أستاذنا الغالى ياسر خليل نورت الموضوع و نورت المنتدى بعد فترة غياب بصراحة افتقدك الفترة الماضية أخى الحبيب أبا الحسن و الحسين بارك الله فيكم تشرفت بمرورك 2 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يناير 3, 2016 مشاركة قام بنشر يناير 3, 2016 (معدل) الاستاذ مختار هل ينفع لنعمل هذا الكود على البحث عن مجموع قيم معينة يعني مثلا اذا كان لدينا عمودين a و b ولدينا خلية في عمود d نكتب فيها المجموع مثلا 430 فيظهر لنا او يقوم الاكسل بتحديد او تظليل او تلوين الخلايا اللي تساوي هذا المجموع .. هل يعني هذا الكود ينفع للارقام ام فقط للحروف ؟ انظر المرفق خالص اعتذاري وشكري الاخوي مجموع البحث.rar تم تعديل يناير 3, 2016 بواسطه قلم-الاكسل(عبدالعزيز) رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يناير 3, 2016 الكاتب مشاركة قام بنشر يناير 3, 2016 الكود يسرى على الأرقام تعم و لكن بطريقتى تحديد الخلايا التى تحتوى على حرف أو رقم محدد.rar و ليس بنفس الكيفية التى تطلبها لأن ذلك يتطلب عمليات حسابية وهذا لا يتوفر فى الكود تحياتى 1 رابط هذا التعليق شارك More sharing options...
قلم-الاكسل(عبدالعزيز) قام بنشر يناير 4, 2016 مشاركة قام بنشر يناير 4, 2016 شكرا لك عزيزنا المهندس مختار والى الامام وسأطرح الموضوع بشكل مستقل حتى يتسنى للمبدعين المشاركة فيه 1 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر يناير 4, 2016 مشاركة قام بنشر يناير 4, 2016 استاذي العظيم والرائع بارك الله بك وأثابك الله أعمالك وأفكارك رائعة رائعة احترامي لك كبير كبير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.