Sut i bennu a nodi mynegai lliw cefndirol celloedd yn Excel?
Pan fyddwch yn derbyn taflen gyda nifer o gelloedd lliwgar fel y dangosir isod, mewn rhai achosion, efallai yr hoffech nodi mynegai lliw cefndir y celloedd lliw hyn. Nid oes unrhyw nodwedd adeiledig a all bennu mynegai lliw cell, ond, yn yr erthygl hon, rwy'n cyflwyno rhai codau VBA i ddatrys y swydd hon yn Excel yn gyflym.
Nodwch liw cell â VBA
Gwnewch fel y camau canlynol i bennu lliw y gell gan VBA.
1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
2. Cliciwch Mewnosod > Modiwlau i agor newydd Modiwlau a gludo islaw cod VBA i'r sgript wag. Gweler y screenshot:
VBA: Sicrhewch god hecs traddodiadol y gell
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. Arbedwch y cod a chau'r ffenestr VBA. Dewiswch gell wag wrth ymyl y gell liw, teipiwch y fformiwla hon, = getRGB1 (A16), yna llusgwch y handlen autofill dros y celloedd rydych chi am eu defnyddio. Gweler y screenshot:
 |
 |
Tip: mae yna rai codau eraill sy'n gallu nodi mynegai lliw celloedd.
1. VBA: Gwerth degol ar gyfer pob cod
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End FunctionCanlyniad:
2. VBA: Gwerthoedd degol
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End FunctionCanlyniad:
dewiswch werthoedd dyblyg neu unigryw yn gyflym mewn ystod Excel |
| Yn nhaflen Excel, os oes gennych ystod sy'n cynnwys rhai rhesi dyblyg, efallai y bydd angen i chi eu dewis neu eu datrys, ond sut y gallwch chi ddatrys y swydd hon yn gyflym？ Os oes gennych chi Kutools for Excel, gallwch chi ddefnyddio'r Dewiswch Dyblyg a Celloedd Unigryw cyfleustodau i ddewis y rhai dyblyg neu'r gwerthoedd unigryw yn yr ystod yn gyflym, neu lenwi cefndir a lliw ffont ar gyfer y dyblygu a'r gwerthoedd unigryw. Cliciwch am 30 diwrnod treial am ddim! |
 |
| Kutools for Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i roi cynnig arnynt heb unrhyw gyfyngiad 30 diwrnod. |
Erthyglau Perthynas:
- Sut i newid lliw ffont yn seiliedig ar werth celloedd yn Excel?
- Sut i liwio gwerthoedd dyblyg neu ddyblygu rhesi yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
