Dim Rng As Range For Each Rng In Selection rng2 = Rng.Offset(0, -1).Address Rng.FormatConditions.AddIconSetCondition.SetFirstPriority With Rng.FormatConditions(1) .IconSet = ActiveWorkbook.IconSets(xl3Arrows) .IconCriteria(2).Type = xlConditionValueNumber .IconCriteria(2).Value = "=" & rng2 .IconCriteria(2).Operator = 7 .IconCriteria(3).Type = xlConditionValueNumber .IconCriteria(3).Value = "=" & rng2 .IconCriteria(3).Operator = 5 End With Next End Sub 請參考~ https://www.dropbox.com/s/on19mc0qua8nz0h/test3.xlsb?dl=0
Recommended article: Chomsky: We Are All – Fill in the Blank. This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
You are receiving this email because you subscribed to this feed at blogtrottr.com.