اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

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

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

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

اشكركم

تنسيق شرطى لكل الملف.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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

  • Like 2
رابط هذا التعليق
شارك

  • أفضل إجابة

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

تفضل 

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

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information