conditional formating

[runmohsen]

با سلام دوستان چطور میتوان با استفاده از conditional formating مواد Dublicate رو مشخص کرد-----در صورتی که جهت مشخص کردن دابلکیتها از رنگهای مختلف و تصادفی استفاد کند و تمام تکراری ها به یک رنگ در نیاید

[m_d6712]

این کد رو امتحان کن. من نمیدونم غیر از VBAهم روش دیگری هم وجود داره یا نه! حتما دوستان در این باره نظر خواهند داد. یک کد ساده به نظرم اومد که می شه هنوز روش کار کنی بهتر بشه! این کد رو در قسمت کدنویسی Sheet1 کپی کن. فقط ستون A:A رو براش اونچیزی که انتظار داشتی رو انجام میده! فقط عدد رو باید کوچک بگیری. از 1 تا 20. برای رنج های بزرگتر از فرمول دیگه ای باید استفاده کنی.

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("A:A"), Target.Text) > 1 Then
Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=" + CStr(Target.Value)
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = Target.Text * 10000 + Log(Target.Text * 10000) + Sqr(Target.Text * 10000)
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End If
End Sub

[runmohsen]

تشکر میکنم از شما