Birden çok sayfada veya çalışma kitabında bir değeri hızlı bir şekilde nasıl arayabilirim?
Excel'de birden çok sayfada veya çalışma kitabında belirli bir değeri aramayı hiç hayal ettiniz mi? Bu öğretici, birden çok sayfada arama veya birden çok çalışma kitabında arama yapma ile ilgili sorunları çözmek için bazı farklı yöntemler sunar.
Bul ve Değiştir işleviyle bir çalışma kitabının birden çok sayfasında bir değer arayın
VBA ile bir klasörün tüm çalışma kitaplarında bir değer arayın
Kutools for Excel ile birden çok açık çalışma kitabında bir değeri hızla arayın
Bul ve Değiştir işleviyle bir çalışma kitabının birden çok sayfasında bir değer arayın
Excel'in Bul ve Değiştir işlevi, birden çok sayfada belirli bir değer bulabilirsiniz.
1. Değer bulmak istediğiniz birden çok sayfa sekmesini, Ctrl tuşuna basın ve çalışma sayfalarına tıklayın. Sayfa Sekme çubuğu tek tek. Ekran görüntüsüne bakın:
2. Ardından Ctrl + F etkinleştirmek için Bul ve Değiştir penceresine gidin ve aramak istediğiniz değeri yazın. Ne bul metin kutusu altında bulmak sekmesini ve ardından Tamam'ı tıklatın. Hepsini bul tüm sonuçları listelemek için düğmesine basın. Ekran görüntüsüne bakın:
Sayfalar ve çalışma kitaplarında değeri bulun ve değiştirin
|
Kutools for Excelgelişmiş Bul ve Değiştir işlevi, birden çok sayfadaki ve açılan çalışma kitaplarındaki bir değeri bulmanıza ve değiştirmenize yardımcı olabilir. Bedava indir |
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
VBA ile bir klasörün tüm çalışma kitaplarında bir değer arayın
Bir klasördeki tüm kapalı çalışma kitaplarında bir değer aramak istiyorsanız, bunu çözmek için yalnızca bir VBA uygulayabilirsiniz.
1. Yeni bir çalışma kitabını etkinleştirin ve bir hücre seçin, ardından Alt + F11 açmak için anahtarlar Temel Uygulamalar için Microsoft Visual pencere.
2. tık Ekle > modül ve VBA'nın altına yeni Modül penceresine yapıştırın.
VBA: Bir klasörün tüm çalışma kitaplarında bir değer arayın.
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. Ardından F5 anahtar veya koşmak Bu VBA'yı yürütmek için düğme ve bir Bir klasör seçin Değer aramak istediğiniz klasörü seçmenizi hatırlatmak için iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK ve bulunan hücre sayısını size hatırlatmak için başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
5. tık OK için kapat ve bulunan tüm hücreler, ilgili bilgilerle birlikte geçerli çalışma sayfasında listelenir.
Bahşiş: Yukarıdaki VBA'da, değeri ararsınız "KTE"ve değiştirebilirsin "KTE" bundan xStrSearch = "KTE" ihtiyaç duyduğunuz başka bir değere.
Kutools for Excel ile birden çok açık çalışma kitabında bir değeri hızla arayın
Yalnızca birden çok açık çalışma kitabında bir değer aramak istiyorsanız, şunu kullanabilirsiniz: Kutools for Excel 'gelişmiş Bul ve Değiştir Yarar.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. | ||
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Açılan çalışma kitaplarından birinde, Kutools > Navigasyonseçeneğini ve ardından Bul ve Değiştir düğmesine tıklayın gitmek için Bul ve Değiştir bölme. Ekran görüntüsüne bakın:
2. Sonra tıklayın bulmak sekmesine gidin ve aramak istediğiniz değeri yazın. Ne bul metin kutusu ve ardından seçin Tüm çalışma kitapları itibaren Içinde açılır listeye gidin ve tıklamaya gidin Hepsini bul bulunan tüm hücreleri listelemek için. Ekran görüntüsüne bakın:
Bahşiş:
İle Kutools for Excelgelişmiş Bul ve Değiştir yardımcı programda, birden çok çalışma kitabında, tüm çalışma kitaplarında, etkin çalışma kitabında, etkin sayfada veya seçimde seçilen sayfalardaki değeri arayabilir ve değiştirebilirsiniz.
Birden Çok Açılmış Çalışma Kitabında Arama Değeri
İlgili Makaleler:
- Birden çok çalışma sayfasında veya tüm çalışma kitabında nasıl hızlı bir şekilde bulunur ve değiştirilir?
- Birden çok açılmış Excel dosyasında hızlı bir şekilde nasıl bulunur ve değiştirilir?
- Excel'de en büyük negatif değeri (0'dan küçük) nasıl bulabilirim?
- Excel'deki bir sütundan tüm kopyaları nasıl çıkarabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!