تحميل مجانى برنامج الكنترول المدرسى ( كنوز ) وادارة اعمال الامتحانات وزارة التربية والتعليم

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

درس جديد  وكود جديد من اكواد اكسيل VBA

درس اليوم عن

 كيفية اظهارجميع القيم المكررة داخل جميع اوراق العمل فى ملف الاكسيل 

جاءنا سؤال من احد الاصدقاء عن كيفية اظهار القيم المكررة فى كل اوراق العمل

سوف نجيب على هذا السؤال اليوم من خلال كود سهل وبسيط جدا هنعملة مع بعض

فى البداية لازم نعرف مجموعة من المتغيرات اللى هنشتغل عليها فى الكود

المتغير الاول 

Dim myRange As Range

المتغير الثانى 

Dim mycell As Range

المتغير الثالث

Dim ws As Worksheet

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

For Each ws In ThisWorkbook.Worksheets

Set myRange = ws.Range("a1:a34")

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

For Each myCell In myRange

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

If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then

myCell.Interior.ColorIndex = 36

Else

 myCell.Interior.Pattern = xlNone

End If

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

وهذا هو الكود كاملا

 

Sub HighlightDuplicate()

Dim myRange As Range

Dim ws As Worksheet

Dim myCell As Range

 

For Each ws In ThisWorkbook.Worksheets

Set myRange = ws.Range("a1:a34")

For Each myCell In myRange

If WorksheetFunction.CountIf(myRange, myCell.Value) > 1 Then

myCell.Interior.ColorIndex = 36

Else

 myCell.Interior.Pattern = xlNone

End If

Next myCell

Next ws

End Sub

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

لو اعجبك المقال لا تنسى مشاركتة على وسائل التواصل الاجتماعى

زكاة العلم نشرة

لتحميل ملف العمل من هنا