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

Sut i osod lliw celloedd yn hafal i liw cell arall yn Excel?

Os ydych chi eisiau paru lliw cell ag un arall, gall dull yn yr erthygl hon eich helpu chi.

Gosod lliw celloedd yn hafal i liw cell arall gyda chod VBA


Gosod lliw celloedd yn hafal i liw cell arall gyda chod VBA


Gall y dull VBA isod eich helpu i osod lliw cell sy'n hafal i un arall yn Excel. Gwnewch fel a ganlyn.

1. Yn y daflen waith mae angen i chi gyd-fynd â lliw dwy gell, cliciwch ar y dde ar y tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, mae angen i chi gopïo a gludo cod VBA i mewn i ffenestr y Cod.

Cod VBA: Gosod lliw cell sy'n hafal i liw cell arall

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("C1").Interior.Color = Me.Range("A1").Interior.Color
End Sub

Nodyn: Yn y cod, A1 yw'r gell sy'n cynnwys y lliw llenwi y byddwch chi'n ei baru â C1. Newidiwch nhw ar sail eich anghenion.

Yna mae'r gell C1 wedi'i llenwi â'r un lliw â chell A1 ag islaw'r screenshot a ddangosir.

O hyn ymlaen, pan fydd lliw llenwi yn A1 yn cael ei newid, bydd C1 yn cael ei baru â'r un lliw yn awtomatig.


Erthyglau cysylltiedig:


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 (19)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r gell y cyfeirir ati ar gyfer lliw yn newid lliw yn seiliedig ar fformatio amodol. Nid yw'n ymddangos bod yr uchod yn gweithio gyda hynny ac mae'r celloedd cyrchfan yn aros yn wag. Sut y gellir cywiro hyn? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un broblem sydd gennyf. Yn gweithio ar gelloedd heb fformatio amodol ond nid yw'n gweithio gyda'r rhai sy'n gwneud hynny
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os oes gennych Excel 2010 neu ddiweddarach gallwch ddefnyddio'r swyddogaeth DisplayFormat i ddychwelyd lliw cell wedi'i fformatio'n amodol. Gweler isod:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Lliw
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
LP rydych chi'n hollol ANHYGOEL!!!!!!! Roeddwn i'n ceisio am yr amser hiraf i gael celloedd i gyd-fynd â lliw cefndir fformatio amodol! rydych chi'n achubwr bywyd !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a ellir gwneud hyn ar ystod o gelloedd neu dim ond ar gyfer un gell?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a fyddai modd ymestyn hyn i fformat amodol; i beidio â chyfateb lliw a grëir gan fformat amodol, ond os caiff amod fformat amodol ei gyfateb, bod y fformat amodol cymhwysol yn cymryd lliw cell benodol. Wrth geisio defnyddio hwn mewn siart gantt, gan liwio'r dyddiau rhwng dyddiad cychwyn a dyddiad gorffen, ond dylai'r fformat amodol sy'n cynhyrchu'r bariau gantt gymryd lliw'r gell sy'n cynnwys y Dasg (a osodais â llaw)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A fyddech cystal ag ysgrifennu cod i gymhwyso fformatio amodol o golofn o ddata i'r golofn nesaf? Yng ngholwm A, mae gennyf gyfres o ddata o A1 i A1000 gan gynnwys fformatio amodol sy'n cymhwyso lliw mewn rhai o'r celloedd. Mae angen i mi gymhwyso'r lliwiau hynny i'r gwerthoedd yn y golofn nesaf B1 i B1000.
gwerthfawrogwyd yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo , sut i gymhwyso'r un VBA ond ar ystod o gelloedd er enghraifft :

Rwyf am gael yr un lliw o amrediad (C8:X8) i'w gymhwyso ar yr ystod (S16:AL16) fesul un yn yr un drefn (S16 yn cael lliw C16 , T16 yn cael lliw D8 .... ac ati)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,

Gall y cod VBA isod eich helpu i ddatrys y broblem. Diolch am eich sylw.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xSRg, xDRg, xISRg, xIDRg Fel Ystod
Dim xFNum Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Gosod xSRg = Ystod ("C8: X8")
Gosod xDRg = Ystod ("S16: AL16")
Ar gyfer xFNum = 1 I xSRg.count
Gosod xISRg = xSRg.Item(xFNum)
Gosod xIDRg = xDRg.Item(xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
xFNum nesaf
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Rwy'n ceisio gwneud tebyg, ond mae gen i ddwy daenlen (ffeiliau). Taenlen 1 yw'r Meistr lle mae'r data'n cael ei ddiweddaru â llaw a ffeil (taenlen 2) yn hafal i'r data yn yr un gell â thaenlen 1. Pan fyddaf yn agor taenlen 2, rwy'n cael anogwr i adnewyddu gyda thaenlen 1 heb unrhyw broblemau, ond os yw'r mae lliw y gell yn cael ei newid yn nhaenlen 1 nid yw'n diweddaru yn nhaenlen 2, ac nid yw 'streic cafn' o ffontiau...yn helpu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn ddechrau da i'r hyn yr wyf yn edrych i'w wneud. Ond rydw i'n edrych am rywbeth ychydig yn fwy cymhleth

Sut allwn i addasu hyn i fod yn berthnasol i resi lluosog ac ystod. Er enghraifft mae gen i golofn bennawd yng Ngholofn B, rydw i eisiau i gelloedd o G i CS gydweddu â lliw rhes y pennawd ond dim ond bod ganddyn nhw rywbeth ynddyn nhw hy y llythyren x. Gwn y gallaf ysgrifennu datganiad IF a THEN ond sut y byddwn yn ei gymhwyso i resi lluosog heb ysgrifennu cod ar gyfer pob rhes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Zack,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Unrhyw gwestiwn am Excel, peidiwch ag oedi cyn postio yn ein fforwm: https://www.extendoffice.com/forum.html.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Canfûm fod eich cod yn 'gosod lliw cell i fod yn hafal i liw cell arall" ac mae'n gweithio pan fyddaf yn ei ddefnyddio ar yr un daflen waith (ex o gell A1 i gell A2). Yr wyf yn meddwl tybed a oes ffordd i gael hwn yr un peth ymarferoldeb o daflen waith arall (cyn i gopïo lliw cell o ddalen 1!A1 i ddalen2!A1? Byddem yn gwerthfawrogi unrhyw gymorth y gallech ei gynnig!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel Chris mae gen i ddiddordeb mewn copïo'r lliw cefndir o daflen waith arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw - mae hyn yn wych. Gobeithio y gallwch chi fy helpu i addasu'ch sgript i'm hanghenion. Mae angen i mi wneud celloedd D10:D200 yn cyfateb i liw celloedd wedi'u fformatio'n amodol A10:A200 - allwch chi fy helpu i gael hyn i weithio os gwelwch yn dda. Mae'r celloedd i gyd yn yr un daflen waith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi atodi sgrin lun o'r ffeil Rwy'n gweithio arno - nid yw'n ymddangos fy mod yn gallu uwchlwytho ffeil .xlsm? Yn y ffeil hon rwyf wedi defnyddio'r VBA gwreiddiol o'r edefyn hwn a gallaf nawr gydweddu â lliw fformatio amodol cell A10 yn D10. Sut alla i gael hyn i weithio ar ystod o gelloedd? Hoffwn gael lliw yr ystod o gelloedd A10:A200 i'w trosglwyddo i D10:D200. All unrhyw un helpu os gwelwch yn dda? Mae yna gwymplen yn cael ei defnyddio yn y golofn A ond unwaith rydyn ni wedi gosod archeb mae angen i ni allu gor-deipio rhif yr archeb brynu. Mae'r eitemau yn y rhestr i gyd wedi'u gosod i fformatio'n amodol i liw (ee mae GORCHYMYN Iawn yn troi'r gell yn wyrdd, CLIENT TBC yn troi'r gell yn felyn) ond mae'r lliw yn mynd yn wag unwaith y bydd y PO wedi'i roi i mewn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni uwchlwythwyd y llun - gobeithio wedi'i atodi nawr....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - dwi'n cael amser anodd yn defnyddio'ch cod. Rwy'n ceisio gwneud yn union yr hyn yr ydych yn ei ddweud. Gwnewch i un gell fod yr un lliw â chell arall (heb unrhyw werthoedd angenrheidiol) ar yr un ddalen. A oes rhywbeth yn y cod hwnnw y dylid ei addasu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio newid celloedd dewch i gyd-fynd ag un arall sydd wedi'i fformatio'n amodol. Eich cod 
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").DisplayFormat.Interior.Lliw
Is-End
Addasais i
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Me.Range("A2:C2").Interior.Color = Me.Range("D2").DisplayFormat.Interior.Lliw
Is-End

Mae hyn yn gweithio'n iawn ar gyfer un rhes yn unig. Sut mae cael hwn i weithio ym mhob un o'r rhesi sydd eu hangen arnaf? Os byddaf yn ailadrodd y cod gyda'r rhes nesaf
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Me.Range("A3:C3").Interior.Color = Me.Range("D3").DisplayFormat.Interior.Lliw
Is-End

Yna rwy'n cael gwall Llunio: Enw amwys wedi'i ganfod: Worksheet_SelectionChange
Ceisiais gael y cod fel Is-daflen Waith Breifat_SelectionChange(ByVal Target As Range)
Me.Range("A2:C10").Interior.Color = Me.Range("D2:D10").DisplayFormat.Interior.ColorEnd Is

Ond roedd y rhesi i gyd newydd lenwi du yn hytrach na'r lliwiau gofynnol. Pa godio sydd ei angen arnaf?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir