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
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:
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
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.
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
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:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!