Հեղինակ՝ Քելլի Վերջին փոփոխությունը՝ 2020-05-09

Օրինակ, դուք Excel- ում մրգերի գնման աղյուսակ եք ստեղծում, և այժմ դուք պետք է որոնեք պտուղները մեկ այլ աշխատանքային գրքից և վերադարձնեք համապատասխան գները, ինչպես ցույց է տրված ներքևում նշված սքրինշոթերը: Այստեղ ես ձեզ կառաջնորդեմ լուծել այն Excel- ում VLOOKKUP գործառույթով:

1. Բացեք երկու աշխատանքային գրքերը, որոնցից դուք կտեսնեք արժեքների արժեքներ և դրանցում կվերադարձնեք արժեքները:

2. Ընտրեք դատարկ բջիջ, որը կվերադարձնեք գինը, մուտքագրեք բանաձևը = VLOOKUP (B2, [Price.xlsx] թերթ 1! $ A $ 1: $ B $ 24,2, FALSE) մեջը, ապա քաշեք նրա Լրացնելու բռնակը, որպեսզի այս բանաձևը կիրառեք ձեր պահանջվող տիրույթում:

Դա կարող է լինել խառնուրդ, որը խառնաշփոթ է VLOOKUP գործառույթում խնայող ճանապարհը, ֆայլի անունը և աշխատանքային թերթը կազմաձևելու համար: Այս մեթոդը կներկայացնի VBA ՝ այն հեշտությամբ լուծելու համար:

1. Սեղմեք ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2. Սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի տակ տեղադրեք բացման մոդուլի պատուհանում:

VBA. Vlookup տվյալների և վերադարձի արժեքները մեկ այլ փակ աշխատանքային գրքից

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

ՆշումԱյս VBA- ն կվերադարձնի արժեքները սյունակում, որը ընտրված սյունակից հետևում է 2 սյունակից: Օրինակ, այս VBA կիրառելիս ընտրում եմ B սյունակ, արժեքները կվերադառնան D սյունակում: Եթե նպատակակետի սյունը փոխելու կարիք ունեք, խնդրում ենք պարզել կոդը xRg.Offset (0, 2). Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row , և փոխարինել 2 ձեր համար անհրաժեշտ այլ համարին:

3. Սեղմեք F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

4. Բացվող երկխոսության դաշտում նշեք տվյալների տիրույթը, որը փնտրում եք և կտտացրեք այն OK կոճակը:

5. Այժմ ընտրեք աշխատանքային գիրքը, որտեղ արժեքները կփնտրեք բացման մեջ Ընտրեք աշխատանքային գրքույկ երկխոսության դաշտում և կտտացրեք այն բաց կոճակը:

Այժմ բոլոր ընտրված արժեքները որոնվում են նշված փակ աշխատանքային գրքում, և համապատասխան արժեքները վերադարձվում են նշված սյունակում: Տեսեք,