conditional formating

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • runmohsen

    • 2010/06/13
    • 120

    conditional formating

    با سلام دوستان چطور میتوان با استفاده از conditional formating مواد Dublicate رو مشخص کرد-----در صورتی که جهت مشخص کردن دابلکیتها از رنگهای مختلف و تصادفی استفاد کند و تمام تکراری ها به یک رنگ در نیاید
    [size=medium][b]موفق باشيد[/b][/size]
  • m_d6712

    • 2010/05/22
    • 174

    #2
    RE: conditional formating

    این کد رو امتحان کن. من نمیدونم غیر از 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
    -------
    [url=http://md6712.com]http://md6712.com[/url]
    جامعه ایده پردازان: http://idekadeh.com

    کامنت

    • runmohsen

      • 2010/06/13
      • 120

      #3
      RE: conditional formating

      تشکر میکنم از شما
      [size=medium][b]موفق باشيد[/b][/size]

      کامنت

      چند لحظه..