تلوين السؤال بناء على الكلمة الاولي فى السؤال

[amr_ha2003]

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

وشكرا وجزاكم الله خير الجزاء

aw.xlsx

[lionheart]

Right-Click on sheet name and view code then paste the following

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 1 Then
        If Split(Target.Value, " ")(0) = "اكتب" Or Split(Target.Value, " ")(0) = "فكر" Then
            Target.Interior.Color = RGB(0, 112, 192)
        End If
    End If
End Sub

 

[amr_ha2003]

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

بعتذر عدم توضيح انى اريد اضافة المزيد من الاسماء فى العمود i ويتم التلوين بناء على الكلمات الموجودة فى العمود i

وشكرا وبعتذر مرة تانية

وشكرا

[أبوعيد]

وعليكم السلام

بالمعادلات

aw1.xlsx

[amr_ha2003]

جزاكم الله خيرا وربنا يجعله فى ميزان حسناتكم