Jak změnit hodnotu na základě barvy buňky v aplikaci Excel?
Tento článek hovoří o automatické změně hodnoty buňky na základě barvy pozadí v aplikaci Excel. Například pokud se buňky ve výběru vyplňují červenou barvou pozadí, pak tyto buňky naplňte číslem 1 a u buněk s modrým pozadím vyplňte číslo 0.
Změňte hodnotu na základě barvy buňky pomocí kódu VBA
Změňte hodnotu na základě barvy buňky pomocí kódu VBA
Spuštěním níže uvedeného kódu VBA můžete změnit hodnotu na základě barvy buňky v aplikaci Excel. Postupujte prosím následovně.
1. Vyberte rozsah, který potřebujete ke změně hodnot na základě barvy pozadí, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte a vložte níže uvedený kód VBA do okna modulu.
Kód VBA: Změňte hodnotu na základě barvy buňky v aplikaci Excel
Sub ChangeValueBasedOnCellColor()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.Color
Case Is = 255 'Red
.Value = 1
Case Is = 15773696 'Blue
.Value = 0
End Select
End With
Next
Application.DisplayAlerts = False
End Sub
3. zmáčkni F5 klíč ke spuštění kódu, pak můžete vidět, že všechny červené buňky ve vybraném rozsahu jsou vyplněny číslem 1 a modré buňky jsou vyplněny číslem 0, jak je uvedeno níže.
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!