شرح or فى التسيق الشرطى

[محمدمطر]

السلام عليكم ورحمه الله وبركاته
عندى من الخلية a1:a5 يوجد بهم كلمات معلم ، معلم اول ، معلم اول ا ، معلم خبير ، مدير عام     عايز لو كتبت كلمه بخلاف هذه الكلمات فى العمود A  يتم تظليل الصف لكشف الخطا فربما كتبت كلمه معلم قبلها مسافة او بعدها مسافة وكيف يمكن استخدام or مع هذه الكلمات فى التنسيق الشرطى 

تنسيق شرطى.zip

تم تعديل ديسمبر 25, 2018 بواسطه محمدمطر
عدم رفع الملف

[Ali Mohamed Ali]

عليك برفع ملف للعمل عليه لكى تكتمل المساعدة

[Ali Mohamed Ali]

تفضل لك ما طلبت

 

تنسيق شرطى.xlsx

[محمدمطر]

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

[Ali Mohamed Ali]

فهذا بالتأكيد يكون افضل لأن بذلك تكون الخلية فارغة والمعادلة لا تقوم بتظليل الخلية الفارغة

لأنى اذا قمت بتظليل الفارغة فقد يتم تظليل كل الخلايا التى ليس بها بيانات وهذا بالتأكيد خطأ

 

[محمدمطر]

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

هلا اجد توضيح او شرح مبسط لعملك

[سليم حاصبيا]

جرب هذا الماكرو

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

 

[علي بطيخ سالم]

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

 

دائماً في المواقف الصعبة استاذ سليم بارك الله لك