Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako hitro iščete vrednost v več listih ali delovnih zvezkih?

Ali ste kdaj uporabili za iskanje določene vrednosti v več listih ali delovnih zvezkih v Excelu? Ta vadnica uvaja nekaj različnih metod za reševanje težav pri iskanju v več listih ali iskanje v več delovnih zvezkih.

Poiščite vrednost v več listih delovnega zvezka s funkcijo »Poišči in zamenjaj«

Poiščite vrednost v vseh delovnih zvezkih mape z VBA

Hitro poiščite vrednost v več odprtih delovnih zvezkov s programom Kutools for Excel dobra ideja3


Poiščite in zamenjajte vrednost prek listov in delovnih zvezkov

Kutools za ExcelNapreden je Poišči in zamenjaj funkcijo, vam lahko pomaga najti in zamenjati vrednost prek več listov in odprtih delovnih zvezkov. Brezplačen prenos
doc najde več delovnih zvezkov
Kutools za Excel: z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Z Excelovo Poišči in zamenjaj funkcijo, lahko najdete določeno vrednost v več listih.

1. Izberite več zavihkov listov, iz katerih želite najti vrednost, tako da držite Ctrl ključ in kliknete delovne liste v Sheet Tab bar enega po enega. Prikaz slike:

doc vrednost iskanja v več listih 1

2. Potem pritisnite Ctrl + F da omogočite Poišči in zamenjaj okno in vnesite vrednost, ki jo želite poiskati Našli kaj textbox pod Najdi kartico in nato kliknite Poišči vse gumb za seznam vseh rezultatov. Prikaz slike:

doc vrednost iskanja v več listih 2


Če želite iskati vrednost vseh zaprtih delovnih zvezkov iz mape, lahko uporabite samo VBA, da jo rešite.

1. Omogočite novo delovno knjižico in izberite celico, nato pritisnite Alt + F11 tipke za odpiranje Microsoft Visual za osnovne aplikacije okno.

2. klik Vstavi > Moduli in prilepite pod VBA v novo okno modula.

VBA: poiščite vrednost v vseh delovnih zvezkih v mapi.

Sub SearchFolders()
'UpdatebyKutoolsforExcel20151202
    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
    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 <> ""
            Set xWb = Workbooks.Open(Filename:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
            For Each xWk In xWb.Worksheets
                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
            Next
            xWb.Close (False)
            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. Nato pritisnite F5 ključ ali Run gumb za izvedbo te VBA in a Izberite mapo pogovorno okno se izpiše, da vas opomni, da izberete mapo, iz katere želite iskati vrednost. Prikaz slike:

doc vrednost iskanja v več listih 3

4. In nato kliknite OK in še eno okno, ki vas opozarja na število celic. Prikaz slike:

doc vrednost iskanja v več listih 4

5. klik OK do Zapri in vse najdene celice so na seznamu v trenutnem delovnem listu z ustreznimi informacijami.

doc vrednost iskanja v več listih 5

Nasvet: V zgornjem VBA iščete vrednost "KTE", in lahko spremenite "KTE" od tega xStrSearch = "KTE" na drugo vrednost, kot jo potrebujete.


Če želite iskati vrednost v več odprtih delovnih zvezkih, lahko uporabite Kutools za Excel 's naprednimi Poišči in zamenjaj uporabnost.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. V enem od odprtih delovnih zvezkov kliknite Kutools > Navigationin nato kliknite Poišči in zamenjaj Gumb gumb za iskanje dokumenta iti Poišči in zamenjaj okno. Prikaz slike:

doc vrednost iskanja v več listih 6

2. Nato kliknite Najdi kartico in vnesite vrednost, ki jo želite poiskati Našli kaj in izberite Vsi delovni zvezki Iz V okviru spustni seznam in pojdite na klik Poišči vse seznam vseh najdenih celic. Prikaz slike:

doc vrednost iskanja v več listih 7

Nasvet:

z Kutools za ExcelNapreden je Poišči in zamenjaj uporabnost, lahko iščete in zamenjate vrednost v izbranih listih v več delovnih zvezkih, vseh delovnih zvezkih, aktivni delovni zvezki, aktivnem listu ali izboru.

doc vrednost iskanja v več listih 8


Brskanje po spletnem brisanju in urejanje več dokumentov z Wordom / delovni zvezki Excel kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča brskanje po več dokumentih Word ali Excelovih delovnih zvezkov v enem oknu programa Word ali Excel ter preprosto preklapljate med njimi tako, da kliknete njihove zavihke.
Kliknite brezplačno preskusno različico Office Tab!

Brskanje po več besednih dokumentih v enem oknu kot Firefox

Relativni členi:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.
  • To post as a guest, your comment is unpublished.
    MM · 7 months ago
    Awesome this works perfect,
    Could you help me, I would like to create an hyperlink to each cell where the value was found.

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    James · 10 months ago
    Perfect for what I need except for the fact that it creates a new sheet every search. How would I modify the code to use a single sheet for each search instead of creating a new one? Thanks, James
  • To post as a guest, your comment is unpublished.
    Ray · 11 months ago
    Your code works great, I look for a code that finds two texts in excel files, do you know how is it possible?
  • To post as a guest, your comment is unpublished.
    Matt Sabin · 1 years ago
    How can I add another column and bring the value that is always 3 columns to the right on the value found?
  • To post as a guest, your comment is unpublished.
    André · 1 years ago
    Thanks. It helped me a lot =)