10. september 2008 - 17:50Der er
3 kommentarer og 1 løsning
Speciel betinget formatering i VBA
Hej Alle.
Jeg har en pivottabel, hvor jeg vil lægge en betinget formatering bagved, som en makro.
Den skal fungere sådan, at når jeg laver en ændring i celle B1, skal der automatisk køres en betinget formatering i en makro. Den betingede formatering skal være i celle B6 til M100. Det skal være således: <65=rød farve >65=grøn farve
Jeg har her prøvet mig lidt frem, men det fungere ikke:
Private Sub Worksheet_Calculate() Application.EnableEvents = False farvrow Application.EnableEvents = True End Sub
Sub Test2() With Range("A1:M100") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=OG(A1:M100=<65)" .FormatConditions(1).Interior.ColorIndex = 9 .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=OG(A1:M100=>65)" .FormatConditions(2).Interior.ColorIndex = 15 End With End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then farvrow End Sub
Sub farvrow() With Range("B6:M100") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _ Formula1:="65" .FormatConditions(1).Interior.ColorIndex = 3 .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _ , Formula1:="65" .FormatConditions(2).Interior.ColorIndex = 10 End With End Sub
Sub farvrow() Range("B6:M100").Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=OG(B6<65; B6<>"""")" .FormatConditions(1).Interior.ColorIndex = 3 .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="65" .FormatConditions(2).Interior.ColorIndex = 10 End With End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
