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

Sut i gysylltu lliw cell yn awtomatig ag un arall yn Excel?

Wrth ddefnyddio Microsoft Excel, a ydych chi'n gwybod sut i gysylltu lliw cell ag un arall yn awtomatig? Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.

Cysylltu lliw cell yn awtomatig ag un arall â chod VBA


Cysylltu lliw cell yn awtomatig ag un arall â chod VBA

Gan dybio eich bod am gysylltu lliw llenwi cell A1 â C1, wrth newid lliw llenwi A1, bydd lliw C1 yn troi i'r un peth yn awtomatig. Gwnewch fel a ganlyn.

1. De-gliciwch y tab dalen sydd ei angen arnoch i gysylltu lliw cell ag un arall, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

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

Cod VBA: Auto cysylltu lliw cell ag un arall yn Excel

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

Nodyn: gallwch newid cyfeirnod y celloedd yn y cod yn ôl yr angen.

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

O hyn ymlaen, wrth newid lliw llenwi cell A1, bydd lliw llenwi cell C1 yn cael ei newid i'r un lliw yn awtomatig.


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 (41)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
beth am rhwng taflenni yn yr un llyfr gwaith - rhowch gyngor sut mae'r fformiwla yn newid? diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tiwtorial gwych. Diolch :) !!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ie hoffwn wybod sut i adlewyrchu lliw i ddalen arall??? Mae gen i fformiwla yn y ddau flwch ond hoffwn i liw'r un adlewyrchu'r lliw ar y brif daflen pan mae'n newid. hy.. Hyfforddiant Dyddiad y daflen yw w/mewn 30 diwrnod a'r blwch yn newid i goch; y blwch cyfatebol ar y brif daflen, y blwch gyda'r newidiadau "X" i goch hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jessica,
Beth ydych chi'n ei olygu blwch? Blwch testun?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd o wneud hyn os yw'r ddwy gell mewn llyfrau gwaith gwahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dustin,
Methu â thrin gwahanol lyfrau gwaith. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwelais i fyny yma, yn yr esboniad, sut i ar gyfer un gell, sut i wneud ar gyfer ychydig o gelloedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rogerio,
Ydych chi'n golygu cysylltu lliw llenwi cell â chelloedd lluosog ar yr un pryd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
y su el la celda A1 tiene un formato amodol ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os yw'r celloedd yn dalennau nad ydynt yn wahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mario,
Gan dybio eich bod am gysylltu lliw cell A1 yn y daflen waith gyfredol i ystod B1:J19 yn Nhaflen 2, cymhwyswch y cod VBA isod. Ar ôl newid lliw llenwi A1, cliciwch ar gell arall yn y daflen waith gyfredol i actifadu'r cod.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xStrAddress Fel Llinynnol
xStrAddress = "Taflen2!$B$1:$J$19"
Gosod xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Tu mewn.Lliw
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe weithiodd hynny. Sut byddai'n gweithio pe bai gennych newidiadau A1 yn Nhaflen 1 i ddigwydd i B1 yn Nhaflen 2, ond hefyd newidiadau A2 yn Nhaflen 1 i ddigwydd i B2 yn Nhaflen 2?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo A all unrhyw un helpu gyda'r cwestiwn uchod cyn gynted â phosibl, mae gwir angen y peth arnaf ac yn rhedeg allan o amser.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xStrAddress Fel Llinynnol
xStrAddress = "Taflen2!$B$1"
Gosod xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1").Tu mewn.Lliw
xStrAddress = "Taflen2!$B$2"
Gosod xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A2").Tu mewn.Lliw
xStrAddress = "Taflen2!$B$3"
Gosod xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A3").Tu mewn.Lliw
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus ni weithiodd i mi. Rwy'n meddwl tybed ai oherwydd bod y gell wreiddiol yn rhestr gyda rheol fformatio amodol i newid lliwiau cefndir yn dibynnu ar ba opsiwn a ddewisir yn y rhestr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Amanda,
Nid yw'r cod hwn yn gweithio ar gyfer y lliw llenwi a neilltuwyd gan y rheol fformatio amodol. Ymddiheuriadau am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl cysylltu'r lliw o un amrediad ar un ddalen i ystod arall o'r un maint ar ddalen wahanol? Er enghraifft, mae gen i liwiau am yn ail bob cwpl o resi, ac rydw i eisiau i'r cynllun lliwiau hwnnw gopïo drosodd i ddalen arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Charles,
Gall y cod isod wneud ffafr i chi. Os ydych chi am gysylltu'r lliw o ystod A1:A19 ar Daflen1 â'r un ystod "A1:A19" ar Daflen2, copïwch y cod i ffenestr Cod Sheet1, ar ôl hynny, cliciwch ar unrhyw gell ar Daflen1 i actifadu'r cod. Gobeithio y gallaf helpu. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xStrAddress Fel Llinynnol
xStrAddress = "Taflen2!$A$1:$A$19"
Gosod xRg = Application.Range(xStrAddress)
xRg.Interior.Color = Me.Range("A1:A19").Tu mewn.Lliw
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
mae'n ymddangos bod y cod hwn yn gweithio os byddaf yn cyfeirio at un gell ond os byddaf yn mewnbynnu amrediad, mae'r amrediad ar ddalen 2 yn mynd yn ddu yn lle ymdopi â'r lliw mewnol.

unrhyw syniadau pam y gallai hynny fod yn digwydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Joey,
Sori am y camgymeriad. Rhowch gynnig ar y cod hwn:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xStrAddress Fel Llinynnol
Dim xFNum Fel Cyfanrif
xStrAddress = "Taflen2!$A$1:$A$10"
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("$A$1:$A$10")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,
Diolch yn fawr iawn. Yn gweithio'n berffaith!
Rydych chi'n anhygoel! O_o
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal!
Sut mae'r un cod yn edrych os ydw i am iddo gopïo i Daflen 2 a Sheet3 ar yr un pryd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo all unrhyw un ateb y cwestiwn hwn. Rwy'n ceisio gwneud hyn yn union a chael dim lwc.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw hyn yn gweithio i mi. Rwy'n dal i gael gwall ynghylch "gwall llunio, canfuwyd enw amwys"....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw hyn yn gweithio i mi. efallai nad yw amrediad celloedd yr un peth ar y ddwy ddalen. allwch chi helpu i gynghori beth i'w wneud neu sut i addasu cod pls?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo LG,
Mae dwy linell y gallwch eu haddasu: yr amrediad "$A$1:$A$10" o'r wythfed llinell, a'r "Taflen2!$A$1:$A$10" o'r chweched llinell, sy'n nodi y byddwch yn cysylltu lliw llenwi'r amrediad A1: A10 mewn taflen waith (gan dybio Taflen 1, a dylid ychwanegu'r cod at ffenestr cod y ddalen hon) i'r un ystod yn Sheet2.
Gallwch chi nodi dwy ystod wahanol yn ôl yr angen. A gwnewch yn siŵr bod yr enw dalen rydych chi'n ei deipio yn y chweched llinell yn enw dalen sy'n bodoli eisoes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio hwn i greu patrymau gwehyddu. Hoffwn i gael sawl set o grwpiau felly dim ond un gell sydd angen i mi newid i weld beth fydd yn digwydd yn fy mhatrwm. Roedd yn gweithio o gell a1 i c1 ond pan geisiais ychwanegu set newydd a2 i c1 nid oedd. Efallai fy mod yn camddeall, ond fe wnes i gopïo'r un fformiwla o dan yr un gyntaf a newid y cyfeiriadau cell. Ai dyna'r broblem? A oes ffordd arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd yr un hon i mi wrth gludo cyfeirnod ail ddalen -- ond bu'n rhaid i mi wneud addasiad, byddaf yn dangos yr addasiad isod fel y gallwch weld fersiwn gyntaf Crystal, yna fy un i gydag addasiad a weithiodd pan oedd angen i mi gynnwys dwy set yn lle hynny o un. Dyma'r un roddodd Crystal i Joey ar ôl iddo ddweud bod yr ystod darged wedi troi'n ddu pan roddodd gynnig arni:
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xStrAddress Fel Llinynnol
Dim xFNum Fel Cyfanrif
xStrAddress = "Taflen2!$A$1:$A$10"
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("$A$1:$A$10")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
Is-End
Fy mod a weithiodd er mwyn cynnwys dwy set (ee cyfeirio at wahanol golofnau neu resi neu beth sydd gennych chi) oedd cynnwys y rhan hon:
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
ar ôl pob un o fy "setiau"
Felly, heb addasu'r setiau sampl a roddodd Crystal i fod yn wahanol i'w gilydd (sef eich un chi mae'n debyg os ydych chi'n ceisio cyfeirio at wahanol resi ac ati), byddai'n edrych fel hyn:
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xStrAddress Fel Llinynnol
Dim xFNum Fel Cyfanrif
xStrAddress = "Taflen2!$A$1:$A$10"
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("$A$1:$A$10") Ar Gwall Ail-ddechrau Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
xStrAddress = "Taflen2!$A$1:$A$10"
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("$A$1:$A$10")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
Is-End

gyda llinellau 6-8 a 13-15 yn "setiau" a llinellau 9-12 ac 16-19 yw'r cod sy'n gorfod ailadrodd ar ôl pob set.
Rwy'n gobeithio bod hynny'n gwneud synnwyr oherwydd dwi'n gwybod dim am hyn, fe wnes i ddod o hyd i ffordd i gopïo'r hyn a restrwyd yma a weithiodd. Y tro cyntaf i mi geisio cael dwy set trwy blygio i mewn i'r cod fel y mae, roedd y set gyntaf yn troi'r celloedd yn ddu a'r ail set yn gweithio ac yn troi'r celloedd targed y lliw cywir. Fe wnes i ddarganfod yn olaf, er mwyn gweithio, bod angen y cod llinell 9-12 ar bob set ar ei ôl. Roedd y mod hwn yn caniatáu lliwiau priodol i (yn fy achos i) drosglwyddo o ddwy golofn wahanol ar y daflen darddiad i gelloedd cyfatebol o fewn ystod benodol ar y daflen darged.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydw i'n cysylltu lliwiau cell yn seiliedig ar werth a lliw celloedd arall i'w cysylltu'n awtomatig.

Enghraifft Gaer.



Mae gennyf werth dalen 1 yw 898 ac ar ddalen 2 gwerth yw 898 ac mae'r gell honno wedi'i lliwio'n binc. Sut alla i gysylltu'r un lliw i fod yr un peth yn seiliedig ar y cliw yw dalen 2 i'w gysylltu â dalen 1 - fel y gall ddangos yr un lliw. Ond byddai yn ystod; defnyddio'r rhes gyfan i gyd-fynd â'i werthoedd ac yna cysylltu'r lliwiau.



Gwerthfawrogir unrhyw gymorth yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n edrych ar gopïo lliwiau a gynhyrchir o dabl wedi'i fformatio'n amodol, i dabl arall - yn awtomatig gyda fformiwla/swyddogaeth. Ydy hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hei,
Hoffwn pan fyddaf yn newid y lliw yng ngholofn A sheet1 â llaw i newid y lliw yng ngholofn A dalen2 yn awtomatig.
Rwy'n gofyn am help. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ivana, Rhowch gynnig ar y cod isod. Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
'wedi'i ddiweddaru gan Extendoffice 20201127
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xStrAddress Fel Llinynnol
Dim xFNum Fel Cyfanrif
xStrAddress = "Taflen2!$A$1:$A$100"
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("$A$1:$A$100")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola buenas tardes. Como hacer que cuando seleccione una celda se active otra, y si selcciono otro cambie a otro celda con que este vinculada.Ejemplo: si alecciono A1 se actif celda H20, y si doy otro clic se anweithredol. Se que seria mucho trabajo porque tendria que programar cada celda, pero no importa, es solo saber mar hacerlo. Gracias for su apoyo!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo roedd y cod uchod yn gweithio ond ni fydd yn gweithio sawl gwaith mewn un ddalen? 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb,

Fy mhroblem i yw bod fy nhudalen gartref (taflen 1af) yn cynnwys crynodeb o'r wybodaeth a ddarperir yn y dalennau canlynol. Mae'r holl gelloedd perthnasol wedi'u fformatio i adlewyrchu gwerth eu celloedd cyfatebol yn y dalennau eraill.

felly er enghraifft, mae cell tudalen hafan Fy nghell F7 eisoes wedi'i fformatio felly mae'n copïo gwerth y gell gyfatebol yn y daflen ffynhonnell:
=chwarter1!B15

Nawr, yr hyn y byddwn i ei eisiau mewn gwirionedd yw i'r celloedd ar fy nhudalen gartref hefyd gyd-fynd â'r lliw rydw i'n ei ddewis â llaw ar gyfer eu cell cyfatebol (ffynhonnell) mewn dalen arall. A yw hyn yn bosibl gan ddefnyddio codio VBA?

Cefais y cod isod o wefan arall ond dim ond os yw'r celloedd ar yr un ddalen y mae'n gweithio.
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Me.Range("C1").Interior.Color = Me.Range("A1").Lliw.Tu mewn
Is-End

A oes unrhyw ffordd y gallaf addasu'r cod hwn i gyfeirio at gell ar ddalen arall yn yr un llyfr gwaith?

Diolch yn fawr iawn am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tybed a allwch chi fy helpu os gwelwch yn dda
Mae gen i daenlen sydd ag enw aelodau tîm (17 ohonyn nhw) yn Rhes 2
Yng ngholofn H byddem yn dyrannu tasg i aelod o'r tîm
Yng ngholofn T mae gennym y data i ddangos ar ba gam y mae aelod o’r tîm ar gyfer y dasg hon (gwyrdd/ Ambr/Coch)
Yr hyn yr hoffwn ei wneud yw dod â'r lliw ar gyfer y dasg o col T i Col H gyda'r enw y byddem wedi'i nodi

Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ann,
A fyddai ots gennych ddarparu sgrinlun o'ch data? Ymddiheuriadau am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel y nodir ynghlwm
Mae enwau'r timau yn rhes 2 (R i AD)
Mae pob rhes o dan enw’r tîm yn ymwneud â’r dasg yn Col D
Yr hyn hoffwn yw pan roddir enw yn Col L mae'n lliwio'r gell honno gyda'r lliw oddi wrth aelodau'r tîm col ar y rhes honno
ee yn Col L rhowch Emma mae'n edrych ar Emma yn W1 ac yn dod â Green drosodd o W2. pe bai Paula yn edrych ar Paula yn T1 ac yn dod ag ambr drosodd o T2 ac ati
Byddai'r enw a roddwyd yn parhau fel enghraifft yn L2 a 3

Diolch am eich help
Ddim yn siŵr sut i atodi sgrinlun neu FFEIL y gallaf ei e-bostio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ann,
Rwyf wedi rhoi cynnig ar rai dulliau ac yn dal i fethu datrys eich problem. Ymddiheuriadau am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am drio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Aqui la tiene en ingles


Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xCRg Fel Ystod
Dim xStrAddress Fel Llinynnol
Dim xFNum Fel Cyfanrif
xStrAddress = ("Hoja2!A1")
Gosod xRg = Application.Range(xStrAddress)
Gosod xCRg = Me.Range("A1")
Ar Ail-ddechrau Gwall Nesaf
Ar gyfer xFNum = 1 I xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Tu mewn.Color
Digwyddiadau
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir