Hogyan lehet megváltoztatni az értéket az Excel cellájának színe alapján?
Ez a cikk arról szól, hogy a cellák értéke automatikusan megváltozik az Excel háttérszíne alapján. Például, ha a kiválasztás során vörös háttérszínnel töltik meg a cellákat, akkor töltse fel ezeket a cellákat 1-es számmal, a kék háttérszín cellák esetében pedig töltse ki a 0-as számot.
Érték módosítása a cella színe alapján, VBA kóddal
Érték módosítása a cella színe alapján, VBA kóddal
Az alábbi VBA-kód futtatásával megváltoztathatja az értéket az Excel cellájának színe alapján. Kérjük, tegye a következőket.
1. Válassza ki azt a tartományt, amelyen a háttérszín alapján változtatni kell az értékeket, majd nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA-kód: Érték módosítása az Excel cellaszínje alapján
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. megnyomni a F5 gombot a kód futtatásához, akkor láthatja, hogy a kiválasztott tartományban lévő összes vörös cellát kitölti az 1-es szám, a kék cellákat pedig a 0-as szám tölti ki, ahogy az alábbi képen látható.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!