Hej Titta på objektet range - tror det har en backcoloregenskap. Du kan jo også spille inn et macro og se på koden som generes av Excel.. Den här koden färgar området med olika färger beroende vilken bokstav du skriver in Färger i Excel-Vb
Är det någon som kan hjälpa mig med problemet med att få färger i Excel-vb
Om jag har en specifik area (c10:ag45) och jag markerar en cell inom området och skriver "A" så skall denna färgas röd eller om jag skriver "B" så skall denna bli blå osv... Jag vill kunna ange ca 5-10 olika färger. Jag vet att det finns en automation i Excel " Conditional formatting" men jag vill ha en vbkod.
Någon som vet en bra lösning
Tack EjnarSv: Färger i Excel-Vb
sen kan du i ditt program definiera Konstanter, där a = färgkod för röd etc...
/EmmaSv: Färger i Excel-Vb
Sv: Färger i Excel-Vb
Du får fylla på med fler koder och kodnr
Koden skall ligga i bladets kodmodul
<code>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bgColor
If Not Application.Intersect(Range(Target.Address), Range("C10:AG45")) Is Nothing Then
Select Case UCase(Left(Target.Value, 1))
Case "A": bgColor = 1
Case "B": bgColor = 2
Case "C": bgColor = 3
Case "D": bgColor = 4
Case "E": bgColor = 5
Case "F": bgColor = 6
Case Else: bgColor = 1
End Select
Me.Range("C10:AG45").Interior.ColorIndex = bgColor
End If
End Sub
</code>