Sut i newid gwerth yn seiliedig ar liw celloedd yn Excel?
Mae'r erthygl hon yn sôn am newid gwerth celloedd yn awtomatig yn seiliedig ar ei liw cefndir yn Excel. Er enghraifft, os yw celloedd sy'n llenwi â lliw cefndir coch wrth eu dewis, yna poblogwch y celloedd hyn â rhif 1, ac ar gyfer y celloedd lliw cefndir glas, llenwch rif 0.
Newid gwerth yn seiliedig ar liw celloedd gyda chod VBA
Newid gwerth yn seiliedig ar liw celloedd gyda chod VBA
Gallwch chi redeg y cod VBA isod i newid gwerth yn seiliedig ar liw celloedd yn Excel. Gwnewch fel a ganlyn.
1. Dewiswch yr ystod sydd ei hangen arnoch i newid gwerthoedd yn seiliedig ar liw cefndir, yna pwyswch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Newid gwerth yn seiliedig ar liw celloedd yn Excel
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 Sub3. Gwasgwch y F5 allwedd i redeg y cod, yna gallwch weld bod yr holl gelloedd coch mewn amrediad dethol yn cael eu llenwi â rhif 1, ac mae'r celloedd glas yn cael eu llenwi â rhif 0 fel y dangosir isod 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!
