Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako spremeniti vrednost glede na barvo celic v Excelu?

Ta članek govori o spreminjanju vrednosti celice, ki temelji na barvi ozadja v Excelu. Če na primer celice polnijo z rdečo barvo ozadja v izboru, jih nato zaokrožite s številko 1 in za barvne celice v modri barvi zapolnite številko 0.

Spremenite vrednost glede na barvo celice s kodo VBA


puščica modra desno mehurček Spremenite vrednost glede na barvo celice s kodo VBA


V spodnji kodi VBA lahko zaženete vrednost, ki temelji na barvi celice v Excelu. Prosimo, naredite na naslednji način.

1. Izberite obseg, ki ga potrebujete za spreminjanje vrednosti glede na barvo ozadja, nato pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato pa kopirajte in prilepite spodnjo kodo VBA v okno Modul.

VBA koda: spremenite vrednost glede na barvo celic 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 ključ za zagon kode, potem lahko vidite, da so vse rdeče celice v izbranem obsegu zapolnjene s številko 1, modre celice pa so napolnjene s številko 0, kot je prikazano spodaj.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JBrinx · 2 months ago
    Excel seems to crash whenever I try to run the VBA code. Seems like a bust.
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Good day,
      The code works well in my case. Can you tell me your Excel version? Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Dan · 1 years ago
    I'm looking to give a cell a name based on the colour within one worksheet. i.e. if a cell is red then it gets named "name", if it is orange then it gets names "surname" etc.



    What code would need to change to have the range as the whole sheet/tab and a name instead of a value?
  • To post as a guest, your comment is unpublished.
    Tim · 1 years ago
    What changes to the code would be needed if you wanted this to apply to the text color of a cell, rather than the cell color?