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

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

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:

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:

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

Kutools for Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.

Cari nilai di semua buku kerja folder dengan VBA

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:

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

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

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

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 bisa menggunakan Kutools untuk Excel 's maju Cari dan Ganti utilitas

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  untuk pergi ke Cari dan Ganti panel. Lihat tangkapan layar:

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:

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.

  Cari Nilai di Beberapa Buku Kerja yang Terbuka

Artikel Relatif:

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