Note: The other languages of the website are Google-translated. Back to English

Hvordan ændres arkfane farve baseret på celleværdi?

Normalt kan du ændre fanefarven let og hurtigt i Excel, men har du nogensinde prøvet at ændre fanefarven baseret på celleværdien i et regneark? Hvis du er interesseret i denne opgave, vil jeg tale om nogle koder for dig at farve arkfanen baseret på en bestemt celleværdi i Excel.

Skift en arkfane farve baseret på celleværdi med VBA-kode

Skift flere arkfaner baseret på celleværdi med VBA-kode


pil blå højre boble Skift en arkfane farve baseret på celleværdi med VBA-kode

For eksempel vil jeg have, at den aktuelle arkfane farve er grøn, hvis celleværdien i A1 er teksten "SAND", fanebladets farve vil være rød, hvis teksten i A1 er "FALSK", og fanebladets farve vil være blå, hvis værdien i celle A1 er enhver anden tekst, som følgende skærmbillede vises:

doc farveark efter værdi 1

1. Højreklik på arkfanen, som du vil ændre dens farve baseret på dataene i celle A1, og vælg derefter Vis kode fra kontekstmenuen.

2. I Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående VBA-kode i Moduler vindue.

VBA-kode: Skift en arkfane farve baseret på celleværdi:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

doc farveark efter værdi 2

Bemærk: I ovenstående kode, A1 er den cellehenvisning, som du vil farve fanen ud fra, “Sand","False”Er den tekst, du har brug for, du kan ændre dem til dit behov, og du kan ændre farven i koden, som du har brug for.

3. Gem og luk derefter dette kodevindue, når du nu indtaster teksten "Sand" i celle A1, bliver den aktuelle fanebladfarve grøn, og når du indtaster teksten "Falsk" i celle A1, bliver fanebladets farve rød, og hvis anden tekst indtastes i cellen A1, bliver fanebladets farve automatisk blå.


pil blå højre boble Skift flere arkfaner baseret på celleværdi med VBA-kode

Hvis du har brug for at ændre flere arkfanerfarve baseret på en celleværdi, her er også en kode, der kan hjælpe dig, skal du gøre som følger:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer dobbeltklik i det åbnede vindue ThisWorkbook under VBAProjekt sektion, kopier og indsæt derefter nedenstående kode i det tomme felt Moduler:

VBA-kode: Skift flere arkfaner baseret på celleværdi:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

doc farveark efter værdi 3

Bemærk: I ovenstående kode, A1 og Master er cellen og regnearket, som du vil farve fanen ud fra, Sheet1, Sheet2, Sheet3 er de regneark, du vil farve fanerne. KTE, KTW, KTO er de celleværdier i A1, som du vil farve fanerne ud fra, kan du ændre referencer og farver i koden, som du har brug for.

2. Gem og luk derefter dette kodevindue, nu når du indtaster teksten KTE i celle A1 i masterarket, vil fane Ark1 blive farvet i rødt, når du indtaster KTO i celle A1, vil ark2 blive farvet i grønt, og når du indtaster KTW i celle A1, vil Sheet3 blive farvet i blåt, se skærmbillede:

doc farveark efter værdi 4


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (23)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære hr.
hjælp mig venligst med at ændre arkfanefarven baseret på dato/dag.

for fx:-
hvis ark nr. 1 er søndag, så - arkfane 'RED'
hvis ark nr. 2 er mandag, så - arkfane 'Grøn'
hvis ark nr. 3 er tirsdag, så - arkfane 'Grøn'
hvis ark nr. 4 er onsdag, så - arkfane 'Grøn'
hvis ark nr. 5 er torsdag, så - arkfane 'Grøn'
hvis ark nr. 6 er fredag, så - arkfane 'Grøn'
hvis ark nr. 7 er lørdag, så - arkfane 'Grøn'

hjælp mig venligst med ovenstående excel-problem.

Tak og hilsen
Faiz Ibn Uvaiz P.
Denne kommentar blev minimeret af moderatoren på webstedet
Din beskrivelse er lidt vag med hensyn til, hvad du egentlig forsøger at gøre. Hvis projektmappen kun er for en uge, skal du farvelægge fanerne. Hvis varigheden er længere end en uge, så er løsningen lidt mere kompleks. Indtil du detaljerer problemet, er der flere tilgængelige løsninger. Jeg, og mange mennesker, vil ikke bruge vores tid på at kode 2,000 løsninger for dig gratis. Men du beskriver problemet, vi kan give 1 løsning.
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan kan jeg ændre en fanefarve afhængigt af vejret en række celler har tekst i dem
Denne kommentar blev minimeret af moderatoren på webstedet
Formlen virker for "True" - arkfanen er RØD, så det er fantastisk, men hvis jeg ændrer den fra "True" til "False", vil jeg have, at arkfanen har "ingen farve". Hvad er formlen for ingen farve på arkfanen, hvis 'True' ikke er valgt? Også hvis jeg ønsker, at formlen skal være for en gruppe celler, f.eks. A1:A30 hvad er koden jeg bruger?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Shannon:
Følgende VBA-kode kan gøre dig en tjeneste, prøv den venligst:

Privat Sub Worksheet_Change (ByVal Target As Range)
Dim xRg As Range
Indstil xRg = Intersect(Target, Range("A1:A30"))
Hvis xRg ikke er noget, skal du afslutte Sub
Vælg Case Target.Value
Sagen "True"
Me.Tab.Color = vbRed
Sagen "False"
Me.Tab.Color = Falsk
Afslut Vælg
End Sub

Håber dette kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at få fanefarven til at ændre sig baseret på følgende: Jeg har en masterfane, hvor rækker 3-7 er farvet blå og vil svare til tilsvarende faner 3-7 (som er navngivet baseret på celleværdier i masteren i de rækker), som jeg gerne vil have farvet blå. Så er række 8-12 farvet grønne og svarer også til faneblade 8-12 og så videre.
Denne kommentar blev minimeret af moderatoren på webstedet
Det var et fantastisk trick.
Jeg sammenkædede fanefarven baseret på værdien af ​​celle A1 (<>0 RØD og =0 Grøn), men makroen udføres kun, hvis jeg vælger A1, trykker F2 og derefter trykker enter. Uden at gøre dette, selvom farven på fanen (baseret på dens værdi) skal være , siger rød, men forbliver grøn.
Jeg bruger excel 2007.
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt at få dette til at virke, når celle A1 kan have alle 3 svar på separate linjer i cellen? Det vil sige, at KTE, KTO og KTW alle er til stede i cellen, da det tillader flere valg fra en rulleliste.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at bruge den kode og anvende den på et afkrydsningsfelt, så når jeg markerer afkrydsningsfeltet, ændres farven, hvis jeg fjerner markeringen, ændres den tilbage (jeg fik true=grøn, falsk=rød, andet=rød) . Men når jeg markerer og fjerner markeringen, kaster det fejlen 'objekt påkrævet'


Privat underafkrydsningsfelt1_Klik()
_____If Target.Address = "$e$5" Så 'fejl her
__________Vælg Case Target.Value
__________ Sagen "falsk"
_______________Me.Tab.Color = vbRed
__________ Sagen "Sand"
_______________Me.Tab.Color = vbGrøn
__________ Tilfælde andet
_______________Me.Tab.Color = vbRed
__________ Afslut Vælg
_____Afslut Hvis
End Sub

Jeg kopierede og indsatte den for at se den køre og tilpassede den til mit behov, men jeg kunne ikke finde en måde at få den til at køre på.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære kolleger,
Spørg venligst om hjælp. Jeg er nødt til at ændre arkfanens farve baseret på værdi i format [h]:mm. For eksempel hvis værdien er under 20:00 - rød, >20:00 grøn.
Tak og hilsen!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære kolleger,
Spørg venligst om hjælp. Jeg er nødt til at ændre arkfanens farve baseret på værdi i format [h]:mm. For eksempel hvis værdien er under 20:00 - rød, >20:00 grøn.
Tak og hilsen!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Victor,
Nedenstående VBA-kode kan løse dit problem, prøv venligst, håber det kan hjælpe dig!

Privat Sub Worksheet_Change (ByVal Target As Range)
Dim xStr As String
Dim xSN Som streng
Dim xDato som streng
Dim xAddress As String
Dim xArr() Som streng
Dim xI1 Som heltal
Dim xSM Som streng
xDato = "20:00"
xAddress = "$A$1"
Hvis Target.Address <> xAddress Afslut Sub
xStr = Target.Text
xArr = Split(xStr, ":")
Hvis (UBound(xArr) - LBound(xArr) + 1) > 2 Afslut Sub
xI1 = Int(xArr(0))
Hvis (Len(xArr(0)) - 2) < 1 Så
Hvis xI1 > 23 Afslut Sub
Else
Exit Sub
End If
xSM = xArr(1)
Ved fejl GoTo Err01
Hvis (Len(xSM) - 2) <> 0 Afslut Sub
Hvis Int(Left(xSM, 1)) > 5 Afslut Sub
Hvis Int(Right(xSM, 1)) > 10 Afslut Sub
Hvis xI1 >= 20 Så
Me.Tab.Color = vbGrøn
Else
Me.Tab.Color = vbRed
End If
Err01:
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Skyyang,
Beklager den for sene tilbagemelding. Denne formel virker, når jeg manuelt ændrer værdien i cellen. Men det var ikke det, jeg havde brug for.
Celleværdien er resultatet af en formel fra differensark. Dette er for eksempel formlen i cellen "O13-'520'!AD3". Dette betyder, at værdien i denne celle ændrer sig afhængigt af værdien, som den udskydende celle i det udskydende ark. Det jeg har brug for er, at arkfarven ændres automatisk, når værdien i celle "O13-'520'!AD3" ændres, når værdien i cellen "O13-'520'!AD3" er under 05:00 - rød , >20:00 grøn, mellem 05:00 og 20:00 brun.
På forhånd tak og venlig hilsen!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle sammen, hvordan ændrer jeg fanefarve baseret på en bestemt værdi i kolonnen med flere ark? Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan ville du linke fanen til en værdi i en anden fane. I mit eksempel har jeg en fane med al information, der automatisk filtreres ud til forskellige faner. Hver fane vil dog læse grøn eller rød, afhængigt af om der er en udestående saldo på masterfanen. Kan dette gøres ved hjælp af denne kode, og hvis ja, hvor skriver jeg linket til masterarket i denne kode?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Aldrig lavet kode i excel før. Jeg har brug for en kode, der gør, hvad denne kode gør, men jeg har brug for en anden parameter.

Så det jeg har brug for er:

Hvis celleværdien ikke er 0, og/eller hvis en anden celle har tal i sig, skal du bruge tæller, og så skift farve til rød

Hvis celleværdien er 0, og de andre celler er tomme, skal du bruge tæller, og derefter ændre farven til grøn
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Forsøger at få fanefarveændring baseret på værdi på et separat ark kaldet Tracking her er, hvad jeg prøvede, men det ser ikke ud til at virke. Tak




Privat Sub Worksheet_Change (ByVal Target As Range)

'Opdatering af Extendoffice 20160930

Hvis Target.Address = "Sporing!$C$2" Så

Vælg Case Target.Value

Sag "ip"

Me.Tab.Color = vbRed

Sag "w"

Me.Tab.Color = vbYellow

Sag "c"

Me.Tab.Color = vbGrøn

Sag ellers

Me.Tab.Color = vbBlå

Afslut Vælg

End If

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Brad,
For at få koden til at køre korrekt, bør du ikke indsætte arknavnet i koden, brug venligst følgende kode:(klik på arknavnet, du vil køre denne kode, og højreklik derefter på arknavnet, og vælg Vis kode, så indsæt koden i modulet)

Privat Sub Worksheet_Change (ByVal Target As Range)

'Opdatering af Extendoffice 20160930

Hvis Target.Address = "$C$2" Så

Vælg Case Target.Value

Sag "ip"

Me.Tab.Color = vbRed

Sag "w"

Me.Tab.Color = vbYellow

Sag "c"

Me.Tab.Color = vbGrøn

Sag ellers

Me.Tab.Color = vbBlå

Afslut Vælg

End If

End Sub

Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ønsker at skifte til farve på fanen baseret på et af 2 udfald af en formel. Jeg har en formel på=IF((OG(AA1="Optaget",AA2="Optaget",AA3="Optaget",AA4=" Optaget")), "Optaget", "Ledig")
Jeg skal have fanen til at være rød, hvis "Besat" og grøn, hvis "Ledig". Koden ovenfor i hovedindlægget genkender dog ikke output fra If Than
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Jeg har brug for noget hjælp
Jeg skal kun ændre arkfanefarven, hvis den har dags dato i et bestemt celleområde
Sig f.eks.
Kolonne L har nogle datoer i formatet (13-maj-22)
En af celleværdierne er dagens dato, så skal fanearkets farve skifte til rød
Please hjælp
Tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne have min fane til at ændre farve, hvis en celle i kolonne O eller kolonne P har en værdi i den. Er dette muligt?

Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil indstille arkfanefarven baseret på farven på celle j4 i hvert ark. Der er 18+ faner og ønsker at opdatere fanefarverne, når projektmappen åbnes. Hvis jeg ikke kan opdatere, når den åbnes, kan jeg køre makroen, efter at holdene har opdateret arkene.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, træ
For at løse dit problem skal du anvende nedenstående kode: (Bemærk: Kopiér og indsæt nedenstående kode i ThisWorkbook kodetilstand)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Prøv venligst, håber det kan hjælpe dig!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL