Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mencari nilai dengan cepat di beberapa lembar atau buku kerja?

Pernahkah Anda membayangkan mencari nilai tertentu di beberapa lembar atau buku kerja di Excel? Tutorial ini memperkenalkan beberapa metode berbeda untuk memecahkan masalah tentang mencari di beberapa lembar atau mencari di beberapa buku kerja.

Cari nilai di beberapa lembar buku kerja dengan fungsi Temukan dan Ganti

Cari nilai di semua buku kerja folder dengan VBA

Cari nilai dengan cepat di beberapa buku kerja yang dibuka dengan Kutools for Excel ide bagus3


Dengan Excel Cari dan Ganti fungsi, Anda dapat menemukan nilai tertentu di beberapa lembar.

1. Pilih beberapa tab lembar yang ingin Anda temukan nilainya dengan menahan Ctrl kunci dan mengklik lembar kerja di Bilah Tab Lembar satu per satu. Lihat tangkapan layar:

nilai pencarian doc dalam beberapa lembar 1

2. Kemudian Tekan Ctrl + F untuk mengaktifkan Cari dan Ganti jendela, dan ketik nilai yang ingin Anda cari di Temukan apa kotak teks di bawah Menemukan tab, dan kemudian klik Temukan semua tombol untuk mencantumkan semua hasil. Lihat tangkapan layar:

nilai pencarian doc dalam beberapa lembar 2


Temukan dan ganti nilai di seluruh lembar dan buku kerja

Kutools untuk Excelmaju Cari dan Ganti fungsi, dapat membantu Anda menemukan dan mengganti nilai di beberapa lembar dan buku kerja yang dibuka.  Free download
temukan ganti
 
Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan 30 hari.

Jika Anda ingin mencari nilai di semua buku kerja tertutup dari folder, Anda hanya bisa menerapkan VBA untuk menyelesaikannya.

1. Aktifkan buku kerja baru dan pilih sel, lalu tekan Alt + F11 kunci untuk membuka Microsoft Visual untuk Aplikasi Dasar jendela.

2. klik Menyisipkan > Modul dan tempelkan di bawah VBA ke jendela Modul baru.

VBA: Cari nilai di semua buku kerja dalam folder.

Sub SearchFolders()
'UpdatebyKutoolsforExcel20200913
    Dim xFso As Object
    Dim xFld As Object
    Dim xStrSearch As String
    Dim xStrPath As String
    Dim xStrFile As String
    Dim xOut As Worksheet
    Dim xWb As Workbook
    Dim xWk As Worksheet
    Dim xRow As Long
    Dim xFound As Range
    Dim xStrAddress As String
    Dim xFileDialog As FileDialog
    Dim xUpdate As Boolean
    Dim xCount As Long
    Dim xAWB As Workbook
    Dim xAWBStrPath As String
    Dim xBol As Boolean
    Set xAWB = ActiveWorkbook
    xAWBStrPath = xAWB.Path & "\" & xAWB.Name
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a forlder"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    xStrSearch = "KTE"
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set xOut = Worksheets.Add
    xRow = 1
    With xOut
        .Cells(xRow, 1) = "Workbook"
        .Cells(xRow, 2) = "Worksheet"
        .Cells(xRow, 3) = "Cell"
        .Cells(xRow, 4) = "Text in Cell"
        Set xFso = CreateObject("Scripting.FileSystemObject")
        Set xFld = xFso.GetFolder(xStrPath)
        xStrFile = Dir(xStrPath & "\*.xls*")
        Do While xStrFile <> ""
            xBol = False
            If (xStrPath & "\" & xStrFile) = xAWBStrPath Then
                xBol = True
                Set xWb = xAWB
            Else
                Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            End If
            For Each xWk In xWb.Worksheets
                If xBol And (xWk.Name = .Name) Then
                Else
                Set xFound = xWk.UsedRange.Find(xStrSearch)
                If Not xFound Is Nothing Then
                    xStrAddress = xFound.Address
                End If
                Do
                    If xFound Is Nothing Then
                        Exit Do
                    Else
                        xCount = xCount + 1
                        xRow = xRow + 1
                        .Cells(xRow, 1) = xWb.Name
                        .Cells(xRow, 2) = xWk.Name
                        .Cells(xRow, 3) = xFound.Address
                        .Cells(xRow, 4) = xFound.Value
                    End If
                    Set xFound = xWk.Cells.FindNext(After:=xFound)
                Loop While xStrAddress <> xFound.Address
                End If
            Next
            If Not xBol Then
            xWb.Close (False)
            End If
            xStrFile = Dir
        Loop
        .Columns("A:D").EntireColumn.AutoFit
    End With
    MsgBox xCount & " cells have been found", , "Kutools for Excel"
ExitHandler:
    Set xOut = Nothing
    Set xWk = Nothing
    Set xWb = Nothing
    Set xFld = Nothing
    Set xFso = Nothing
    Application.ScreenUpdating = xUpdate
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub

3. Kemudian tekan F5 kunci atau Run tombol untuk menjalankan VBA ini, dan a Pilih folder dialog muncul untuk mengingatkan Anda untuk memilih folder yang ingin Anda cari nilainya. Lihat tangkapan layar:

nilai pencarian doc dalam beberapa lembar 3

4. Dan kemudian klik OK dan dialog lain muncul untuk mengingatkan Anda jumlah sel yang telah ditemukan. Lihat tangkapan layar:

nilai pencarian doc dalam beberapa lembar 4

5. klik OK untuk tutup itu, dan semua sel yang ditemukan dicantumkan di lembar kerja saat ini dengan informasi yang sesuai.

nilai pencarian doc dalam beberapa lembar 5

olymp trade indonesiaTip: Di atas VBA, Anda mencari nilainya “KTE”, dan Anda bisa berubah “KTE” dari xStrSearch = "KTE" ke nilai lain yang Anda butuhkan.


Jika Anda hanya ingin mencari nilai di beberapa buku kerja yang dibuka, Anda bisa menggunakan Kutools untuk Excel 's maju Cari dan Ganti utilitas

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Dalam salah satu buku kerja yang dibuka, klik Kutools > Navigasi, lalu klik Cari dan Ganti tombol tombol cari doc untuk pergi ke Cari dan Ganti panel. Lihat tangkapan layar:

nilai pencarian doc dalam beberapa lembar 6

2. Lalu klik Menemukan tab, dan ketikkan nilai yang ingin Anda cari di Temukan apa kotak teks, lalu pilih Semua buku kerja dari Dalam daftar dropdown, dan klik Temukan semua untuk mencantumkan semua sel yang ditemukan. Lihat tangkapan layar:
doc kutools menemukan ganti 2

olymp trade indonesiaTip:

Dengan Kutools untuk Excelmaju Cari dan Ganti utilitas, Anda bisa mencari dan mengganti nilai di lembar yang dipilih di beberapa buku kerja, semua buku kerja, buku kerja aktif, lembar aktif atau pilihan.
doc kutools menemukan ganti 3


Artikel Relatif:


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 ...
  • Bilah Formula Super (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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (18)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk VBA itu, ini berfungsi dengan baik untuk mencari beberapa file excel, namun apakah mungkin untuk mengembalikannya ke Kolom ke-5 dengan nomor Referensi? Lain
xJumlah = xJumlah + 1
xBaris = xBaris + 1
.Sel(xRow, 1) = xWb.Nama
.Sel(xRow, 2) = xWk.Name
.Sel(xRow, 3) = xFound.Address
.Sel(xRow, 4) = xDitemukan.Nilai
.Sel(xRow, 5) = ???
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk VBA itu, ini berfungsi dengan baik untuk mencari beberapa file excel, namun apakah mungkin untuk mengembalikannya ke Kolom ke-5 dengan nomor Referensi? Lain
xJumlah = xJumlah + 1
xBaris = xBaris + 1
.Sel(xRow, 1) = xWb.Nama
.Sel(xRow, 2) = xWk.Name
.Sel(xRow, 3) = xFound.Address
.Sel(xRow, 4) = xDitemukan.Nilai
.Sel(xRow, 5) = ???
Komentar ini diminimalkan oleh moderator di situs
Inilah yang saya inginkan untuk mengembalikan "Instruksi Situs" yang dialokasikan untuk semua Teks di Sel
Buku Kerja Lembar Kerja Teks Sel di Situs Sel Instruksi
Shift report Emicc 01-10-17.xlsx Sheet1 $D$20 CMS install 1773
Shift report Emicc 01-10-17.xlsx Sheet1 $D$21 CMS install 1763
Shift report Emicc 01-10-17.xlsx Sheet1 $D$24 CMS install 1551
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Sangat membantu saya =)
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa menambahkan kolom lain dan membawa nilai yang selalu 3 kolom ke kanan pada nilai yang ditemukan?
Komentar ini diminimalkan oleh moderator di situs
Maaf saya tidak dapat membantu Anda, Anda dapat pergi ke forum luar https://www.extendoffice.com/forum.html untuk melanjutkan pertanyaan, mungkin seseorang dapat membantu Anda.
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda pernah mengetahui hal ini? Saya membutuhkan itu juga.
Komentar ini diminimalkan oleh moderator di situs
Kode Anda berfungsi dengan baik, saya mencari kode yang menemukan dua teks dalam file excel, tahukah Anda bagaimana mungkin?
Komentar ini diminimalkan oleh moderator di situs
Maaf, saya tidak tahu tentang masalah ini, Anda dapat pergi ke forum kami https://www.extendoffice.com/forum.html untuk melanjutkan masalah, mungkin seseorang tahu jawabannya.
Komentar ini diminimalkan oleh moderator di situs
Sempurna untuk apa yang saya butuhkan kecuali fakta bahwa itu membuat lembar baru setiap pencarian. Bagaimana saya memodifikasi kode untuk menggunakan satu lembar untuk setiap pencarian alih-alih membuat yang baru? Terima kasih, James
Komentar ini diminimalkan oleh moderator di situs
Luar biasa ini bekerja dengan sempurna,
Bisakah Anda membantu saya, saya ingin membuat hyperlink ke setiap sel tempat nilai ditemukan.

Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
saya juga saya ingin! :)
Komentar ini diminimalkan oleh moderator di situs
como gener códigos qr
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara membuat hyperlink di bawah kolom C untuk semua nilai sel dalam kode yang sama?
Komentar ini diminimalkan oleh moderator di situs
HI dalam lembar kerja kasus saya dengan catatan lebih dari 1 Lakh, skrip gagal.
Komentar ini diminimalkan oleh moderator di situs
Hai, Dhireesh, kode VBA memiliki batasannya sendiri. Anda bisa mencoba Kutools for Excel's Fiind and Replace, tetapi mungkin berjalan lambat, harap bersabar, dan sebaiknya simpan buku kerja sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
program berhenti di sini:

Set xWb = Workbooks.Open(Nama file:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
Komentar ini diminimalkan oleh moderator di situs
Hai, Mike, saya telah memperbarui VBA di artikel, silakan coba lagi. Jika ada masalah, tolong beri tahu saya, terima kasih.
Belum ada komentar yang diposting di sini
Silakan tinggalkan komentar Anda dalam bahasa Inggris
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL