Ինչպե՞ս արագ որոնել արժեքը բազմաթիվ թերթերում կամ աշխատանքային գրքույկներում:
Երբևէ նկարե՞լ եք Excel- ում բազմաթիվ թերթերում կամ աշխատանքային գրքերում որոշակի արժեք որոնելու համար: Այս ձեռնարկը ներկայացնում է մի քանի տարբեր մեթոդներ `բազմաթիվ թերթերում որոնման կամ բազմաթիվ աշխատանքային գրքերում որոնման հետ կապված խնդիրները լուծելու համար:
Որոնեք արժեք և գտեք և փոխարինեք գործառույթով աշխատանքային գրքի բազմաթիվ թերթերում
Որոնեք արժեք VBA- ով թղթապանակի բոլոր աշխատանքային գրքերում
Excel- ի համար Kutools- ի միջոցով արագորեն որոնեք արժեքը մի քանի բացված աշխատանքային գրքերում
Որոնեք արժեք և գտեք և փոխարինեք գործառույթով աշխատանքային գրքի բազմաթիվ թերթերում
Excel- ի հետ Գտնել եւ փոխարինել գործառույթը, դուք կարող եք գտնել որոշակի արժեք բազմաթիվ թերթերի միջև:
1. Ընտրեք բազմաթիվ թերթիկ ներդիրներ, որոնցից ցանկանում եք արժեք գտնել `պահելով այն Ctrl ստեղնը և կտտացնելով աշխատաթերթերին ՝ Sheet Tab բարը մեկ առ մեկ. Տեսեք,
2. Դրանից հետո սեղմեք Ctrl + F հնարավորություն ընձեռել Գտնել եւ փոխարինել պատուհանում և մուտքագրեք այն արժեքը, որը ցանկանում եք որոնել Գտեք ինչ տեքստային տուփ տակ Գտնել էջանշանը, ապա սեղմեք Գտեք բոլորը բոլոր արդյունքները ցուցակագրելու կոճակը: Տեսեք,
Գտեք և փոխարինեք արժեքը թերթերի և աշխատանքային գրքերի միջև
|
Excel- ի համար նախատեսված գործիքներառաջադեմ Գտնել եւ փոխարինել գործառույթը, կարող է օգնել ձեզ գտնել և փոխարինել արժեքը բազմաթիվ թերթերի և բացված աշխատանքային գրքերի միջև: Անվճար ներբեռնում |
Excel- ի համար նախատեսված գործիքներ. Ավելի քան 300 հարմար Excel հավելվածներով, 30 օրում առանց սահմանափակումների անվճար փորձեք: |
Որոնեք արժեք VBA- ով թղթապանակի բոլոր աշխատանքային գրքերում
Եթե թղթապանակից ուզում եք արժեք որոնել բոլոր փակ աշխատանքային գրքերում, ապա այն լուծելու համար կարող եք կիրառել միայն 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- ն իրականացնելու կոճակ, և ա Ընտրեք պանակ երկխոսությունը դուրս է գալիս, որպեսզի հիշեցնի ձեզ ընտրել այն թղթապանակը, որը ցանկանում եք որոնել արժեքը: Տեսեք,
4. Եվ հետո կտտացրեք OK և մեկ այլ երկխոսություն է դուրս գալիս ՝ հիշեցնելու համար, որ գտնվել է բջիջների քանակը: Տեսեք,
5: սեղմեք OK դեպի սերտ այն, և գտնված բոլոր բջիջները նշված տեղեկատվությունն են ներկայիս աշխատաթերթում:
Ձեր պատասխանը ուղարկված չէ: VBA- ի վերևում դուք որոնում եք արժեքը «KTE», և կարող ես փոխվել «KTE» այս xStrSearch = "KTE" այլ արժեքի, ինչպես ձեզ հարկավոր է:
Excel- ի համար Kutools- ի միջոցով արագորեն որոնեք արժեք մի քանի բացված աշխատանքային գրքերում
Եթե դուք պարզապես ուզում եք արժեք փնտրել բազմաթիվ բացված աշխատանքային գրքերի մեջ, կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ »առաջադեմ է Գտնել եւ փոխարինել կոմունալ.
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: | ||
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Բացված աշխատանքային գրքերից մեկում կտտացրեք Կուտոլս > նավարկություն, ապա սեղմեք Գտնել եւ փոխարինել կոճակ գնալ Գտնել եւ փոխարինել պատուհան Տեսեք,
2. Այնուհետեւ կտտացրեք Գտնել էջանիշը և մուտքագրեք այն արժեքը, որը ցանկանում եք որոնել Գտեք ինչ տեքստային տուփ, ապա ընտրեք Բոլոր աշխատանքային գրքերը - ից Ընթացքում բացվող ցուցակ և անցեք կտտացնելու Գտեք բոլորը բոլոր հայտնաբերված բջիջները ցուցակագրելու համար: Տեսեք,
Ձեր պատասխանը ուղարկված չէ:
հետ Excel- ի համար նախատեսված գործիքներառաջադեմ Գտնել եւ փոխարինել օգտակար, դուք կարող եք որոնել և փոխարինել արժեքը ընտրված թերթերում բազմաթիվ աշխատանքային գրքերի, բոլոր աշխատանքային գրքերի, ակտիվ աշխատանքային գրքերի, ակտիվ թերթերի կամ ընտրության մեջ:
Որոնման արժեքը մի քանի բացված գրքույկներում
Հարաբերական հոդվածներ:
- Ինչպե՞ս արագ գտնել և փոխարինել բազմաթիվ աշխատանքային թերթերում կամ ամբողջ աշխատանքային գրքում:
- Ինչպե՞ս արագ գտնել և փոխարինել բազմաթիվ բացված Excel ֆայլերում:
- Ինչպե՞ս գտնել ամենամեծ բացասական արժեքը (0-ից պակաս) Excel- ում:
- Ինչպե՞ս Excel- ում սյունակից դուրս բերել բոլոր կրկնօրինակները:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: