Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i edrych / dod o hyd i werthoedd mewn llyfr gwaith arall?

Mae'r erthygl hon yn sôn am sut i edrych ar werthoedd a dychwelyd data o lyfr gwaith arall, a sut i ddod o hyd i / chwilio gwerthoedd o lyfr gwaith arall. Yma, byddaf yn cyflwyno tri datrysiad yn fanwl.


Data Vlookup a gwerthoedd dychwelyd o lyfr gwaith arall yn Excel

Er enghraifft, rydych chi'n creu tabl Prynu Ffrwythau yn Excel, ac nawr mae angen i chi edrych ar y ffrwythau o lyfr gwaith arall a dychwelyd prisiau cyfatebol fel y dangosir y sgrinluniau isod. Yma, byddaf yn eich tywys i'w ddatrys gyda swyddogaeth VLOOKKUP yn Excel.

1. Agorwch y ddau lyfr gwaith y byddwch yn edrych ar werthoedd ac yn dychwelyd gwerthoedd ynddynt.

2. Dewiswch gell wag y byddwch chi'n dychwelyd pris, teipiwch y fformiwla = VLOOKUP (B2, [Price.xlsx] Taflen1! $ A $ 1: $ B $ 24,2, ANWIR) i mewn iddo, ac yna llusgwch ei Llenwch Trin ar gyfer cymhwyso'r fformiwla hon i'r ystod yn ôl yr angen.

Nodiadau:
(1) Yn y fformiwla uchod, B2 yw'r ffrwyth y byddwch chi'n edrych arno o lyfr gwaith arall, mae Price.xlsx yn nodi enw ffeil y llyfr gwaith y byddwch chi'n edrych i fyny ohono, mae Sheet1 yn golygu enw'r ddalen y byddwch chi'n edrych i fyny ohoni, ac A $ 1 : $ B $ 24 yw'r amrediad y byddwch chi'n edrych i fyny ohono. Gallwch eu newid yn ôl yr angen.
(2) Ar ôl cau'r llyfr gwaith y gwnaethoch edrych arno, bydd y fformiwla'n diweddaru yn awtomatig = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, GAU), y W: \ test \ yw llwybr arbed y llyfr gwaith rydych chi wedi edrych i fyny ohono.

Hyd yn hyn, mae'r holl brisiau wedi dychwelyd yn gywir fel y dangosir y llun chwith. A bydd y prisiau hyn yn diweddaru'n awtomatig os gwnaethoch edrych ar newidiadau yn y llyfr gwaith gwreiddiol.

rhuban nodyn Mae fformiwla yn rhy gymhleth i'w gofio? Cadwch y fformiwla fel cofnod Testun Auto i'w ailddefnyddio gyda dim ond un clic yn y dyfodol!
Darllen mwy…     Cyfnod treialu am ddim

Data Vlookup a gwerthoedd dychwelyd o lyfr gwaith caeedig arall gyda VBA

Efallai ei fod yn sbwriel wedi'i ddrysu i ffurfweddu'r llwybr arbed, enw ffeil, a thaflen waith yn swyddogaeth VLOOKUP. Bydd y dull hwn yn cyflwyno VBA i'w ddatrys yn hawdd.

1. Gwasgwch y Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch ar y Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y modiwl agoriadol.

VBA: Data Vlookup a gwerthoedd dychwelyd o lyfr gwaith caeedig arall

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
Nodyn: Bydd y VBA hwn yn dychwelyd gwerthoedd mewn colofn sydd 2 golofn y tu ôl i golofn ddethol. Er enghraifft, dewisaf golofn B wrth gymhwyso'r VBA hwn, bydd gwerthoedd yn dychwelyd yng Ngholofn D. Os bydd angen i chi newid y golofn cyrchfan, darganfyddwch y cod xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row , a disodli 2 i rif arall yn ôl yr angen.

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.

4. Yn y blwch deialog agoriadol, nodwch yr ystod ddata y byddwch chi'n edrych i fyny arni, a chliciwch ar y OK botwm.

5. Nawr dewiswch y llyfr gwaith lle byddwch chi'n edrych i fyny gwerthoedd yn y blwch deialog Dewiswch Llyfr Gwaith agoriadol, a chliciwch ar y agored botwm.

Nawr edrychir ar yr holl werthoedd a ddewiswyd yn y llyfr gwaith caeedig penodedig, a dychwelir y gwerthoedd cyfatebol mewn colofn benodol. Gweler y screenshot:


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    leigh_87 · 2 years ago
    Hi this works great thanks! Would it be at all possible to show me how i would change the code if i have the workbook open that i would like to lookup the data in?