كيفية تطبيق التنسيق الشرطى بكود

[abouelhassan]

الزملاء الاساتذة الافاضل

لدى تنسيق شرطى عندما اكتب كلمة تم بالسطر يتلون السطر بالاحمر وكلمة انجز يتلون ازرق

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

اشكركم

تنسيق شرطى لكل الملف.xlsx

[عبدالفتاح في بي اكسيل]

جرب هذا   الكود  لعله  يفيدك  ولكن  لمدى  محدد  كما  في  ملف  عملك  من  العمود  a: j   يمكنك   التعديل  على  الكود  وتغيير  المدى 

Sub test()
For Each sh In Worksheets
Set Rng = Sheets(sh.Name).Range("A:J")
With Sheets(sh.Name)
Set c = Rng.Find("تم", lookat:=xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Set x1 = .Range("A" & c.Row)
Set x2 = .Range("J" & c.Row)
.Range(x1, x2).Interior.Color = RGB(255, 0, 0)
Set c = Rng.FindNext(c)
Loop While c.Address <> FirstAddress
End If
Set c = Rng.Find("انجز", lookat:=xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Set x1 = .Range("A" & c.Row)
Set x2 = .Range("J" & c.Row)
.Range(x1, x2).Interior.Color = RGB(0, 0, 255)
Set c = Rng.FindNext(c)
Loop While c.Address <> FirstAddress
End If
End With
Next
End Sub

 

[abouelhassan]

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

هل من امكانية لوضع الكود فى صفحة thisworkbook

حتى يتفعل الكود لكل الصفحات فى الحدث chinge

بدل من وضعه بموديول وتفعيله بزر

اشكر حضرتك رنا يبارك لك والله

[عبدالفتاح في بي اكسيل]

على حسب  ما  فهمت  منك  ضعه  في  هذا  الحدث 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

 

[عبدالفتاح في بي اكسيل]

ضع  هذا  السطر  بعد  ثاني   سطر   في  الكود 

Rng.Interior.Color = xlNone

 

[عبدالفتاح في بي اكسيل]

اعذرني  اخي  لا  املك  لك  اي  تفسير   الكود  شغال  معي  100%    اقترح  عليك تصميم  ملف  جديد   قد  تكون  المشكلة منه 

[abouelhassan]

هاهو الملف استاذى ارجو الاطلاع عليه مشكوووور جدا

تنسيق شرطى لكل الملف.xlsm

[عبدالفتاح في بي اكسيل]

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

تفضل 

تنسيق شرطى لكل الملف.xlsm

[abouelhassan]

الله يبارك لك استاذ عبدالفتاح حضرتك مبدع

بارك الله فيك الكود ممتاز اشكر حضرتك جدا

اخيك باحترام