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

or

Bagaimana cara mencari / menemukan nilai di buku kerja lain?

Artikel ini membahas tentang cara mencari nilai dan mengembalikan data dari buku kerja lain, dan cara menemukan / mencari nilai dari buku kerja lain. Di sini saya akan memperkenalkan tiga solusi secara rinci.


Vlookup data dan mengembalikan nilai dari buku kerja lain di Excel

Misalnya Anda membuat tabel Pembelian Buah di Excel, dan sekarang Anda perlu mencari buah dari buku kerja lain dan mengembalikan harga yang sesuai seperti gambar di bawah ini. Di sini saya akan memandu Anda menyelesaikannya dengan fungsi VLOOKKUP di Excel.

1. Buka kedua workbook yang akan Anda vlookup nilainya dan kembalikan nilainya.

2. Pilih sel kosong yang akan Anda kembalikan harganya, ketikkan rumusnya = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) ke dalamnya, lalu seret Fill Handle untuk menerapkan rumus ini ke kisaran yang Anda butuhkan.

Catatan:
(1) Dalam rumus di atas, B2 adalah buah yang akan Anda cari dari buku kerja lain, Price.xlsx menunjukkan nama file buku kerja yang akan Anda cari, Sheet1 berarti nama lembar yang akan Anda cari, dan A $ 1 : $ B $ 24 adalah kisaran yang akan Anda cari. Anda dapat mengubahnya sesuai kebutuhan.
(2) Setelah menutup buku kerja yang Anda cari, rumus akan diperbarui secara otomatis = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, SALAH), W: \ test \ adalah jalur penyimpanan buku kerja yang telah Anda cari.

Sejauh ini, semua harga telah kembali dengan benar seperti screenshot kiri yang ditampilkan. Dan harga ini akan diperbarui secara otomatis jika buku kerja asli yang Anda cari dari perubahan.

perhatikan pita Formula terlalu rumit untuk diingat? Simpan rumus sebagai entri Teks Otomatis untuk digunakan kembali hanya dengan satu klik di masa mendatang!
Baca lebih banyak…     Free trial

Vlookup data dan mengembalikan nilai dari buku kerja tertutup lainnya dengan VBA

Mungkin sampah bingung untuk mengkonfigurasi jalur penyimpanan, nama file, dan lembar kerja di fungsi VLOOKUP. Metode ini akan memperkenalkan VBA untuk menyelesaikannya dengan mudah.

1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke jendela modul pembuka.

VBA: Vlookup data dan mengembalikan nilai dari buku kerja tertutup lainnya

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
Catatan: VBA ini akan mengembalikan nilai dalam kolom yang berada 2 kolom di belakang kolom yang dipilih. Misalnya saya memilih kolom B saat menerapkan VBA ini, nilai akan kembali di Kolom D. Jika Anda perlu mengubah kolom tujuan, silakan cari tahu kodenya xRg.Offset (0, 2) .Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row , dan ganti 2 ke nomor lain yang Anda butuhkan.

3. tekan F5 atau klik menjalankan tombol untuk menjalankan VBA ini.

4. Pada kotak dialog pembuka, harap tentukan kisaran data yang akan Anda cari, dan klik OK tombol.

5. Sekarang pilih workbook di mana Anda akan mencari nilai-nilai di kotak dialog Select a Workbook, dan klik Buka tombol.

Sekarang semua nilai yang dipilih dicari di buku kerja tertutup yang ditentukan, dan nilai yang sesuai dikembalikan pada kolom yang ditentukan. Lihat tangkapan layar:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Super Formula Bar (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
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?