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

Ինչպե՞ս արագ որոնել արժեքը բազմաթիվ թերթերում կամ աշխատանքային գրքույկներում:

Երբևէ նկարե՞լ եք Excel- ում բազմաթիվ թերթերում կամ աշխատանքային գրքերում որոշակի արժեք որոնելու համար: Այս ձեռնարկը ներկայացնում է մի քանի տարբեր մեթոդներ `բազմաթիվ թերթերում որոնման կամ բազմաթիվ աշխատանքային գրքերում որոնման հետ կապված խնդիրները լուծելու համար:

Որոնեք արժեք և գտեք և փոխարինեք գործառույթով աշխատանքային գրքի բազմաթիվ թերթերում

Որոնեք արժեք VBA- ով թղթապանակի բոլոր աշխատանքային գրքերում

Excel- ի համար Kutools- ի միջոցով արագորեն որոնեք արժեքը մի քանի բացված աշխատանքային գրքերում լավ գաղափար 3


Excel- ի հետ Գտնել եւ փոխարինել գործառույթը, դուք կարող եք գտնել որոշակի արժեք բազմաթիվ թերթերի միջև:

1. Ընտրեք բազմաթիվ թերթիկ ներդիրներ, որոնցից ցանկանում եք արժեք գտնել `պահելով այն Ctrl ստեղնը և կտտացնելով աշխատաթերթերին ՝ Sheet Tab բարը մեկ առ մեկ. Տեսեք,

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 1

2. Դրանից հետո սեղմեք Ctrl + F հնարավորություն ընձեռել Գտնել եւ փոխարինել պատուհանում և մուտքագրեք այն արժեքը, որը ցանկանում եք որոնել Գտեք ինչ տեքստային տուփ տակ Գտնել էջանշանը, ապա սեղմեք Գտեք բոլորը բոլոր արդյունքները ցուցակագրելու կոճակը: Տեսեք,

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 2


Գտեք և փոխարինեք արժեքը թերթերի և աշխատանքային գրքերի միջև

Excel- ի համար նախատեսված գործիքներառաջադեմ Գտնել եւ փոխարինել գործառույթը, կարող է օգնել ձեզ գտնել և փոխարինել արժեքը բազմաթիվ թերթերի և բացված աշխատանքային գրքերի միջև:  Անվճար ներբեռնում
գտնել փոխարինել
 
Kutools Excel-ի համար. ավելի քան 300 հարմար Excel հավելումներով, անվճար փորձելու առանց սահմանափակման 30 օր.

Եթե ​​թղթապանակից ուզում եք արժեք որոնել բոլոր փակ աշխատանքային գրքերում, ապա այն լուծելու համար կարող եք կիրառել միայն VBA:

1. Միացնել նոր աշխատանքային գիրքը և ընտրել բջիջ, այնուհետև սեղմել Alt + F11 բացելու ստեղները Microsoft Visual հիմնական ծրագրերի համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ և տեղադրեք VBA- ի ներքևում նոր Մոդուլի պատուհանում:

VBA. Փնտրեք արժեքը թղթապանակի բոլոր աշխատանքային գրքերում:

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. Դրանից հետո սեղմեք F5 բանալի կամ Վազում այս VBA- ն իրականացնելու կոճակ, և ա Ընտրեք պանակ երկխոսությունը դուրս է գալիս, որպեսզի հիշեցնի ձեզ ընտրել այն թղթապանակը, որը ցանկանում եք որոնել արժեքը: Տեսեք,

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 3

4. Եվ հետո կտտացրեք OK և մեկ այլ երկխոսություն է դուրս գալիս ՝ հիշեցնելու համար, որ գտնվել է բջիջների քանակը: Տեսեք,

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 4

5: սեղմեք OK դեպի սերտ այն, և գտնված բոլոր բջիջները նշված տեղեկատվությունն են ներկայիս աշխատաթերթում:

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 5

Ձեր պատասխանը ուղարկված չէ: VBA- ի վերևում դուք որոնում եք արժեքը «KTE», և կարող ես փոխվել «KTE» այս xStrSearch = "KTE" այլ արժեքի, ինչպես ձեզ հարկավոր է:


Եթե ​​դուք պարզապես ուզում եք արժեք փնտրել բազմաթիվ բացված աշխատանքային գրքերի մեջ, կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ »առաջադեմ է Գտնել եւ փոխարինել կոմունալ.

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Բացված աշխատանքային գրքերից մեկում կտտացրեք Կուտոլս > նավարկություն, ապա սեղմեք Գտնել եւ փոխարինել կոճակ փաստաթուղթ գտնելու կոճակ գնալ Գտնել եւ փոխարինել պատուհան Տեսեք,

փաստաթղթի որոնման արժեքը բազմաթիվ թերթերում 6

2. Այնուհետեւ կտտացրեք Գտնել էջանիշը և մուտքագրեք այն արժեքը, որը ցանկանում եք որոնել Գտեք ինչ տեքստային տուփ, ապա ընտրեք Բոլոր աշխատանքային գրքերը - ից Ընթացքում բացվող ցուցակ և անցեք կտտացնելու Գտեք բոլորը բոլոր հայտնաբերված բջիջները ցուցակագրելու համար: Տեսեք,
doc kutools գտնել փոխարինել 2

Ձեր պատասխանը ուղարկված չէ:

հետ Excel- ի համար նախատեսված գործիքներառաջադեմ Գտնել եւ փոխարինել օգտակար, դուք կարող եք որոնել և փոխարինել արժեքը ընտրված թերթերում բազմաթիվ աշխատանքային գրքերի, բոլոր աշխատանքային գրքերի, ակտիվ աշխատանքային գրքերի, ակտիվ թերթերի կամ ընտրության մեջ:
doc kutools գտնել փոխարինել 3


Հարաբերական հոդվածներ:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (18)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այդ VBA-ի համար, այն հիանալի աշխատում է բազմաթիվ excel ֆայլեր որոնելու համար, այնուամենայնիվ, հնարավո՞ր է այն վերադարձնել 5-րդ սյունակը՝ հղումային համարով: Ուրիշ
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
.Cells(xRow, 5) = ???
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն այդ VBA-ի համար, այն հիանալի աշխատում է բազմաթիվ excel ֆայլեր որոնելու համար, այնուամենայնիվ, հնարավո՞ր է այն վերադարձնել 5-րդ սյունակը՝ հղումային համարով: Ուրիշ
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
.Cells(xRow, 5) = ???
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այն է, ինչ ես ուզում եմ, որ այն վերադարձնի «Կայքի հրահանգը», որը հատկացված է բջջի բոլոր տեքստերին
Աշխատանքային գրքույկի աշխատանքային թերթիկ Բջջային տեքստը բջջային կայքի հրահանգում
Shift հաշվետվություն Emicc 01-10-17.xlsx Sheet1 $D$20 CMS տեղադրում 1773
Shift հաշվետվություն Emicc 01-10-17.xlsx Sheet1 $D$21 CMS տեղադրում 1763
Shift հաշվետվություն Emicc 01-10-17.xlsx Sheet1 $D$24 CMS տեղադրում 1551
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն։ Դա ինձ շատ օգնեց =)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ավելացնել ևս մեկ սյունակ և հայտնաբերված արժեքի վրա բերել այն արժեքը, որը միշտ 3 սյունակ է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես չեմ կարող օգնել ձեզ, դուք կարող եք գնալ ֆորում https://www.extendoffice.com/forum.html հարցը շարունակելու համար, միգուցե ինչ-որ մեկը կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք երբևէ հասկացե՞լ եք սա: Ինձ դա նույնպես պետք է։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր կոդը հիանալի է աշխատում, ես փնտրում եմ կոդ, որը երկու տեքստ է գտնում excel ֆայլերում, գիտե՞ք ինչպես է դա հնարավոր։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, ես գաղափար չունեմ այս խնդրի մասին, դուք կարող եք գնալ մեր ֆորում https://www.extendoffice.com/forum.html խնդիրը շարունակելու համար, գուցե ինչ-որ մեկը գիտի պատասխանը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կատարյալ է այն ամենի համար, ինչ ինձ անհրաժեշտ է, բացառությամբ այն փաստի, որ այն ստեղծում է նոր թերթիկ յուրաքանչյուր որոնում: Ինչպե՞ս կարող եմ փոփոխել կոդը, որպեսզի օգտագործեմ մեկ թերթ յուրաքանչյուր որոնման համար՝ նորը ստեղծելու փոխարեն: Շնորհակալություն, Ջեյմս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի է, սա կատարյալ է աշխատում,
Կարո՞ղ եք օգնել ինձ, ես կցանկանայի հիպերհղում ստեղծել յուրաքանչյուր բջիջի համար, որտեղ գտնվել է արժեքը:

Փոխանցել |
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ես նույնպես կցանկանայի! :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
como generar codigos qr
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ հիպերհղում ստեղծել C սյունակի տակ նույն կոդի բոլոր բջիջների արժեքների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
HI իմ դեպքում աշխատանքային թերթիկում ավելի քան 1 Lakhs գրառումով, սկրիպտները ձախողվեցին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Dhireesh, VBA կոդը ունի իր սահմանափակումը: Դուք կարող եք փորձել Kutools-ը Excel-ի Find and Replace-ի համար, բայց այն կարող է դանդաղ աշխատել, խնդրում ենք համբերատար լինել, և ավելի լավ է պահպանել աշխատանքային գրքերը նախկինում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ծրագիրը դադարում է այստեղ՝

Սահմանել xWb = Workbooks.Open (Ֆայլի անուն:=xStrPath & "\" & xStrFile, UpdateLinks:=0, ReadOnly:=True, AddToMRU:=False)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մայք, ես հոդվածում թարմացրել եմ VBA-ն, խնդրում եմ նորից փորձեք: Եթե ​​որևէ խնդիր կա, խնդրում եմ տեղեկացնել ինձ, շնորհակալություն:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից