Ինչպե՞ս պատճենել որոնման վանդակի աղբյուրի ձևաչափումը, Excel- ում Vlookup- ի օգտագործման ժամանակ:
Նախորդ հոդվածներում մենք խոսեցինք ֆոնի գույնը Excel- ում vlookup- ի արժեքները պահելու մասին: Այս հոդվածում մենք կներկայացնենք ստացված բջիջի բոլոր բջիջների ձևաչափումը պատճենելու մեթոդ `Excel- ում Vlookup անելիս: Խնդրում եմ արեք հետևյալ կերպ.
Պատճենեք աղբյուրի ձևավորումը Excel- ում Vlookup- ն օգտագործելիս օգտագործողի կողմից սահմանված գործառույթով
Ենթադրելով, որ դուք ունեք սեղան, ինչպես ցույց է տրված էկրանի նկարը: Այժմ անհրաժեշտ է ստուգել, արդյոք նշված արժեքը (սյունակում E) A սյունակում է և վերադարձնել համապատասխան արժեքը C սյունակում ձևաչափմամբ, դրան հասնելու համար արեք հետևյալը.
1. Աշխատաթերթում պարունակում է այն արժեքը, որը ցանկանում եք դիտել, աջով կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք պատճենել ներքևում գտնվող VBA կոդը օրենսգրքի պատուհանում:
VBA կոդ 1. Vlookup և վերադարձի արժեք ՝ ձևաչափմամբ
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. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներև պատճենեք ներքևում նշված VBA կոդը 2 Մոդուլի պատուհանում:
VBA կոդ 2. Vlookup և վերադարձի արժեք ՝ ձևաչափմամբ
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: սեղմեք Գործիքներ > Սայլակ, Ապա ստուգեք Microsoft Script Runtime տուփի մեջ Հղումներ - VBAP նախագիծ երկխոսության տուփ: Տեսեք,
5. Սեղմեք ալտ + Q ստեղները դուրս գալու համար Microsoft Visual Basic հավելվածների համար պատուհան.
6. Ընտրեք որոնման արժեքին կից դատարկ բջիջ, ապա մուտքագրեք բանաձև =LookupKeepFormat(E2,$A$1:$C$8,3) մեջ Ֆորմուլա Բար, ապա սեղմել կոճակը Մտնել բանալի.
ՆշումԲանաձևում, E2 պարունակում է այն արժեքը, որը դուք կգտնեք, $ A $ 1: $ C $ 8 աղյուսակի տիրույթն է և համարը 3 նշանակում է, որ համապատասխան արժեքը, որը դուք կվերադարձնեք, տեղակայված է աղյուսակի երրորդ սյունակում: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:
7. Շարունակեք ընտրել առաջին արդյունքի բջիջը, այնուհետև քաշեք Լրացրեք բռնակը ներքև, որպեսզի ստանաք բոլոր արդյունքները դրանց ձևաչափման հետ միասին, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս vlookup և վերադարձնել ֆոնի գույնը Excel- ում որոնման արժեքի հետ միասին:
- Ինչպե՞ս vlookup- ը և Excel- ում համարի փոխարեն վերադարձնել ամսաթվի ձևաչափը:
- Ինչպե՞ս օգտագործել vlookup- ը և գումարը Excel- ում:
- Ինչպե՞ս vlookup- ի վերադարձնել արժեքը Excel- ի հարակից կամ հաջորդ խցում:
- Ինչպե՞ս vlookup արժեքը վերադարձնել Excel- ում ճիշտ կամ կեղծ / այո կամ ոչ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
