Sut i newid lliw siâp yn seiliedig ar werth celloedd yn Excel?
Gall newid lliw siâp yn seiliedig ar werth celloedd penodol fod yn dasg ddiddorol yn Excel, er enghraifft, os yw gwerth y gell yn A1 yn llai na 100, mae lliw y siâp yn goch, os yw A1 yn fwy na 100 ac yn llai na 200, bydd y mae lliw siâp yn felyn, a phan fydd A1 yn fwy na 200, mae lliw y siâp yn wyrdd fel y dangosir y screenshot canlynol. I newid lliw y siâp yn seiliedig ar werth cell, bydd yr erthygl hon yn cyflwyno dull i chi.
Newid lliw siâp yn seiliedig ar werth celloedd gyda chod VBA
Newid lliw siâp yn seiliedig ar werth celloedd gyda chod VBA
Gall y cod VBA isod eich helpu chi i newid lliw siâp yn seiliedig ar werth cell, gwnewch fel a ganlyn:
1. Cliciwch ar y dde ar y tab dalen rydych chi am newid lliw siâp, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau ffenestr.
Cod VBA: Newid lliw siâp yn seiliedig ar werth celloedd:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. Ac yna pan fyddwch chi'n nodi'r gwerth yng nghell A1, bydd lliw'r siâp yn cael ei newid gyda gwerth y gell fel y gwnaethoch chi ei ddiffinio.
Nodyn: Yn y cod uchod, A1 yw'r gwerth cell y byddai eich lliw siâp yn cael ei newid yn seiliedig ar, a'r 1 Oval yw enw siâp eich siâp wedi'i fewnosod, gallwch eu newid i'ch angen.
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!