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

Sut i chwilio gwerth mewn sawl taflen neu lyfr gwaith yn gyflym?

Ydych chi erioed wedi delweddu chwilio gwerth penodol mewn sawl taflen neu lyfr gwaith yn Excel? Mae'r tiwtorial hwn yn cyflwyno rhai dulliau gwahanol i ddatrys y problemau ynghylch chwilio mewn sawl dalen neu chwilio mewn sawl llyfr gwaith.

Chwiliwch werth mewn sawl taflen o lyfr gwaith gyda swyddogaeth Dod o Hyd ac Amnewid

Chwiliwch werth ym mhob llyfr gwaith o ffolder gyda VBA

Chwiliwch werth yn gyflym ar draws nifer o lyfrau gwaith a agorwyd gyda Kutools ar gyfer Excel syniad da3


Gydag Excel's Dod o hyd ac yn ei le swyddogaeth, gallwch ddod o hyd i werth penodol ar draws sawl dalen.

1. Dewiswch dabiau dalennau lluosog rydych chi am ddod o hyd i werth ohonynt trwy ddal y Ctrl allwedd a chlicio'r taflenni gwaith yn y Bar Tab Dalen un wrth un. Gweler y screenshot:

gwerth chwilio doc mewn sawl taflen 1

2. Yna Gwasg Ctrl + F i alluogi'r Dod o hyd ac yn ei le ffenestr, a theipiwch y gwerth rydych chi am ei chwilio yn y Dewch o hyd i beth blwch testun o dan Dod o hyd i tab, ac yna cliciwch Dewch o Hyd i Bawb botwm i restru'r holl ganlyniadau. Gweler y screenshot:

gwerth chwilio doc mewn sawl taflen 2


Darganfyddwch a disodli gwerth ar draws taflenni a llyfrau gwaith

Kutools ar gyfer Exceluwch Dod o hyd ac yn ei le swyddogaeth, yn gallu eich helpu i ddod o hyd i werth a'i ddisodli ar draws sawl taflen a llyfrau gwaith agored.  Lawrlwythiad Am Ddim
dod o hyd i amnewid
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Os ydych chi eisiau chwilio gwerth ym mhob llyfr gwaith caeedig o ffolder, dim ond VBA y gallwch ei gymhwyso i'w ddatrys.

1. Galluogi llyfr gwaith newydd a dewis cell, yna pwyswch Alt + F11 allweddi i agor Microsoft Visual ar gyfer Cymwysiadau Sylfaenol ffenestr.

2. Cliciwch Mewnosod > Modiwlau a gludo islaw VBA i ffenestr y Modiwl newydd.

VBA: Chwiliwch werth ar draws holl lyfrau gwaith ffolder.

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. Yna pwyswch F5 allweddol neu Run botwm i weithredu'r VBA hwn, ac a Dewiswch ffolder deialog yn galw allan i'ch atgoffa i ddewis ffolder yr ydych am chwilio gwerth ohono. Gweler y screenshot:

gwerth chwilio doc mewn sawl taflen 3

4. Ac yna cliciwch OK ac mae deialog arall yn galw allan i'ch atgoffa nifer y celloedd sydd wedi'u darganfod. Gweler y screenshot:

gwerth chwilio doc mewn sawl taflen 4

5. Cliciwch OK i cau mae'n, ac mae'r holl gelloedd a ddarganfuwyd wedi'u rhestru yn y daflen waith gyfredol gyda'r wybodaeth gyfatebol.

gwerth chwilio doc mewn sawl taflen 5

Tip: Yn uchod VBA, rydych chi'n chwilio'r gwerth “KTE”, a gallwch chi newid “KTE” o hyn xStrSearch = "KTE" i werth arall yn ôl yr angen.


Os ydych chi eisiau chwilio gwerth ar draws sawl llyfr gwaith agored yn unig, gallwch ei ddefnyddio Kutools for Excel 's uwch Dod o hyd ac yn ei le cyfleustodau.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Yn un o'r llyfrau gwaith a agorwyd, cliciwch Kutools > Llywio, ac yna cliciwch ar Dod o hyd ac yn ei le botwm botwm dod o hyd i doc i fynd i'r Dod o hyd ac yn ei le cwarel. Gweler y screenshot:

gwerth chwilio doc mewn sawl taflen 6

2. Yna cliciwch Dod o hyd i tab, a theipiwch y gwerth rydych chi am ei chwilio yn y Dewch o hyd i beth blwch testun, ac yna dewiswch Pob llyfr gwaith oddi wrth y O fewn rhestr ostwng, ac ewch i glicio Dewch o Hyd i Bawb i restru'r holl gelloedd a ddarganfuwyd. Gweler y screenshot:
doc kutools dod o hyd i amnewid 2

Tip:

gyda Kutools ar gyfer Exceluwch Dod o hyd ac yn ei le cyfleustodau, gallwch chwilio a disodli gwerth mewn taflenni dethol ar draws nifer o lyfrau gwaith, yr holl lyfrau gwaith, llyfr gwaith gweithredol, taflen weithredol neu ddetholiad.
doc kutools dod o hyd i amnewid 3


Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (18)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y VBA hwnnw, mae'n gweithio'n berffaith i chwilio am ffeiliau excel lluosog, fodd bynnag mae'n bosibl ei gael i ddychwelyd 5ed Colofn gyda Rhif Cyfeirnod? Arall
xCyfrif = xCyfrif + 1
xRow = xRhes + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
.Celloedd(xRow, 5) = ???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y VBA hwnnw, mae'n gweithio'n berffaith i chwilio am ffeiliau excel lluosog, fodd bynnag mae'n bosibl ei gael i ddychwelyd 5ed Colofn gyda Rhif Cyfeirnod? Arall
xCyfrif = xCyfrif + 1
xRow = xRhes + 1
.Cells(xRow, 1) = xWb.Name
.Cells(xRow, 2) = xWk.Name
.Cells(xRow, 3) = xFound.Address
.Cells(xRow, 4) = xFound.Value
.Celloedd(xRow, 5) = ???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma beth rydw i eisiau iddo ddychwelyd "Cyfarwyddyd Safle" sy'n cael ei ddyrannu i bob Testun yn y Gell
Taflen Waith Taflen Waith Cell Testun mewn Cell Cyfarwyddyd Safle
Adroddiad shifft Emicc 01-10-17.xlsx Sheet1 $D$20 CMS install 1773
Adroddiad shifft Emicc 01-10-17.xlsx Sheet1 $D$21 CMS install 1763
Adroddiad shifft Emicc 01-10-17.xlsx Sheet1 $D$24 CMS install 1551
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Fe helpodd fi llawer =)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i ychwanegu colofn arall a dod â'r gwerth sydd bob amser yn 3 colofn i'r dde ar y gwerth a ddarganfuwyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf ni allaf eich helpu, gallwch fynd i'r fforwm allan https://www.extendoffice.com/forum.html i barhau â'r cwestiwn, efallai y gall rhywun eich helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaethoch chi erioed ddarganfod hyn? Dwi angen hynny hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'ch cod yn gweithio'n wych, rwy'n edrych am god sy'n dod o hyd i ddau destun mewn ffeiliau excel, a ydych chi'n gwybod sut mae'n bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, nid oes gennyf unrhyw syniad ar y broblem hon, gallwch fynd i'n fforwm https://www.extendoffice.com/forum.html i barhau â'r broblem, efallai bod rhywun yn gwybod yr ateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Perffaith ar gyfer yr hyn sydd ei angen arnaf heblaw am y ffaith ei fod yn creu dalen newydd bob chwiliad. Sut byddwn i'n addasu'r cod i ddefnyddio un ddalen ar gyfer pob chwiliad yn lle creu un newydd? Diolch, James
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych mae hyn yn gweithio'n berffaith,
A allech chi fy helpu, hoffwn greu hyperddolen i bob cell lle canfuwyd y gwerth.

Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
fi hefyd hoffwn! :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
como generar codigos qr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae creu hyperddolen o dan golofn C ar gyfer yr holl werthoedd cell yn yr un cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yn fy achos taflen waith gyda mwy nag 1 Lakhs cofnod, sgriptiau wedi methu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Dhireesh, mae gan god VBA ei gyfyngiad ei hun. Fe allech chi roi cynnig ar Kutools ar gyfer Excel's Fiind and Replace , ond efallai y bydd yn rhedeg yn araf, os gwelwch yn dda byddwch yn amyneddgar, ac roedd yn well achub y llyfrau gwaith o'r blaen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
rhaglen yn stopio yma:

Gosod xWb = Llyfrau Gwaith.Open(Filename:=xStrPath &"\" &xStrFile, UpdateLinks:=0, ReadOnly:=Gwir, AddToMRU:=Anghywir)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mike, rwyf wedi diweddaru'r VBA yn yr erthygl, ceisiwch eto. Os oes unrhyw broblem, rhowch wybod i mi, diolch.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir