تلوين الاسئلة المكررة في كل عنوان

[engnana]

كيفية تليون الأسئلة المكررة في كل بند فمثلا السؤال المكرر في بند الفرامل كيف يصبح لونه نفس السؤال في بند الدعسات 

وشكرا

[Ali Mohamed Ali]

أخى الكريم من الأفضل ارسال ملف اكسيل للعمل عليه

أو ممكن تجرب هذا الملف ضع بياناتك فى العمود A

 

كود تلوين المكرر.xlsm

[engnana]

شكرا اخي الكريم ولكن ممكن اعرف الطريقة ؟ 

[Ali Mohamed Ali]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For Each cel In [A1:A1000]

If Application.WorksheetFunction.CountIf(Range("A1:A1000"), cel) > 1 Then

بمعنى العمل على العمةد الأول وهو العمود A الذى به البيانات

cel.Interior.ColorIndex = 4

4 هو رقم لون التظليل

Else

cel.Interior.ColorIndex = 0

End If

Next

End Sub