كيفية وضع تنسيق شرطي لأكثر من كلمة في الخلية

[اوفيس 2003]

اريد وضع اكثر من كلمة تعطيني تنسيق محدد بحيث لو وضعت في خلية ما تعطيني هذا التنسيق المحدد من قبل

 

 

انا اعلم التنسيق لكمة ما او قيمة محددة  لكن لا اعرف اكثر من كلمة

[جمال عبد السميع]

ياريت أخى لو مثال على ماتريد ،سيسهل كثيرا

[اوفيس 2003]

مثال

 

لدي عمود وليكن  B   واريد ان اجعل لو كتبت فيه كلمة  محمد او محمود او احمد او خالد  تعطيني تنسيق معين  خلفية حمراء وكتابة بيضاء بدلاً من عمل تنسيق لكل اسم فيهم على حدة

[جمال عبد السميع]

على قد مافعهمت

أنظر المرفق وإلا ياريت ترسل ملف بما تريد

تنسيق شرطي لأكثر من كلمة في الخلية.rar

[اوفيس 2003]

مشكور على الرد والإهتمام وهذه صورة لما اريد  حيث ان هذه الأسماء اريد عند كتابتها فقط في هذا العمود تعطيني التنسيق الذي اريد  ، والملف اللي ارفقته رائع ولكن لا اريد مثل ذلك ، بل اريد عند كتابة اي من الكلمات المحددة ان يعطيني مباشرة تنسيق مختاره بدلاً من عمل لكل اسم او كلمة تنسيق شرطي

 

 

تم تعديل سبتمبر 29, 2013 بواسطه office 2003

[جمال عبد السميع]

أتمنى يكون المطلوب

وبتنسيق أكبر عن طريق قائمة مرنة  أنظر المرفق الثانى

تنسيق شرطى.rar

تنسيق شرطى 2.rar

تم تعديل سبتمبر 29, 2013 بواسطه جمال عبد السميع

[اوفيس 2003]

مشكور على الرد ياغالي

 

ولكن الا يوجد طريقة اكتب في المربع المحدود او مربع حواري اخر الكلمات المراد تنسيقها شرطياً بدون عمل عمود اخر

 

 

والمرفقين  لا فرق بينهم

تم تعديل سبتمبر 29, 2013 بواسطه office 2003

[اوفيس 2003]

للرفـــــع

 

ولكن الا يوجد طريقة اكتب في المربع المحدود او مربع حواري اخر الكلمات المراد تنسيقها شرطياً بدون عمل عمود اخر

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ الحبيب جمال عبدالسميع

 

جرب هذا الكود امل ان يفي بالغرض

Public Sub Ali_Frmt()
Dim Asm As String
Dim Sht As Worksheet
Dim Rng As Range, rn As Range
Ne:
Asm = InputBox("إدخل الكلمة المراد تنسيقها", "منتدى أوفسينا")
If Asm = vbNullString Or Asm = Cancel Then Exit Sub
Set Sht = ActiveSheet
    With Sht
        Col = Split(.UsedRange.Address, "$")(3)
        Rw = Split(.UsedRange.Address, "$")(4)
        Set Rng = .Range(.Cells(1, 1), .Cells(Rw, Col))
     For Each rn In Rng
      If rn Like CStr(Asm) Then
      With rn
        .Interior.Color = RGB(242, 242, 242)
        .Borders.Color = RGB(255, 0, 0)
        .Borders.Weight = xlThick
        .Font.Bold = True
       End With
        Cn = Cn + 1
      End If
     Next
     MsgBox "تم تنسيق الكلمات " & " وعدد الكمات : " & Cn, vbInformation, ""
     Cn = 0
     If MsgBox("هل تريد تنسيق كلمات اخرى ؟", vbYesNo, "") = vbYes Then GoTo Ne
    End With
End Sub