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

Sut i wylio a dychwelyd lliw cefndir ynghyd â'r gwerth edrych yn Excel?

Gan dybio bod gennych dabl fel y dangosir isod. Nawr rydych chi am wirio a yw gwerth penodedig yng ngholofn A ac yna dychwelyd gwerth cyfatebol ynghyd â lliw cefndir yng ngholofn C. Sut i'w gyflawni? Gall y dull yn yr erthygl eich helpu i ddatrys y broblem.

Vlookup a dychwelyd lliw cefndir gyda gwerth edrych yn ôl swyddogaeth a ddiffiniwyd gan y Defnyddiwr


Vlookup a dychwelyd lliw cefndir gyda gwerth edrych yn ôl swyddogaeth a ddiffiniwyd gan y Defnyddiwr


Gwnewch fel a ganlyn i edrych ar werth a dychwelyd ei werth cyfatebol ynghyd â lliw cefndir yn Excel.

1. Yn y daflen waith mae'n cynnwys y gwerth rydych chi am ei wylio, de-gliciwch y tab dalen a dewis Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch isod y cod VBA i mewn i ffenestr y Cod.

Cod VBA 1: Vlookup a dychwelyd lliw cefndir gyda'r gwerth edrych

Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Range(xDic.Keys(I)).Interior.Color = _
                Range(xDic.Items(I)).Interior.Color
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
End Sub

3. Yna cliciwch Mewnosod > Modiwlau, a chopïwch y cod VBA 2 isod i mewn i ffenestr y Modiwl.

Cod VBA 2: Vlookup a dychwelyd lliw cefndir gyda'r gwerth edrych

Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepColor = ""
        xDic.Add Application.Caller.Address, ""
    Else
        LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
    End If
End Function

4. Ar ôl mewnosod y ddau god, yna cliciwch offer > cyfeiriadau. Yna gwiriwch y Runtime Sgript Microsoft blwch yn y Cyfeiriadau - VBAProject blwch deialog. Gweler y screenshot:

5. Gwasgwch y Alt + Q allweddi i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr ac ewch yn ôl i'r daflen waith.

6. Dewiswch gell wag wrth ymyl y gwerth edrych, ac yna nodwch y fformiwla =LookupKeepColor(E2,$A$1:$C$8,3) i mewn i'r Bar Fformiwla, ac yna pwyswch y fysell Enter.

Nodyn: Yn y fformiwla, E2 yn cynnwys y gwerth y byddwch chi'n edrych arno, $ A $ 1: $ C $ 8 yw ystod y tabl, a'r rhif 3 yn golygu bod y gwerth cyfatebol y byddwch chi'n ei ddychwelyd yn lleoli yn nhrydedd golofn y tabl. Newidiwch nhw yn ôl yr angen.

7. Daliwch ati i ddewis y gell canlyniad cyntaf, a llusgwch y Llenwi Trin i lawr i gael yr holl ganlyniadau ynghyd â'u lliw cefndir. Gweler y screenshot.


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 (32)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae newid y cod hwn, er mwyn iddo dynnu'r lliw cefndir o ddalen arall?
Er enghraifft, hoffwn ddefnyddio VLOOKUP yn Nhaflen 2, sy'n tynnu'r data a'r lliw cefndir o Daflen 1.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr union gwestiwn hwn! Byddai unrhyw gyngor yn cael ei werthfawrogi'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn hefyd VLOOKUP ar daflen 2 a thynnu'r data a'r lliw cefndir o daflen 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y mân addasiad hwn o'r cod a bostiwyd.


xDic Cyhoeddus Fel Geiriadur Newydd
strWB Cyhoeddus Fel Llinyn
strWS Cyhoeddus Fel Llinyn

Cloi Swyddogaeth(ByRef FndValue, ByRef LookRng As Range, ByRef xCol Cyhyd)
Dim xFindCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf

strWB = LookupRng.Parent.Parent.Name '** Cofiwch y Gweithlyfr o ble mae'r data a'r lliw yn dod
strWS = LookupRng.Parent.Name '*** Cofiwch y Daflen Waith o ble mae'r data a'r lliw yn dod

Gosod xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

Os yw xFindCell yn Dim Yna
Cloookup=""
xDic.Add Application.Caller.Address, ""
arall
Cloookup = xFindCell.Offset(0, xCol - 1).Gwerth
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Cyfeiriad

Gorffennwch Os
Swyddogaeth End

Is-daflen waith_Newid(Targed ByVal Fel Ystod)
Dim I Cyn Hir
Dim xKeys Cyhyd
Dim xDicStr Fel Llinyn
Dim rngLoc Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
xKeys = UBound(xDic.Keys)
Os xKeys >= 0 Yna
Ar gyfer I = 0 I UBound(xDic.Keys)
xDicStr = xDic.Items(I)
Os xDicStr <> "" Yna
Ystod(xDic.Keys(I)).Interior.Color = Cymhwysiad.Llyfrau Gwaith(strWB).Taflenni Gwaith(strWS).Ystod(xDic.Items(I)).Tu mewn.Lliw).
arall
Amrediad(xDic.Keys(I)).Tu mewn.Color = xlDim
Gorffennwch Os
Digwyddiadau
Gosod xDic = Dim byd
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ai hyn yw trwsio gwall yn y cod gwreiddiol neu a yw hyn er mwyn caniatáu iddo edrych i fyny o ddalen wahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r newid hwn i'r cod gwreiddiol yn caniatáu ichi wneud y vlookup w / lliw o un Daflen Waith i'r llall neu o un Llyfr Gwaith i'r llall. Ond mae angen gosod y cod hwn yn y daflen waith TARGET yn hytrach na'r daflen waith FFYNHONNELL fel y disgrifiwyd yn y cod gwreiddiol. Mae hynny oherwydd bod y cod gwreiddiol yn gweithio mewn un Daflen Waith yn unig, felly dyma'r Ffynhonnell a'r Targed. Nid atgyweiriad i'r cod gwreiddiol mo hwn. Rwyf newydd ychwanegu cod i'ch galluogi i dynnu o unrhyw Lyfr Gwaith/Taflen Waith (Ffynhonnell) i'ch Taflen Waith (Targed). Roedd y cod gwreiddiol yn gweithio fel y bwriadwyd gan y rhaglennydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo fe wnes i'r drefn ond ni allaf ddod a'r lliw cefndir yn y daflen waith newydd , mae gennyf amheuaeth os byddaf yn rhoi'r gorchymyn strWB a strWS yn y ffordd gywir rhoddais y strWB hwn = LookupRng.Reporte_Opcionales
strWS = LookupRng.Imprimir Reporte_Opcionales yw enw fy llyfr gwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n credu bod y llinellau i fod fel a ganlyn (YN UNION):

strWB = LookupRng.Parent.Parent.Name

strWS = LookupRng.Parent.Name


Deuthum i fyny gyda hyn tua 4 mis yn ôl felly nid wyf yn cofio yn union sut y lluniais hyn, ond nid oeddech i fod i ddisodli'r cod hwn gydag unrhyw beth arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
beth mae'r enw yn strWB wedi ei ailadrodd Parent.Parent???? a yw hynny'n gywir?
Diolch o flaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bob, helpwch fi plîs , colud chi wiriwch y cod? Rwy'n siŵr y gallwch chi ei drwsio oherwydd mae'n brigo'r lliw cefndir o ddalen arall .

gyda llaw y cod sydd ar gyfer gwaith yn yr un daflen waith ond fi angen dod a'r data o ddalen arall :(.

Diolch ymlaen llaw
cyfarchion o Monterrey México.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych, diolch!
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
y cod hwn yn gweithio ar yr un ddalen, sut alla i edrych i fyny lliw o un ddalen i'r llall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y mân addasiad hwn o'r cod a bostiwyd.


xDic Cyhoeddus Fel Geiriadur Newydd
strWB Cyhoeddus Fel Llinyn
strWS Cyhoeddus Fel Llinyn

Cloi Swyddogaeth(ByRef FndValue, ByRef LookRng As Range, ByRef xCol Cyhyd)
Dim xFindCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf

strWB = LookupRng.Parent.Parent.Name '** Cofiwch y Gweithlyfr o ble mae'r data a'r lliw yn dod
strWS = LookupRng.Parent.Name '*** Cofiwch y Daflen Waith o ble mae'r data a'r lliw yn dod

Gosod xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

Os yw xFindCell yn Dim Yna
Cloookup=""
xDic.Add Application.Caller.Address, ""
arall
Cloookup = xFindCell.Offset(0, xCol - 1).Gwerth
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Cyfeiriad

Gorffennwch Os
Swyddogaeth End

Is-daflen waith_Newid(Targed ByVal Fel Ystod)
Dim I Cyn Hir
Dim xKeys Cyhyd
Dim xDicStr Fel Llinyn
Dim rngLoc Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
xKeys = UBound(xDic.Keys)
Os xKeys >= 0 Yna
Ar gyfer I = 0 I UBound(xDic.Keys)
xDicStr = xDic.Items(I)
Os xDicStr <> "" Yna
Ystod(xDic.Keys(I)).Interior.Color = Cymhwysiad.Llyfrau Gwaith(strWB).Taflenni Gwaith(strWS).Ystod(xDic.Items(I)).Tu mewn.Lliw).
arall
Amrediad(xDic.Keys(I)).Tu mewn.Color = xlDim
Gorffennwch Os
Digwyddiadau
Gosod xDic = Dim byd
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Bob! Mae'r cod yn gweithio, fodd bynnag, am ryw reswm mae'n copïo gwerthoedd o Daflen 2 i Daflen 1, ond yn copïo'r fformatio celloedd a'i adael yn Nhaflen 2... Mae'n anodd ei esbonio, ond yn y bôn mae'n hollti un weithred (copïo testun + ffurf copi a'i bastio i'r gell) yn ddau. Ydych chi'n gwybod sut i wneud y ddau ar un ddalen? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'r cod hwn yn rhedeg ar yr un ddalen ond sut alla i edrych ar liw celloedd o un ddalen i ddalen arall yn excel
Diolch ymlaen llaw :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y mân addasiad hwn o'r cod a bostiwyd.


xDic Cyhoeddus Fel Geiriadur Newydd
strWB Cyhoeddus Fel Llinyn
strWS Cyhoeddus Fel Llinyn

Cloi Swyddogaeth(ByRef FndValue, ByRef LookRng As Range, ByRef xCol Cyhyd)
Dim xFindCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf

strWB = LookupRng.Parent.Parent.Name '** Cofiwch y Gweithlyfr o ble mae'r data a'r lliw yn dod
strWS = LookupRng.Parent.Name '*** Cofiwch y Daflen Waith o ble mae'r data a'r lliw yn dod

Gosod xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

Os yw xFindCell yn Dim Yna
Cloookup=""
xDic.Add Application.Caller.Address, ""
arall
Cloookup = xFindCell.Offset(0, xCol - 1).Gwerth
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Cyfeiriad

Gorffennwch Os
Swyddogaeth End

Is-daflen waith_Newid(Targed ByVal Fel Ystod)
Dim I Cyn Hir
Dim xKeys Cyhyd
Dim xDicStr Fel Llinyn
Dim rngLoc Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
xKeys = UBound(xDic.Keys)
Os xKeys >= 0 Yna
Ar gyfer I = 0 I UBound(xDic.Keys)
xDicStr = xDic.Items(I)
Os xDicStr <> "" Yna
Ystod(xDic.Keys(I)).Interior.Color = Cymhwysiad.Llyfrau Gwaith(strWB).Taflenni Gwaith(strWS).Ystod(xDic.Items(I)).Tu mewn.Lliw).
arall
Amrediad(xDic.Keys(I)).Tu mewn.Color = xlDim
Gorffennwch Os
Digwyddiadau
Gosod xDic = Dim byd
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ffenestri ar gyfer Mac , pan fyddaf yn cyrraedd Cam 4 - nid oes opsiwn ar gyfer Microsoft Scripting Runtime, a oes rhywbeth arall y dylwn fod yn ei ddewis?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn agor y ffenestr Cod Gweld, mae ffenestr ond nid yw'n wag. A allaf gludo'r cod o dan y testun sydd yno'n barod neu sut mae agor "tudalen wag" newydd os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn dychwelyd gwerth, ond nid yn cael y lliw. defnyddio'r daflen i god dalen, ac yna T. Unrhyw syniadau pam nad wyf yn cael y lliw?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i addasu hwn i'w ddefnyddio fel Hlookup?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pnawn da bob i'r codau yma gallwch eu newid yn ychwanegol at y lliw ffoniwch fi yr un fformat lliw a ffont sy'n cynnwys y gell

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hyn yn gweithio'n iawn yn swyddfa 2010, ond nid fersiwn 2013. A oes diweddariad i'r macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A allaf wneud cais vlookup ar gelloedd lliw heb unrhyw ddata ynddynt
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael y lliw celloedd gofynnol ond mae angen y gwerth am-edrych arnaf hefyd gan ei fod yn dychwelyd cyfanrif yn hytrach na llinyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio hwn yn Excel 2016 a dim ond y data sy'n cael ei drosglwyddo o Ffynhonnell i Darged ... nid yw lliw yn cael ei drosglwyddo. Syniadau ar ba fater allai fod: A yw'n anghydnaws ag Excel 2016? Diolch. MT
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn AWESOME! dilyn y camau ac mae'n gweithio'n hyfryd! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i lawer o gofnodion, mae'n cymryd gormod o amser i'w prosesu, ac mae'r cod yn parhau i redeg hyd yn oed ar ôl ei gwblhau. Helpwch os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i ddalen gyda 10,948 o resi, mae'n cymryd peth amser i dynnu'r wybodaeth gyda lliwiau, yn dal i aros. Ydy hyn yn normal, neu a oes rhywbeth o'i le?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut rydw i'n gwneud
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio amseroedd a dyddiadau o adroddiadau Excel i greu taflenni amser ar gyfer ein gweithwyr. Os yw'r dyddiad penodedig, er enghraifft, 2020/08/11 yn cyfateb i'r dyddiad ar yr arae tabiau nesaf (sy'n cynnwys llawer o gelloedd gyda'r un dyddiad ond amseroedd gwahanol) rwyf am iddo dynnu dim ond y gell wedi'i llenwi mewn oren a fydd yn cael ei nodi fel 2020/08/11 7:45 . Ydy hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A yw'r cod hwn yn gweithio ar gyfer swyddfa 2016 a fersiynau diweddarach?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
na, nid yw ei liw yn dychwelyd.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir