Cari kata di beberapa file excel

Halo selamat datang. Saat Anda "membuka" file di Excel, Anda memiliki opsi "Lanjutan". Itu memungkinkan Anda untuk mencari file tertentu, di folder tertentu yang memiliki kondisi tertentu (Banyak hal spesifik. mengedip. ). Salah satunya adalah dengan mencari isi file

Adakah yang bisa merekomendasikan alat pencarian yang dapat menemukan string teks di dalam file Excal. Saya perlu mengubah parameter salah satu makro excel saya untuk menambah fungsionalitas. Tapi saya ingin menemukan semua lembar yang saat ini menggunakannya sehingga saya dapat memperbaruinya daripada hanya mengalami kerusakan nanti

Ini tidak perlu menjadi alat gratis. Saya senang membayar untuk perangkat lunak yang bagus

Alat khusus memang bagus, tetapi juga bisa menjadi bagian dari alat yang lebih besar, seperti pengganti File Manager

Pernahkah Anda mencitrakan untuk mencari nilai tertentu di beberapa lembar atau buku kerja di Excel?

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

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

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

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

Temukan dan ganti nilai di seluruh lembar dan buku kerja

Cari nilai di semua buku kerja folder dengan VBA

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

1. Aktifkan buku kerja baru dan pilih sel, lalu tekan tombol Alt + F11 untuk membuka jendela Microsoft Visual for Basic Applications

2. Klik Sisipkan > Modul dan rekatkan di bawah VBA ke jendela Modul baru

VBA. Cari nilai di semua buku kerja 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 tombol F5 atau tombol Jalankan untuk menjalankan VBA ini, dan dialog Pilih folder muncul untuk mengingatkan Anda untuk memilih folder tempat Anda ingin mencari nilai. Lihat tangkapan layar

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

5. Klik OK untuk menutupnya, dan semua sel yang ditemukan dicantumkan dalam lembar kerja saat ini dengan informasi yang sesuai

Tip. Di atas VBA, Anda mencari nilai “KTE” , dan Anda dapat mengubah “KTE” dari ini xStrSearch = . to another value as you need.

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

Jika Anda hanya ingin mencari nilai di beberapa buku kerja yang dibuka, Anda dapat menggunakan Kutools untuk utilitas Temukan dan Ganti lanjutan dari Excel

Download Gratis
fitur lengkap gratis dalam 30 -hari

Setelah penginstalan gratis Kutools for Excel, silakan lakukan seperti di bawah ini.

1. Di salah satu buku kerja yang dibuka, klik Kutools > Navigasi, lalu klik tombol Temukan dan Ganti 

2. Kemudian klik tab Temukan, dan ketikkan nilai yang ingin Anda cari di kotak teks Temukan apa, lalu pilih Semua buku kerja dari daftar dropdown Di Dalam, dan klik Temukan Semua untuk mencantumkan semua sel yang ditemukan. Lihat tangkapan layar

Tip

Dengan Kutools for Excels lanjutan Cari dan Ganti utilitas, Anda dapat mencari dan mengganti nilai dalam lembar yang dipilih di beberapa buku kerja, semua buku kerja, buku kerja aktif, lembar aktif atau pilihan

Cari Nilai di Beberapa Buku Kerja yang Dibuka

Kutools untuk Excel. 300+ fungsi yang harus Anda miliki di Excel, 30 -hari uji coba gratis dari sini

Artikel Relatif

• Bagaimana cara cepat menemukan dan mengganti beberapa lembar kerja atau seluruh buku kerja?
• Bagaimana cara cepat menemukan dan mengganti beberapa file Excel yang dibuka?
• Bagaimana menemukan nilai negatif terbesar (kurang dari 0) di Excel?
• Bagaimana cara mengekstrak semua duplikat dari kolom di Excel?

Alat Produktivitas Kantor Terbaik

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

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and 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.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 18 )

Belum ada peringkat. Jadilah yang pertama menilai

Orly B

sekitar 5 tahun yang lalu

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 mengembalikan Kolom ke-5 dengan nomor Referensi?
xHitung = xHitung + 1
xBaris = xBaris + 1
Sel(xRow, 1) = xWb. Nama
Sel(xRow, 2) = xWk. Nama
Sel(xRow, 3) = xDitemukan. Alamat
Sel(xRow, 4) = xDitemukan. Nilai
Sel(xRow, 5) = ???

Membalas

0

0

Orlando B

sekitar 5 tahun yang lalu

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 mengembalikan Kolom ke-5 dengan nomor Referensi?
xHitung = xHitung + 1
xBaris = xBaris + 1
Sel(xRow, 1) = xWb. Nama
Sel(xRow, 2) = xWk. Nama
Sel(xRow, 3) = xDitemukan. Alamat
Sel(xRow, 4) = xDitemukan. Nilai
Sel(xRow, 5) = ???

Membalas

0

0

Orlando B

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Inilah yang saya inginkan untuk mengembalikan "Instruksi Situs" yang dialokasikan ke semua Teks di Sel
Teks Sel Lembar Kerja Buku Kerja dalam Instruksi Situs Sel
Laporan shift Emicc 01-10-17. xlsx Sheet1 $D$20 Instal CMS 1773
Laporan shift Emicc 01-10-17. xlsx Sheet1 $D$21 CMS menginstal 1763
Laporan shift Emicc 01-10-17. xlsx Sheet1 $D$24 Instal CMS 1551

Membalas

0

0

Andre

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

terima kasih. Itu sangat membantu saya =)

Membalas

0

0

Matt Sabin

sekitar 4 tahun yang lalu

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?

Membalas

Laporan

0

0

Cerah     Matt Sabin

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Maaf saya tidak dapat membantu Anda, Anda dapat pergi ke forum keluar https. // www. extendoffice. com/forum. html untuk melanjutkan pertanyaan, mungkin seseorang dapat membantu Anda

Membalas

Laporan

0

0

Peter     Matt Sabin

sekitar 6 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah Anda pernah mengetahui hal ini?

Membalas

0

0

sinar

sekitar 4 tahun yang lalu

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?

Membalas

0

0

Cerah     Sinar

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Maaf, saya tidak tahu masalah ini, Anda bisa pergi ke forum kami https. // www. extendoffice. com/forum. html untuk melanjutkan masalah, mungkin ada yang tahu jawabannya

Membalas

Laporan

0

0

Yakobus

sekitar 4 tahun yang lalu

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?

Membalas

0

0

MM

sekitar 4 tahun yang lalu

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

Membalas

0

0

chan     MM

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

saya juga saya ingin. . )

Membalas

0

0

Rafael

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

como generar códigos qr

Membalas

0

0

Shree

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bagaimana cara membuat hyperlink di bawah kolom C untuk semua nilai sel dalam kode yang sama?

Membalas

0

0

Dhireesh

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

HI dalam lembar kerja kasus saya dengan catatan lebih dari 1 Lakh, skrip gagal

Membalas

0

0

Cerah     Dhireesh

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, Dhireesh, kode VBA memiliki batasannya sendiri. Anda bisa mencoba Kutools for Excel's Temukan dan Ganti, tapi mungkin berjalan lambat, harap bersabar, dan sebaiknya simpan buku kerja sebelumnya

Membalas

Laporan

0

0

Mike

sekitar 5 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

program berhenti di sini

Atur xWb = Buku Kerja. Buka (Nama file. =xStrPath & "\" & xStrFile, UpdateLinks. =0, Hanya Baca. =Benar, AddToMRU. =Salah)

Membalas

0

0

Cerah     Mike

sekitar 4 bulan yang lalu

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

Bagaimana cara mencari data di beberapa spreadsheet Excel?

Bagaimana cara mencari kata di semua lembar di Excel?

Bisakah Windows mencari di dalam file Excel?

Bisakah Anda menarik data dari banyak file Excel?