Kako spremeniti vrednost glede na barvo celice v Excelu?
Ta članek govori o samodejnem spreminjanju vrednosti celice glede na barvo ozadja v Excelu. Če se celice na primer napolnijo z rdečo barvo ozadja, nato te celice napolnite s številko 1, za celice z modro barvo ozadja pa izpolnite številko 0.
Spremenite vrednost glede na barvo celice s kodo VBA
Spremenite vrednost glede na barvo celice s kodo VBA
Spodnjo kodo VBA lahko zaženete, da spremenite vrednost glede na barvo celice v Excelu. Naredite naslednje.
1. Izberite obseg, ki ga želite spremeniti glede na barvo ozadja, nato pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte in prilepite spodnjo kodo VBA v okno modula.
Koda VBA: Spremenite vrednost glede na barvo celice v Excelu
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 Sub3. Pritisnite F5 tipko za zagon kode, potem lahko vidite, da so vse rdeče celice v izbranem obsegu napolnjene s številko 1, modre celice pa s številko 0, kot je prikazano spodaj.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
