İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Digər bir iş kitabında dəyərləri axtarma / tapmaq üçün necə?

Bu yazı, dəyərləri araşdıran və digər iş kitabından məlumatları necə qaytarmağı və başqa bir iş kitabından dəyərləri necə tapmaqdan danışır. Burada üç həlli ətraflı şəkildə təqdim edəcəyəm.

Excel-də başqa bir iş kitabından Vlookup məlumatları və qaytarma dəyərləri

Vlookup məlumatları və VBA ilə başqa bir bağlı iş kitabından qayıtmaq dəyərləri

Düzgün formula xatırlamadan başqa bir hesabat bir dəyər üçün asanlıqla vlookup

Excel üçün Kutools Siyahıda bir dəyər axtarın formula asanlıqla effektiv hesabat və ya başqa cədvəllərdə seçmə dəyərindən vlookup kömək edə bilər. Tam xüsusiyyətli 60-sınaq sınaq!

reklam 1 siyahısında bir dəyər axtarmaq
reklam 2 siyahısında bir dəyər axtarmaq

arrow mavi sağ bubble Excel-də başqa bir iş kitabından Vlookup məlumatları və qaytarma dəyərləri

Misal üçün, Excel-də Meyvə Satınalma masası yaradır və indi başqa bir iş kitabından meyvə vermək və göstərilən ekranlarındakı qiymətləri müvafiq qiymətlərə qaytarmaq lazımdır. Burada Excel-də VLOOKKUP funksiyası ilə həll etməyə kömək edəcəyəm.

1. Hər iki iş kitabını açın ki, dəyərlərdən vlookup və dəyərlərinizi qaytarın.

2. Boş bir hüceyrəni qiymətə qaytaracaqsınız, formu yazın = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) lazım olan yerə bu formulun tətbiq olunması üçün Doldurma Tutacağı sürüşdürün.

Qeydlər:

(1) Yuxarıdakı formada, B2 başqa bir iş kitabından görünəcək bir meyvəsidir, Price.xlsx sizdən baxacaq iş kitabının fayl adını göstərir, Sheet1 sizdən baxacaq hesabat adını və A $ 1: $ B $ 24 sizdən baxacaq bir sıra. Sizə lazım olanları dəyişə bilərsiniz.

(2) Siz baxdığınız iş kitabını bağladıqdan sonra formul avtomatik olaraq yeniləyir = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, FALSE), W: \ test \ sizdən baxdığınız iş kitabının qənaət yoludur.

Hal-hazırda bütün qiymətlər sol ekran görüntüsünün göstərildiyi kimi düzgün şəkildə geri qaytarılıb. Bu dəyişikliklərdən baxdığınız orijinal iş kitabınız avtomatik olaraq yenilənir.

qeyd lenti Formula yadda saxlamaq üçün çox mürəkkəbdir? Gələcəkdə yalnız bir kliklə təkrar istifadə etmək üçün Formula avtomatik mətn yazısı olaraq qeyd edin!
Daha çox oxu… Ödənişsiz sınaq

arrow mavi sağ bubble Vlookup məlumatları və VBA ilə başqa bir bağlı iş kitabından qayıtmaq dəyərləri

VLOOKUP funksiyasında qənaət yolunu, filename və səhifəni konfiqurasiya etmək üçün qarışıq bir zibil ola bilər. Bu üsul asanlıqla həll etmək üçün bir VBA təqdim edəcək.

1. Basın Dayandırmaq + F11 Microsoft Visual Basic for Applications penceresini açmaq üçün düymələr.

2. Basın Taxmaq > Modules, və sonra VBA kodu aşağı açılış modulu pəncərə yapışdırıb.

VBA: Vlookup məlumatları və başqa bir iş kitabından qayıtmaq dəyərləri

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
Qeyd: Bu VBA seçilmiş sütun arxasında 2 sütun olan sütundakı dəyərləri qaytaracaq. Məsələn, bu VBA tətbiq edərkən B sütununu seçirəm, dəyərlər S sütununda qayıdacaqdır. Dəyişən sütunun dəyişdirilməsini istəyirsinizsə, xRg.Offset (0, 2) .Formula = xString və GetColumn (xFCell.Column + 1) & "$" və xFCell.Row , və əvəz 2 Sizə lazım olan digər sayda.

3. Basın F5 düyməsini basın və ya basın qaçış bu VBA'yı çalıştırmak üçün düyməsini basın.

4. Açılış informasiya qutusunda xahiş edirik aradığınız veri aralığını göstərin və basın OK düyməsini basın.

5. İndi açılışdakı dəyərləri araşdıracaq iş kitabını seçin İş kitabını seçin və informasiya qutusunu seçin açıq düyməsini basın.

İndi bütün seçilmiş dəyərlər göstərilən bağlanmış iş kitabında araşdırılır və müvafiq dəyərlər müəyyən sütunda qaytarılır. Ekran görüntüsünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.