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

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 Sub

3. 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.

 

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 (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa newidiadau i'r cod fyddai eu hangen petaech am i hwn fod yn berthnasol i liw testun cell, yn hytrach na lliw'r gell?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych i roi enw i gell yn seiliedig ar y lliw o fewn un daflen waith. hy os yw cell yn goch yna mae'n cael ei henwi yn "enw", os yw'n oren yna mae'n cael enwau "cyfenw" ayb.



Pa god fyddai angen ei newid i gael yr amrediad fel y ddalen/tab cyfan ac enw yn lle gwerth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos bod Excel yn chwalu pryd bynnag y ceisiaf redeg y cod VBA. Ymddangos fel penddelw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'r cod yn gweithio'n dda yn fy achos i. A allwch chi ddweud wrthyf eich fersiwn Excel? Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydw i yn yr un cwch, yn ceisio rhedeg hwn ond mae'r cod i'w weld yn cael ei hongian. Excel 2016.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a yw'n bosibl addasu'r cod hwn yn seiliedig ar y rheol fformatio amodol celloedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio'n iawn i mi, ond byddai angen i mi ailysgrifennu'r cod i ffitio lliwiau penodol ar gyfer fy nogfen. Ond wn i ddim pa god sydd gan "fy lliwiau", gall unrhyw un sy'n gwybod ble ymlaen ddod o hyd i godau ar gyfer lliwiau eraill?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n ei redeg, dwi'n rhedeg ond does dim byd i'w weld yn digwydd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch chi ddisodli lliwiau i werthoedd trwy ddefnyddio swyddogaeth Darganfod ac Amnewid yn unig. Ewch i'r swyddogaeth fformat ar ochr dde'r blwch deialog Darganfod ac Amnewid ac yna o dan "Llenwi" gallwch ddewis y lliw sydd gennych. Yna ar y "disodli gyda" ysgrifennwch y gwerth rydych chi ei eisiau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Deuthum ar draws y streic lwcus hon a oedd yn ddefnyddiol ond ddim yn gwybod ble i ddod o hyd i gyfeiriadur llawn!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd o wneud hyn, ond a yw'n mynd trwy sawl ffeil yn awtomatig?
Ar gyfer cyd-destun, anfonwyd holiaduron i gwpl gannoedd o gyfleusterau, mae eu hateb MC a ddewiswyd yn cyfateb i sgôr sy'n nodi lliw (ee mae gwyrdd yn dda, coch yn ddrwg), a newid cynnwys y gell (gyda phroses fel yn yr edefyn hwn) i rhywbeth y gallai R neu feddalwedd arall ei ddarllen, ac yna ei ddefnyddio i gynhyrchu adroddiadau awtomatig. Gallwn i fynd trwy bob un o'r ffeiliau hyn gyda'r macro hwn (neu syniad hollol wahanol), ond byddai hynny'n cymryd amser hir.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir