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 Sub3. 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 Function4. 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:
- Sut i gopïo fformatio ffynhonnell y gell edrych wrth ddefnyddio Vlookup yn Excel?
- Sut i wylio a dychwelyd dyddiad dyddiad yn lle rhif yn Excel?
- Sut i ddefnyddio vlookup a swm yn Excel?
- Sut i wylio gwerth dychwelyd yn y gell gyfagos neu'r gell nesaf yn Excel?
- Sut i edrych ar werth a dychwelyd gwir neu gau / ie neu na yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
