Eftersom det var så svårt att mata in reglerna manuellt så får du ett makro som loopar igenom cellerna i markeringen ooch petar in de 5 reglerna i varje cell (anpassa färger och regler).
Varje cell inehåller bara sina egna regler och man slipper sammanslagningarna som blir är man matar in manuellt
Sen kan du kopiera området med reglerna eller använda formatpenseln för att kopiera
OBS! markera området P4 till S11 innan du kör makrot.
Sub tjoho()
Dim rEnCell As Range
' markera P4 till S11.
' Radera gamla regler i området
Selection.FormatConditions.Delete
' loopa igenom de 32 cellerna och lägg till 5 regler i varje cell
For Each rEnCell In Selection.Cells
With rEnCell
.FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=1)"
.FormatConditions(.FormatConditions.Count).Interior.Color = vbRed
.FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=2)"
.FormatConditions(.FormatConditions.Count).Interior.Color = vbGreen
.FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=3)"
.FormatConditions(.FormatConditions.Count).Interior.Color = vbMagenta
.FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=4)"
.FormatConditions(.FormatConditions.Count).Interior.Color = vbYellow
.FormatConditions.Add Type:=xlExpression, Formula1:="=(Q7=5)"
.FormatConditions(.FormatConditions.Count).Interior.Color = vbCyan
End With
Next
End Sub
https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/color-constants
https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/rgb-function