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.