كيف تبحث بسرعة عن قيمة في أوراق أو مصنفات متعددة؟
هل سبق لك أن قمت بالتصوير للبحث عن قيمة معينة في أوراق أو مصنفات متعددة في Excel؟ يقدم هذا البرنامج التعليمي بعض الطرق المختلفة لحل المشكلات المتعلقة بالبحث في أوراق متعددة أو البحث في مصنفات متعددة.
ابحث عن قيمة في أوراق متعددة من مصنف باستخدام وظيفة البحث والاستبدال
ابحث عن قيمة في كافة مصنفات المجلد باستخدام VBA
ابحث بسرعة عن قيمة عبر العديد من المصنفات المفتوحة باستخدام Kutools for Excel
ابحث عن قيمة في أوراق متعددة من مصنف باستخدام وظيفة البحث والاستبدال
مع Excel بحث واستبدال وظيفة ، يمكنك العثور على قيمة معينة عبر أوراق متعددة.
1. حدد العديد من علامات تبويب الأوراق التي تريد البحث عن قيمة منها بالضغط على CTRL مفتاح والنقر فوق أوراق العمل في شريط علامة تبويب الورقة واحدا تلو الآخر. انظر لقطة الشاشة:
2. ثم اضغط CTRL + F لتمكين بحث واستبدال ، واكتب القيمة التي تريد البحث عنها في ملف تجد ما نص تحت ثم انقر فوق جد كل زر لسرد جميع النتائج. انظر لقطة الشاشة:
البحث عن القيمة واستبدالها عبر الأوراق والمصنفات
|
كوتولس ل إكسيلمتقدم بحث واستبدال يمكن أن تساعدك في العثور على قيمة واستبدالها عبر أوراق متعددة ومصنفات مفتوحة. تحميل مجانا |
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30 |
ابحث عن قيمة في كافة مصنفات المجلد باستخدام VBA
إذا كنت تريد البحث عن قيمة في جميع المصنفات المغلقة من مجلد ، يمكنك فقط تطبيق VBA لحلها.
1. قم بتمكين مصنف جديد وحدد خلية ، ثم اضغط على ALT + F11 مفاتيح لفتح مايكروسوفت فيجوال للتطبيقات الأساسية نافذة.
2. انقر إدراج > وحدة والصق أدناه 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" إلى قيمة أخرى حسب حاجتك.
ابحث بسرعة عن قيمة في العديد من المصنفات المفتوحة باستخدام Kutools for Excel
إذا كنت تريد فقط البحث عن قيمة عبر العديد من المصنفات المفتوحة ، فيمكنك استخدام كوتولس ل إكسيلمتقدمة بحث واستبدال خدمة.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. | ||
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. في أحد المصنفات المفتوحة ، انقر فوق كوتولس > قائمة الإختيارات، ثم انقر فوق بحث واستبدال زر للذهاب إلى بحث واستبدال جزء. انظر لقطة الشاشة:
2. ثم اضغط ، واكتب القيمة التي تريد البحث عنها في تجد ما مربع نص ، ثم حدد كافة المصنفات من ضمن القائمة المنسدلة ، واذهب للنقر جد كل لسرد جميع الخلايا التي تم العثور عليها. انظر لقطة الشاشة:
تلميح:
بدافع كوتولس ل إكسيلمتقدم بحث واستبدال الأداة المساعدة ، يمكنك البحث عن القيمة واستبدالها في الأوراق المحددة عبر العديد من المصنفات أو جميع المصنفات أو المصنف النشط أو الورقة النشطة أو التحديد.
قيمة البحث عبر العديد من المصنفات المفتوحة
مقالات ذات صلة:
- كيفية البحث والاستبدال بسرعة عبر أوراق عمل متعددة أو المصنف بأكمله؟
- كيفية البحث عن ملفات Excel المتعددة المفتوحة واستبدالها بسرعة؟
- كيف تجد أكبر قيمة سلبية (أقل من 0) في إكسيل؟
- كيفية استخراج جميع التكرارات من عمود في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!