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 Sub

3. 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.