İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Çox çarşaf və ya iş kitabında bir dəyəri tez bir şəkildə axtarmaq üçün necə?

Excel'de birdən çox təbəqə və ya iş kitabında müəyyən bir dəyəri axtarmaq üçün göründünüzmü? Bu təlimat, birdən çox səhifələrdə axtarış və ya bir neçə iş kitabında axtarış problemlərini həll etmək üçün müxtəlif üsulları təqdim edir.

Find and Replace funksiyası olan bir iş kitabının bir çox təbəqəsində dəyər axtarın

VBA ilə bir qovluq bütün iş kitablarında bir dəyər axtarın

Excel üçün Kutools ilə birdən çox açılmış iş kitabçası arasında dəyər axtarın yaxşı fikir3


Vərəqlər və iş dəftərləri üzrə dəyərləri tapın və dəyişdirin

Excel üçün Kutoolsinkişaf etmiş Tapın və dəyişdirin funksiyası bir neçə səhifədən bir dəyər tapmağa və əvəz etməyə və açılmış iş kitablarına kömək edə bilər. Pulsuz Yüklə
doc iş kitabları arasında tapmaq
Excel üçün Kutools: 300 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Excel ilə Tapın və dəyişdirin funksiyanı birdən çox səhifədən müəyyən bir dəyər tapa bilərsiniz.

1. Tutaraq birdən çox hesabat sekmesini seçin Ctrl düyməsini basın və iş yerlərini tıklaya bilərsiniz Sheet Tab bar bir bir. Ekran görüntüsünə baxın:

1 bir neçə çarxda doc axtarış dəyəri

2. Sonra mətbuat Ctrl + F təmin etmək Tapın və dəyişdirin pəncərədə və axtarış etmək istədiyiniz dəyəri yazın Nə tapın altındakı mətn qutusu Tapmaq sekmesini seçin və sonra basın Hamısını tapın Bütün nəticələri göstərmək üçün düyməsini basın. Ekran görüntüsünə baxın:

2 bir neçə çarxda doc axtarış dəyəri


Bir qovluqdakı bütün iş dəftərlərində bir dəyər axtarmaq istəyirsinizsə, onu həll etmək üçün yalnız VBA tətbiq edə bilərsiniz.

1. Yeni bir iş kitabını aktivləşdirin və bir hüceyrəni seçin və sonra basın Alt + F11 açmaq üçün açarlar Microsoft Visual Basic Applications üçün pəncərə.

2. klik Taxmaq > Modules və VBA altına yeni Modul pəncərəsinə yapışdırın.

VBA: Bir qovluqdakı bütün iş kitablarında bir dəyər axtarın.

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. Sonra basın F5 açar və ya qaçış bu VBA yerinə yetirmək üçün düyməsini basın və a Bir qovluq seçin dialoq dəyərdən axtarış etmək istədiyiniz qovluğu seçməyi xatırlatmaq üçün çıxır. Ekran görüntüsünə baxın:

3 bir neçə çarxda doc axtarış dəyəri

4. Və sonra basın OK və başqa bir dialoq tapıldığınız hüceyrələrin sayını xatırlatmaq üçün çıxır. Ekran görüntüsünə baxın:

4 bir neçə çarxda doc axtarış dəyəri

5. klik OK üçün yaxın və bütün tapılmış hüceyrələr cari iş yerində müvafiq informasiya ilə siyahıdadırlar.

5 bir neçə çarxda doc axtarış dəyəri

Ip ucu: VBA-dan yuxarıda, dəyəri axtarın "TEC"və dəyişə bilərsiniz "TEC" bu xStrSearch = "KTE" sizə lazım olan başqa bir dəyərə.


Yalnız bir neçə açıq iş kitabçasında bir dəyəri axtarmaq istəyirsinizsə, istifadə edə bilərsiniz Excel üçün Kutools 'inkişaf etmiş Tapın və dəyişdirin kommunal.

Excel üçün Kutools, daha çox 300 lazımlı funksiyaları, işinizi daha asanlaşdırır.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Açılan iş kitablarından birində vurun Kutools > naviqasiya, və sonra basın Tapın və dəyişdirin düyməsini doc tapmaq düyməsinə getmək Tapın və dəyişdirin pane. Ekran görüntüsünə baxın:

6 bir neçə çarxda doc axtarış dəyəri

2. Sonra basın Tapmaq nişanı seçin və axtarış etmək istədiyiniz dəyəri yazın Nə tapın mətn qutusunu seçin və seçin Bütün iş dəftəri dən Ərzində açılan siyahıdan çıxın və klikləyin Hamısını tapın tapılmış bütün hüceyrələrin siyahısı. Ekran görüntüsünə baxın:

7 bir neçə çarxda doc axtarış dəyəri

Ip ucu:

ilə Excel üçün Kutoolsinkişaf etmiş Tapın və dəyişdirin yardım proqramı, seçilmiş vərəqələrdə dəyərləri birdən çox iş kitabçası, bütün iş kitabları, aktiv iş kitabçası, aktiv hesabat və ya seçim arasında axtarış edə və əvəz edə bilərsiniz.

8 bir neçə çarxda doc axtarış dəyəri


10-un Kəşfini Firefox, Chrome, İnternet kimi bir çox Word sənədini / Excel iş kitabını gözdən keçirin və redaktə edin!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Burada, Office Tab birbaşa Word pəncərəsində və ya Excel pəncərəsində birdən çox Word sənədinə və ya Excel kitablarına göz atmanıza imkan verən oxşar işlənməni dəstəkləyir və onların sekmelerini tıklayarak asanlıqla keçid edə bilərsiniz.
Ofis Sekmesinin pulsuz sınaq üçün basın!

Firefox kimi bir pəncərədə birdən çox söz sənədinə göz atın

Əlaqədar məqalələr:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 5 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 · 8 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 · 9 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 =)