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

Sut i newid lliw tab dalen yn seiliedig ar werth celloedd?

Fel rheol, gallwch chi newid lliw y tab yn hawdd ac yn gyflym yn Excel, ond, a ydych chi erioed wedi ceisio newid lliw'r tab yn seiliedig ar werth celloedd mewn taflen waith? Os oes gennych ddiddordeb yn y dasg hon, byddaf yn siarad am rai codau i chi liwio'r tab dalen yn seiliedig ar werth celloedd penodol yn Excel.

Newid lliw tab un ddalen yn seiliedig ar werth celloedd gyda chod VBA

Newid tabiau dalennau lluosog yn seiliedig ar werth celloedd gyda chod VBA


swigen dde glas saeth Newid lliw tab un ddalen yn seiliedig ar werth celloedd gyda chod VBA

Er enghraifft, rwyf am y bydd lliw tab y ddalen gyfredol yn wyrdd os mai gwerth y gell yn A1 yw'r testun “GWIR”, bydd lliw'r tab yn goch os yw'r testun yn A1 yn “GAU”, a bydd lliw y tab yn las os y gwerth yng nghell A1 yw unrhyw destun arall fel y dangosir y llun a ganlyn:

taflen liw doc yn ôl gwerth 1

1. Cliciwch ar y dde ar y tab dalen rydych chi am newid ei liw yn seiliedig ar y data yng nghell A1, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i'r Modiwlau ffenestr.

Cod VBA: Newid lliw tab un ddalen yn seiliedig ar werth celloedd:

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

taflen liw doc yn ôl gwerth 2

Nodyn: Yn y cod uchod, A1 yw'r cyfeirnod cell rydych chi am liwio'r tab yn seiliedig arno, “Cywir","Anghywir”Yw'r testun sydd ei angen arnoch chi, gallwch eu newid i'ch angen, a gallwch chi newid y lliw yn y cod yn ôl yr angen.

3. Yna arbedwch a chau y ffenestr god hon, nawr, pan fyddwch chi'n nodi'r testun “Gwir” yng nghell A1, bydd lliw cyfredol y tab yn dod yn wyrdd, a phan fyddwch chi'n nodi'r testun “Anghywir” yng nghell A1, bydd lliw'r tab yn dod yn goch, ac os yw testun arall yn cael ei roi yn y gell A1, bydd lliw y tab yn dod yn las yn awtomatig.


swigen dde glas saeth Newid tabiau dalennau lluosog yn seiliedig ar werth celloedd gyda chod VBA

Os oes angen i chi newid lliw tabiau dalennau lluosog yn seiliedig ar werth cell, dyma hefyd god a allai eich helpu chi, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, yn y ffenestr a agorwyd, cliciwch ddwywaith Llyfr Gwaith hwn O dan y Prosiect VBA adran, yna copïwch a gludwch y cod isod i'r gwag Modiwlau:

Cod VBA: Newid tabiau dalennau lluosog yn seiliedig ar werth celloedd:

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

taflen liw doc yn ôl gwerth 3

Nodyn: Yn y cod uchod, A1 a Master yw'r gell a'r daflen waith rydych chi am liwio'r tab yn seiliedig arni, Sheet1, Sheet2, Sheet3 yw'r taflenni gwaith rydych chi am liwio'r tabiau. KTE, KTW, KTO yw'r gwerthoedd celloedd yn A1 rydych chi am liwio'r tabiau yn seiliedig arnyn nhw, gallwch chi newid y cyfeiriadau a'r lliwiau yn y cod yn ôl yr angen.

2. Yna arbedwch a chau y ffenestr god hon, nawr, pan fyddwch chi'n nodi'r testun KTE yng nghell A1 y ddalen Feistr, bydd tab Sheet1 wedi'i liwio mewn coch, pan fyddwch chi'n mynd i mewn i KTO yng nghell A1, bydd y Daflen 2 wedi'i lliwio'n wyrdd, a phryd rydych chi'n mynd i mewn i KTW yng nghell A1, bydd y Daflen3 wedi'i lliwio mewn glas, gweler y screenshot:

taflen liw doc yn ôl gwerth 4


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (21)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr.
helpwch fi yn garedig i sut i newid lliw y tab dalen yn seiliedig ar ddyddiad/diwrnod.

ar gyfer ee:-
os mai dydd Sul yw dalen Rhif 1 yna - tab dalen 'COCH'
os mai dydd Llun yw dalen Rhif 2 yna - tab dalen 'Gwyrdd'
os mai dydd Mawrth yw dalen Rhif 3 yna - tab dalen 'Gwyrdd'
os mai dydd Mercher yw dalen Rhif 4 yna - tab dalen 'Gwyrdd'
os mai dydd Iau yw dalen Rhif 5 yna - tab dalen 'Gwyrdd'
os mai dydd Gwener yw dalen rhif 6 yna - tab dalen 'Gwyrdd'
os yw dalen rhif 7 yn ddydd Sadwrn yna - tab dalen 'Gwyrdd'

helpa fi yn garedig ar gyfer y mater excel uchod.

Diolch ac o ran
Faiz Ibn Uvaiz P.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae eich disgrifiad ychydig yn annelwig o ran yr hyn yr ydych yn ceisio ei wneud mewn gwirionedd. Os mai dim ond am wythnos yw'r llyfr gwaith yna lliwiwch y tabiau. Os yw'r hyd yn fwy nag wythnos, yna mae'r datrysiad ychydig yn fwy cymhleth. Hyd nes y byddwch yn manylu ar y broblem, mae yna nifer o atebion ar gael. Ni fyddaf i, na llawer o bobl, yn treulio ein hamser yn codio 2,000 o atebion i chi am ddim. Ond rydych chi'n manylu ar y broblem y gallem ddarparu 1 ateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut alla i newid lliw tab yn dibynnu ar y tywydd mae gan ystod o gelloedd destun ynddynt
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla yn gweithio i 'Gwir' - tab dalen yn GOCH, felly mae hynny'n wych ond os ydw i'n ei newid o 'Gwir' i 'Anghywir' rydw i eisiau i'r tab dalen gael 'dim lliw'. Beth yw'r fformiwla ar gyfer dim lliw ar y tab dalen os na ddewisir 'Gwir'? Hefyd os ydw i eisiau i'r fformiwla fod ar gyfer grŵp o gelloedd ee. A1: A30 beth yw'r cod rwy'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Shannon:
Efallai y bydd y cod VBA canlynol yn gwneud ffafr i chi, rhowch gynnig arni:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Gosod xRg = Croestorri(Targed, Ystod ("A1: A30"))
Os yw xRg Yn Ddim Yna Ymadael Is
Dewiswch Achos Target.Value
Achos "Gwir"
Me.Tab.Color = vbRed
Achos "Gau"
Me.Tab.Color = Gau
Diwedd Dewis
Is-End

Gobeithio y gall hyn eich helpu chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gael lliw y tab i newid yn seiliedig ar y canlynol: Mae gen i dab meistr lle mae rhesi 3-7 wedi'u lliwio'n las a byddant yn cyfateb i dabiau cyfatebol 3-7 (sy'n cael eu henwi ar sail gwerthoedd celloedd yn y meistr yn y rhesi hynny) yr hoffwn eu lliwio'n las. Yna mae rhesi 8-12 wedi'u lliwio'n wyrdd a hefyd yn cyfateb i dabiau 8-12 ac yn y blaen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hynny'n un tric anhygoel.
Cysylltais y lliw tab yn seiliedig ar werth cell A1 (<> 0 RED a = 0 Green), fodd bynnag, mae'r macro yn gweithredu dim ond os byddaf yn dewis A1 , y wasg F2 ac yna pwyswch enter. Heb wneud hyn er y dylai lliw y tab ( yn seiliedig ar ei werth ) fod , dyweder Coch , ond yn aros yn wyrdd.
Rwy'n defnyddio excel 2007.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl gwneud i hyn weithio pan all cell A1 gael y 3 ateb i gyd ar linellau ar wahân o fewn y gell? Hynny yw, mae KTE, KTO a KTW i gyd yn bresennol yn y gell gan ei fod yn caniatáu detholiadau lluosog o gwymplen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio defnyddio'r cod hwnnw a'i gymhwyso i flwch siec, felly pan fyddaf yn ticio'r blwch, mae'r lliw yn newid, os byddaf yn ei ddad-dicio, mae'n newid yn ôl (cefais yn wir = gwyrdd, ffug = coch , arall = coch) . Ond pan fyddaf yn gwirio ac yn dad-dicio mae'n taflu gwall 'angen gwrthrych'


Is-Flwch Ticio Preifat1_Cliciwch()
_____If Target.Address = "$e$5" Yna 'gwall yma
____Dewiswch Achos Targed.Gwerth
__________Achos "Gau"
_______________Me.Tab.Color = vbRed
__________Achos "Gwir"
_______________Me.Tab.Color = vbGreen
__________Achos Arall
_______________Me.Tab.Color = vbRed
__________Diwedd Dewis
_____Diwedd Os
Is-End

Fe wnes i ei gopïo a'i gludo i'w weld yn rhedeg ac yna ei addasu i fy angen ond ni fyddwn yn dod o hyd i ffordd i wneud iddo redeg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl gydweithwyr,
Gofynnwch yn garedig am help. Mae angen i mi newid lliw y tab dalen yn seiliedig ar werth yn fformat [h]:mm. Er enghraifft, os yw'r gwerth yn is na 20:00 - coch, > 20:00 gwyrdd.
Diolch ac o ran!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl gydweithwyr,
Gofynnwch yn garedig am help. Mae angen i mi newid lliw y tab dalen yn seiliedig ar werth yn fformat [h]:mm. Er enghraifft, os yw'r gwerth yn is na 20:00 - coch, > 20:00 gwyrdd.
Diolch ac o ran!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Victor,
Gall y cod VBA isod ddatrys eich problem, ceisiwch, gobeithio y gall eich helpu chi!

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xStr Fel Llinyn
Dim xSN Fel Llinyn
Dim xDate Fel Llinynnol
Dim xCyfeiriad Fel Llinyn
Dim xArr() Fel Llinynnol
Dim xI1 Fel Cyfanrif
Dim xSM Fel Llinyn
xDate = "20:00"
xAddress = "$A$1"
If Target.Address <> xAddress Yna Gadael Is
xStr = Target.Text
xArr = Hollti(xStr, ":")
Os (UBound(xArr) - LBound(xArr) + 1) > 2 Yna Gadael Is
xI1 = Int(xArr(0))
Os (Len(xArr(0))) - 2) < 1 Yna
Os xI1 > 23 Yna Ymadael Is
arall
Is Allanfa
Gorffennwch Os
xSM = xArr(1)
Ar Gwall Ewch i Gwall01
Os (Len(xSM) - 2) <> 0 Yna Gadael Is
Os Int(Chwith(xSM, 1)) > 5 Yna Gadael Is
Os Int(Iawn(xSM, 1)) > 10 Yna Gadael Is
Os xI1 >= 20 Yna
Me.Tab.Color = vbGreen
arall
Me.Tab.Color = vbRed
Gorffennwch Os
Gwall 01:
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Skyyang,
Ymddiheuriadau am yr adborth rhy hwyr. Mae'r fformiwla hon yn gweithio pan fyddaf yn newid y gwerth yn y gell â llaw. Ond nid dyna oedd ei angen arnaf.
Mae gwerth y gell yn ganlyniad i fformiwla o ddalennau gwahaniaeth. Er enghraifft, dyma'r fformiwla yn y gell "O13-'520'!AD3". Mae hyn yn golygu bod y gwerth yn y gell hon yn newid yn dibynnu ar werth y gell ohiriedig yn y daflen atal. Yr hyn sydd ei angen arnaf yw bod lliw'r ddalen yn cael ei newid yn awtomatig pan fydd y gwerth yn y gell "O13-'520'! AD3" yn cael ei newid, pan fydd y gwerth yn y gell "O13-'520'! AD3" yn is na 05:00 - coch , >20:00 gwyrdd, rhwng 05:00 a 20:00 brown.
Diolch i chi ymlaen llaw a gorau o ran!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb, sut mae newid lliw tab yn seiliedig ar werth penodol yng ngholofn y taflenni lluosog? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddech chi'n cysylltu'r tab â gwerth mewn tab gwahanol. Yn fy enghraifft mae gen i un tab gyda'r holl wybodaeth sy'n hidlo allan i dabiau amrywiol yn awtomatig. Fodd bynnag, bydd pob tab yn darllen yn wyrdd neu'n goch, yn dibynnu a oes balans yn weddill ar y prif dab. A ellir gwneud hyn gan ddefnyddio'r cod hwn ac os felly, ble ydw i'n ysgrifennu'r ddolen i'r brif daflen yn y cod hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Erioed wedi gwneud cod yn excel o'r blaen. Mae angen cod arnaf sy'n gwneud yr hyn y mae'r cod hwn yn ei wneud, ond mae angen paramedr arall arnaf.

Felly yr hyn sydd ei angen arnaf yw:

Os nad yw gwerth cell yn 0, a/neu os oes gan ryw gell arall rifau ynddi, gan ddefnyddio cyfrif, yna newidiwch y lliw i goch

Os yw gwerth celloedd yn 0 a bod y celloedd eraill hynny'n wag, gan ddefnyddio cyfrif, yna newidiwch y lliw i wyrdd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ceisio cael newid lliw tab yn seiliedig ar werth ar ddalen ar wahân o'r enw Olrhain dyma beth wnes i geisio ond nid yw'n ymddangos ei fod yn gweithio. Diolch




Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

'Updateby Extendoffice 20160930

If Target.Address = "Tracio!$C$2" Yna

Dewiswch Achos Target.Value

Achos "ip"

Me.Tab.Color = vbRed

Achos "w"

Me.Tab.Color = vbYellow

Achos "c"

Me.Tab.Color = vbGreen

Achos Arall

Me.Tab.Color = vbBlue

Diwedd Dewis

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Brad,
I wneud i'r cod redeg yn gywir, ni ddylech fewnosod enw'r ddalen yn y cod, afalwch y cod canlynol: (cliciwch ar enw'r ddalen rydych chi am redeg y cod hwn, ac yna de-gliciwch enw'r ddalen, a dewis Gweld Cod, yna gludwch y cod i'r modiwl)

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

'Updateby Extendoffice 20160930

If Target.Address = "$C$2" Yna

Dewiswch Achos Target.Value

Achos "ip"

Me.Tab.Color = vbRed

Achos "w"

Me.Tab.Color = vbYellow

Achos "c"

Me.Tab.Color = vbGreen

Achos Arall

Me.Tab.Color = vbBlue

Diwedd Dewis

Gorffennwch Os

Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych i newid i liw'r tab yn seiliedig ar un o 2 ganlyniad fformiwla mae gen i fformiwla o =IF((AND(AA1="Meddiannu", AA2="Meddiannu", AA3="Meddiannu", AA4="" Wedi'i feddiannu")),,"Meddiannu", "Wag")
Dwi angen i'r tab fod yn goch os "Occupied" a gwyrdd os "Wag". Fodd bynnag, nid yw'r cod uchod yn y prif bostiad yn adnabod allbwn Os Na
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ,
Mae angen rhywfaint o help arnaf
Mae angen i mi newid lliw y tab dalen dim ond os mewn ystod benodol o gelloedd, mae dyddiad heddiw
Dywedwch er enghraifft,
Mae gan golofn L rai dyddiadau yn y fformat (13-Mai-22)
Un o'r gwerth cell yw dyddiad heddiw, yna dylai lliw y daflen tab newid i goch
Os gwelwch yn dda helpu
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn i'm tab newid lliw os oes gan unrhyw gell yng ngholofn O neu golofn P werth ynddo. Ydy hyn yn bosibl?

Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir