بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من اكواد اكسيل 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