Jak změnit barvu tvaru na základě hodnoty buňky v aplikaci Excel?
Změna barvy tvaru na základě konkrétní hodnoty buňky může být zajímavým úkolem v aplikaci Excel, například pokud je hodnota buňky v A1 menší než 100, barva tvaru je červená, pokud je A1 větší než 100 a menší než 200, barva tvaru je žlutá, a když je A1 větší než 200, barva tvaru je zelená, jak ukazuje následující snímek obrazovky. Chcete-li změnit barvu tvaru na základě hodnoty buňky, tento článek vám představí metodu.
Změňte barvu tvaru na základě hodnoty buňky pomocí kódu VBA
Změňte barvu tvaru na základě hodnoty buňky pomocí kódu VBA
Níže uvedený kód VBA vám pomůže změnit barvu tvaru na základě hodnoty buňky, postupujte takto:
1. Klikněte pravým tlačítkem na kartu listu, kterou chcete změnit barvu tvaru, a poté vyberte Zobrazit kód z kontextové nabídky ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód do mezery Modul okno.
Kód VBA: Změna barvy tvaru na základě hodnoty buňky:
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. A poté, když zadáte hodnotu do buňky A1, barva tvaru se změní s hodnotou buňky, jak jste definovali.
Poznámka: Ve výše uvedeném kódu, A1 je hodnota buňky, na které by byla změněna barva tvaru, a Oválné 1 je název tvaru vloženého tvaru, můžete je podle potřeby změnit.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!