Sut i gopïo fformatio ffynhonnell y gell edrych wrth ddefnyddio Vlookup yn Excel?
Yn yr erthyglau blaenorol, rydym wedi siarad am gadw lliw cefndir wrth werthoedd vlookup yn Excel. Yma yn yr erthygl hon, rydyn ni'n mynd i gyflwyno dull o gopïo holl fformatio celloedd y gell sy'n deillio o hynny wrth wneud Vlookup yn Excel. Gwnewch fel a ganlyn.
Copïwch fformatio ffynhonnell wrth ddefnyddio Vlookup yn Excel gyda swyddogaeth wedi'i diffinio gan y Defnyddiwr
Gan dybio bod gennych dabl fel y dangosir isod. Nawr mae angen i chi wirio a yw gwerth penodedig (yng ngholofn E) yng ngholofn A a dychwelyd gwerth cyfatebol gyda fformatio yng ngholofn C. Gwnewch fel a ganlyn i'w gyflawni.
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: Gwerth Vlookup a dychwelyd gyda fformatio
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = 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: Gwerth Vlookup a dychwelyd gyda fformatio
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. 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.
6. Dewiswch gell wag wrth ymyl y gwerth edrych, ac yna nodwch y fformiwla =LookupKeepFormat(E2,$A$1:$C$8,3) i mewn i'r Bar Fformiwla, ac yna pwyswch y Rhowch allweddol.
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, ac yna llusgwch y Llenwi Trin i lawr i gael yr holl ganlyniadau ynghyd â'u fformatio fel y dangosodd isod screenshot.
Erthyglau cysylltiedig:
- Sut i wylio a dychwelyd lliw cefndir ynghyd â'r gwerth edrych 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 ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!
