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

Sut i newid lliw celloedd pan fydd cell yn cael ei chlicio neu ei dewis yn Excel?

Bydd yr erthygl hon yn dangos rhai dulliau i chi o sut i newid lliw celloedd wrth glicio ar gell, a newid y lliw a amlygwyd wrth ddewis ystod o gelloedd yn Excel.

Newid lliw celloedd pan fydd cell yn cael ei chlicio gyda chod VBA
Newidiwch y lliw a amlygwyd pan ddewisir celloedd â chod VBA
Tynnwch sylw at res a cholofn gyfan y gell weithredol gyda Kutools ar gyfer Excel


Newid lliw celloedd pan fydd cell yn cael ei chlicio gyda chod VBA

Yma, gallwch newid lliw cefndir cell wrth ei chlicio ddwywaith neu glicio arni gyda'r cod VBA canlynol.

1. Yn y daflen waith byddwch chi'n newid lliw'r gell wrth glicio arni, cliciwch ar y dde ar y tab dalen a chlicio Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA isod i'r Côd ffenestr.

VBA: newid lliw celloedd wrth glicio arno

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Yna, pan fyddwch chi'n clicio cell ddwywaith, bydd wedi'i lliwio mewn coch. A phan gliciwch ar dde ar gell, bydd wedi'i lliwio'n wyrdd. Gweler y screenshot:


Un clic i dynnu sylw at res a cholofn y gell a ddewiswyd yn Excel:

Kutools ar gyfer Excel's Cynllun Darllen mae cyfleustodau yn eich helpu i dynnu sylw at res a cholofn y gell a ddewiswyd yn Excel yn gyflym fel y demo isod.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr 30 diwrnod am ddim)


Newidiwch y lliw a amlygwyd pan ddewisir celloedd â chod VBA

Yn ddiofyn, wrth ddewis ystod o gelloedd, mae'r lliw a amlygwyd yn llwyd. Os ydych chi am wneud yr ystod a ddewiswyd yn fwy sefyll allan, gallwch newid ei liw wedi'i amlygu i'r un sydd ei angen arnoch chi. Gwnewch fel a ganlyn.

1. De-gliciwch y tab dalen rydych chi am newid lliw wedi'i amlygu'r ystod a ddewiswyd, a chlicio Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA isod i'r Côd ffenestr.

Cod VBA: newid lliw wedi'i amlygu'r ystod a ddewiswyd

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, mae lliw a amlygwyd yr ystod neu'r gell a ddewiswyd yn cael ei newid i felyn. Pan gliciwch gell arall neu ystod o gelloedd, bydd y celloedd yn cael eu lliwio'n awtomatig.


Tynnwch sylw at res a cholofn gyfan y gell weithredol gyda Kutools ar gyfer Excel

Os ydych chi'n delio â thaflen waith fawr, mae angen tynnu sylw at res a cholofn gyfan y gell actif er mwyn ei gwneud hi'n haws darllen. Yma mae'r Cynllun Darllen cyfleustodau Kutools ar gyfer Excel gallwch chi helpu.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Cliciwch Kutools > Cynllun Darllen. Gweler y screenshot:

Yna mae'r cynllun darllen wedi'i alluogi, gallwch weld bod rhes a cholofn y gell weithredol yn cael eu hamlygu ar unwaith.

Nodyn: Gallwch newid y gosodiadau cynllun darllen yn seiliedig ar eich anghenion fel isod llun a ddangosir.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Tynnwch sylw at res a cholofn gyfan y gell weithredol gyda Kutools ar gyfer Excel


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 (28)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch diolch yn fawr. Rwy'n eich gwerthfawrogi am hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wrth fy modd pa mor hawdd y byddai fformatio fy nhaflen waith y cod ar gyfer "newid lliw celloedd wrth glicio arno" yn gwneud fy ngwaith bob dydd! Rwy'n taro snag serch hynny. Pan fyddaf yn copïo fy Nhaflen Wag gyda'r cod a gofnodwyd fel y disgrifir, rwy'n cael gwall. Mae'n rhedeg yn wych nes i mi greu taflenni newydd. Rwy'n ddechreuwr mewn codio ac yn gweithio o werslyfrau a'r rhyngrwyd. Rwy'n gwerthfawrogi unrhyw help y byddwch yn ei gynnig!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Michelle,
Dilynais y camau fel y disgrifiwyd gennych, ond gweithiodd y cod yn fy achos i hefyd. A allwch chi ddweud wrthyf eich fersiwn Office?
Diolch am eich sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo. dim ond ychydig pennau i fyny. Rwy'n defnyddio office 2007.
Rhoddais gynnig ar eich cod, ac er ei fod yn gweithio, nid dyna'r oeddwn yn edrych amdano. felly dwi newydd ddileu'r cod yn gyfan gwbl. ond mae'r gell dethol / gweithredol olaf cyn dileu'r cod yn dal yn wyrdd (newidiais y lliw o vbYellow i vbGreen), ac ni fydd y lliw yn diflannu. nid yw lliw llenwi yn effeithio arno chwaith.
yr ateb symlaf i mi oedd dileu'r gell. ni fydd copïo a gludo yn gweithio, bydd hefyd yn copïo'r lliw.
newydd feddwl y byddwn i'n rhoi gwybod i chi. efallai y byddwch yn dod o hyd i ateb arall/datrys problemau ar gyfer hyn, ar wahân i ddileu a mynediad â llaw. dal, diolch! Rwy'n cadarnhau bod y cod yn gweithio :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i gymhwyso hyn i rai celloedd tra'n gadael celloedd eraill gyda'r nifer sy'n dod i mewn ar gael iddynt?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais yr opsiwn "Newid y lliw a amlygwyd pan fydd celloedd yn cael eu dewis gyda chod VBA" ac arbed fy excel fel Taflen Waith Galluogi Macro. Nawr mae'r celloedd olaf a ddewiswyd wedi'u hamlygu ac ni fyddant yn amlygu celloedd eraill pan gânt eu dewis. Rwyf wedi dileu'r cod ac wedi ail-gofnodi a chadw, ond dim newid o hyd. Ni allaf ddileu'r uchafbwynt blaenorol ychwaith. Rydw i ar goll o ran beth i'w wneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'r cod yn gweithio'n dda yn fy achos i ar ôl arbed y llyfr gwaith fel Excel Macro-Enabled Workbook.
A allwch chi ddweud wrthyf eich fersiwn Excel?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i broblem.
Rwyf am newid lliw un hyperddolen pe bai wedi cysylltu ag un PDF i GOCH ac os nad oedd wedi cysylltu ag un PDF bydd yn dangos lliw GLAS.
Sut alla i wneud nawr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch am roi sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Salam...
sy sudah gosod kutools, tp kok td muncul tab kutools di layar excel ya? gmn cara mmunculkannya?trimakasih
Lleihawyd y sylw hwn gan y safonwr ar y wefan
td muncul=tidak muncul
Lleihawyd y sylw hwn gan y safonwr ar y wefan
trimakasih
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bois, felly roeddwn i'n arfer codio yn gyntaf i newid lliw'r gell i wyrdd/coch ar doubleclick/rightclick. Fodd bynnag, hoffwn i'r cod hwn weithio ar ystod benodol o gelloedd yn unig, yn fy achos i D9:P9. all rhywun fy helpu ar sut i wneud hynny? Rwy'n newydd yn VBA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod VBA isod wneud ffafr i chi, rhowch gynnig arni. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Os (Not Application.Intersect(Targed, Me.Range("D9:P9"))) Yn Dim) Yna
Diddymu = Gwir
Target.Interior.Color = vbRed
Gorffennwch Os
Is-End
Is-daflen Waith Breifat_Cyn CywirCliciwch(ByVal Target As Range, Diddymu Fel Boole)
Os (Not Application.Intersect(Targed, Me.Range("D9:P9"))) Yn Dim) Yna
Diddymu = Gwir
Target.Interior.Color = vbGreen
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio darganfod sut i newid lliw cell, yn seiliedig ar ddetholiad o gwymplen. Er enghraifft, UCHEL = coch, CANOLIG = melyn, ISEL = gwyrdd.

Gwerthfawrogir yn fawr unrhyw awgrymiadau y gallwch eu darparu. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hi
mae'r grât yn gweithio ond rwyf am i'r lliw fod dim ond pan ddewisir y gell a phan ddewisaf rywbeth arall, ni ddylai'r gell gyntaf a ddewisais gael ei lliwio
allwch chi fy helpu pls gyda hyn diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un cwestiwn yn union oedd gen i! Rwy'n gobeithio y bydd rhywun yn eich ateb! Y rheswm pam rydw i'n chwilio am hyn yw bod gen i daenlen rydw i'n ei defnyddio bob dydd ac rydw i'n rhoi llawer o wybodaeth i mewn i gelloedd sengl. Mae'n mynd yn anodd gweld y gwerthoedd (yn weledol, mae'n rhedeg i mewn i wybodaeth mewn celloedd eraill), a byddai'n nodwedd wych pe gallwn newid lliw y gell sy'n cael ei golygu - dim ond tra ei bod yn cael ei golygu. Yr ateb symlaf y gallaf feddwl amdano yw y byddai gwerth y gell yn cael ei osod yn ôl i'r hyn ydoedd cyn cael ei glicio arno - ond nid wyf yn gwybod sut i wneud hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Swydd ardderchog
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
a yw'n bosibl cael cod ar gyfer "newid lliw celloedd wrth glicio arno" yn y ffordd na fydd yn newid celloedd sydd eisoes wedi'u fformatio gyda lliw arall, os gwelwch yn dda?
Ar ôl cymhwyso'ch cod mae fy holl fformatio (lliwiau) i ffwrdd. Diolch. Veronika
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio cyn belled nad wyf yn amddiffyn y daflen waith. Unwaith y byddaf yn amddiffyn y daflen waith, oherwydd bod gennyf fformatio amodol ar gelloedd wedi'u cloi, ni fydd y cod yn gweithio. Sut alla i newid hyn fel ei fod yn gweithio ar daflen waith wedi'i chloi lle gall y defnyddiwr ddewis celloedd heb eu cloi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i amlygu'r gell (gyda data) i amlygu'r celloedd eraill yn awtomatig (data sy'n gysylltiedig â data arall mewn cell flaenorol) gyda chlicio ar y gell. A allaf ei wneud. A oes ffordd i'w wneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
alguien que me ayude solo quiero que al hacerle cliciwch una celda se ponga de un lliw y que se mantenga ese lliw y si le vuelvo hacer cliciwch regrese el lliw gwreiddiol que tenia
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i'n ceisio defnyddio'r opsiwn clic dwbl i newid cell i wyrdd ond rydw i hefyd eisiau i'r gell honno fynd yn ôl i ddim llenwad neu wyn os byddaf yn ei chlicio ddwywaith tra ei bod yn wyrdd. Ydy hyn yn bosibl? 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roedd y cod yn arfer gweithio am ychydig, ond nawr nid yw'n gweithio mwyach. Beth all fod o'i le?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rens Borburgh,Mae dau god wedi'u darparu yn y post, pa un wnaethoch chi ei ddefnyddio? A gawsoch unrhyw anogwr gwall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi rhoi cynnig ar y ddau ar yr un pryd. Ar ôl ei gopïo i ffon usb nid oedd yn gweithio mwyach.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rens Borburgh, dydw i ddim yn deall yn iawn beth rydych chi'n ei olygu. Dylid defnyddio'r codau yn y ffenestr cod dalen ac nid yn ffenestr y Modiwl. Neu a allwch chi ddarparu sgrinlun o'ch ffenestr cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, adeiladais ddangosfwrdd gyda 37 o daflenni gwaith, pawb â bwrdd. Mae pob un ohonynt yn baneli clo oherwydd eu bod yn fawr ac mae angen i mi wybod rhif ac enw'r myfyriwr yr wyf yn mewnbynnu data ar ei gyfer. Er gwaethaf hynny, mae'n rhaid i mi gadw fy mys ar ochr chwith y sgrin i nodi'r enwau a'r rhifau y mae'r data a gofnodwyd yn cyfeirio atynt. Felly, mae angen i mi nodi dwy gell gyntaf y rhes, yn y colofnau "I" a "J".
Y cod a gymerais o'r rhyngrwyd ac na allwn ei newid ar gyfer y ddwy gell yn y colofnau "I" a "J" oedd:

Dim lTarged Fel Ystod

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)

Os Targed.Row >= 16 Yna

Os Nad Ydy'r Targed yn Ddim Yna

lTarget.EntireRow.Interior.ColorIndex = 0
Gorffennwch Os

Target.EntireRow.Interior.Color = 9359529

Gosod lTarged = Targed
Gorffennwch Os
Is-End

Mae pob tabl yn dechrau mewn rhesi gwahanol. Mae'r enghraifft hon yn dechrau mewn 16 rhes ond rwy'n rhoi'r cod ym mhob un o'r tudalennau ac yn addasu i anghenion y rhif rhes penodol. 
Rwyf eisoes wedi ceisio newid y cod o EntireRow i Range ("I16:J43") ond roedd y celloedd yn yr amrediad wedi'u paentio i gyd gyda'r lliw cod.
Eisoes ceisiwch ffordd wahanol trwy'r "fformatio amodol" gyda'r fformiwla =E($I16<>""; LIN()=CÉL("lin")) yn yr ystod $I16:$J43, ac yn y daflen waith "datblygwr" ", gyda "Application.Calculate" ac mae'n gweithio. Rwy'n newid yn y 37 taflen waith ond roeddwn yn copïo a data o'r ffeil flaenorol i'r un newydd hon a sylwais fod yr opsiynau i gludo "gwerthoedd", ac ati, yn diflannu o fy dangosfwrdd. Rhaid i'r cod fod yn gweithredu rhywbeth nad yw, fel clicio ar y gell, bellach yn gadael iddo gludo. Un opsiwn oedd pastio gyda CTRL+V.
Os gall rhywun fy helpu gyda'r cod, byddaf yn dileu'r VBA "Application.Calculate" i fynd yn ôl at yr opsiynau collage sydd ar gael.
Diolch i chi am eich help.

Luís Lopes
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir