Hvordan ændres formfarve baseret på celleværdi i Excel?
Skift formfarve baseret på en bestemt celleværdi kan være en interessant opgave i Excel, for eksempel hvis celleværdien i A1 er mindre end 100, er formfarven rød, hvis A1 er større end 100 og mindre end 200, er formfarve er gul, og når A1 er større end 200, er formfarven grøn som følgende skærmbillede vist. For at ændre formens farve baseret på en celleværdi introducerer denne artikel metode til dig.
Skift formfarve baseret på celleværdi med VBA-kode
Skift formfarve baseret på celleværdi med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at ændre formfarven baseret på en celleværdi, gør som følger:
1. Højreklik på arkfanen, som du vil ændre formfarven, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme felt Moduler vindue.
VBA-kode: Skift formfarve baseret på celleværdi:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Og så når du indtaster værdien i celle A1, ændres formfarven med celleværdien som du definerede.
Bemærk: I ovenstående kode, A1 er celleværdien din formfarve ville blive ændret baseret på, og Oval 1 er formnavnet på din indsatte form, kan du ændre dem til dit behov.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!