اعطاء لون للقيم بنقرة واحدة

[حيدر البكري]

السلام عليكم ورحمة الله 

كيف اقوم بتلوين الخلايا التي تحتوي قيم بنقرة واحدة 

تحيتي وسلامي لكم

مسودة تحذف.xlsx

[أبو إيمان]

سوف تقوم بتحدد الخلايا ----- الضغط على conditional formatting   ثم New Rule   ثم اختيار format only cells that contain  ثم equal to  ثم اكتب ""= 

ثم اختار اللون الذي تريد ثم موافق

 

 

 

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته

 

5 ساعات مضت, حيدر البكري said:

اقوم بتلوين الخلايا التي تحتوي قيم بنقرة واحدة

اليك اخي حل اخر بالاكواد

Sub test()
Dim ws As Worksheet
Dim MOSS As Range
Dim lr As Long
Set ws = Worksheets("ورقة1")

Application.ScreenUpdating = False
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row

Set MOSS = ws.Range("A1:O" & lr)
For Each ColorCell In MOSS
If ColorCell <> "" Then
ColorCell.Interior.Color = RGB(220, 230, 241)
Else
ColorCell.Interior.ColorIndex = xlNone
End If
Next
End Sub

 

مسودة تحذف.xlsm

[حيدر البكري]

جزاكما الله خير الجزاء ووفقكما اخواني الاعزاء 

[حيدر البكري]

اخ @

Mohamed Hicham

الكود اشتغل ولا مشكلة فيه لكن عندما جربته على الملف الخاص بي قام بالعمل على 15 خلية فقط والملف العندي اكثر من 31 خلية اخي الكريم 

تم تعديل فبراير 17, 2023 بواسطه حيدر البكري
تعديل

[محمد هشام.]

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

3 ساعات مضت, Mohamed Hicham said:

Set MOSS = ws.Range("A1:O" & lr)

 

[أبو إيمان]

بعد إذن الاستاذ محمد هشام 

7 دقائق مضت, Mohamed Hicham said:

Set MOSS = ws.Range("A1:O" & lr)

a1 أول عمود فيه بيانات

O  اخر عمود فيه بيانات 

الاستاذ حيدر استبدل حرف O ب أخر عمود عندك وبحسب ما ذكرت سوف يكون AE

Set MOSS = ws.Range("A1:AE" & lr)

 

[حيدر البكري]

نعم شكراً لكم تم حل المشكلة بنجاح