محمدمطر قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 (معدل) السلام عليكم ورحمه الله وبركاته عندى من الخلية a1:a5 يوجد بهم كلمات معلم ، معلم اول ، معلم اول ا ، معلم خبير ، مدير عام عايز لو كتبت كلمه بخلاف هذه الكلمات فى العمود A يتم تظليل الصف لكشف الخطا فربما كتبت كلمه معلم قبلها مسافة او بعدها مسافة وكيف يمكن استخدام or مع هذه الكلمات فى التنسيق الشرطى تنسيق شرطى.zip تم تعديل ديسمبر 25, 2018 بواسطه محمدمطر عدم رفع الملف رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 عليك برفع ملف للعمل عليه لكى تكتمل المساعدة رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 تفضل لك ما طلبت تنسيق شرطى.xlsx رابط هذا التعليق شارك More sharing options...
محمدمطر قام بنشر ديسمبر 25, 2018 الكاتب مشاركة قام بنشر ديسمبر 25, 2018 جزاك الله خيرا ولكن يوجد خطا فعند حذف اى كلمه من الخلايا لا يتم عمل تظليل للخلية بعد مسحها رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 فهذا بالتأكيد يكون افضل لأن بذلك تكون الخلية فارغة والمعادلة لا تقوم بتظليل الخلية الفارغة لأنى اذا قمت بتظليل الفارغة فقد يتم تظليل كل الخلايا التى ليس بها بيانات وهذا بالتأكيد خطأ رابط هذا التعليق شارك More sharing options...
محمدمطر قام بنشر ديسمبر 25, 2018 الكاتب مشاركة قام بنشر ديسمبر 25, 2018 جزاك الله خيرا ولكن يوجد خطا فعند حذف اى كلمه من الخلايا لا يتم عمل تظليل للخلية بعد مسحها هلا اجد توضيح او شرح مبسط لعملك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 جرب هذا الماكرو Option Explicit Dim arr Sub coloriz_row(My_row) arr = Array("معلم", "معلم اول ا", _ "معلم خبير", "مدير عام", "معلم اول") Cells(My_row, 1).Resize(, 3).Interior.ColorIndex = 3 End Sub '================================ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Row > 2 Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 End If If Target.Column = 3 And _ Target.Count = 1 And _ Target.Row > 2 And _ IsError(Application.Match(Target.Value, arr, 0)) Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 coloriz_row (Target.Row) End If Application.EnableEvents = True End Sub 1 1 رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر ديسمبر 25, 2018 مشاركة قام بنشر ديسمبر 25, 2018 2 دقائق مضت, سليم حاصبيا said: جرب هذا الماكرو Option Explicit Dim arr Sub coloriz_row(My_row) arr = Array("معلم", "معلم اول ا", _ "معلم خبير", "مدير عام", "معلم اول") Cells(My_row, 1).Resize(, 3).Interior.ColorIndex = 3 End Sub '================================ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Row > 2 Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 End If If Target.Column = 3 And _ Target.Count = 1 And _ Target.Row > 2 And _ IsError(Application.Match(Target.Value, arr, 0)) Then Cells(Target.Row, 1).Resize(, 3).Interior.ColorIndex = 0 coloriz_row (Target.Row) End If Application.EnableEvents = True End Sub دائماً في المواقف الصعبة استاذ سليم بارك الله لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان