كيف تبحث بسرعة عن قيمة في أوراق أو مصنفات متعددة؟

هل سبق لك أن قمت بالتصوير للبحث عن قيمة معينة في أوراق أو مصنفات متعددة في 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()
'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. ثم اضغط F5 مفتاح أو يجري زر لتنفيذ VBA هذا ، و حدد مجلدًا ينبثق مربع الحوار لتذكيرك بتحديد المجلد الذي تريد البحث عن القيمة منه. انظر لقطة الشاشة:

4. ثم انقر فوق OK وينبثق مربع حوار آخر لتذكيرك بعدد الخلايا التي تم العثور عليها. انظر لقطة الشاشة:

5. انقر OK إلى اغلق ، وجميع الخلايا التي تم العثور عليها قائمة في ورقة العمل الحالية بالمعلومات المقابلة.

تلميح: في VBA أعلاه ، يمكنك البحث عن القيمة "KTE"، ويمكنك التغيير "KTE" من هذا xStrSearch = "KTE" إلى قيمة أخرى حسب حاجتك.

ابحث بسرعة عن قيمة في العديد من المصنفات المفتوحة باستخدام Kutools for Excel

إذا كنت تريد فقط البحث عن قيمة عبر العديد من المصنفات المفتوحة ، فيمكنك استخدام كوتولس ل إكسيلمتقدمة بحث واستبدال خدمة.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. في أحد المصنفات المفتوحة ، انقر فوق كوتولس > التنقل، ثم انقر فوق بحث واستبدال زر للذهاب إلى بحث واستبدال جزء. انظر لقطة الشاشة:

2. ثم اضغط البحث ، واكتب القيمة التي تريد البحث عنها في تجد ما مربع نص ، ثم حدد كافة المصنفات من ضمن القائمة المنسدلة ، واذهب للنقر جد كل لسرد جميع الخلايا التي تم العثور عليها. انظر لقطة الشاشة:

تلميح:

خيرات كوتولس ل إكسيلمتقدم بحث واستبدال الأداة المساعدة ، يمكنك البحث عن القيمة واستبدالها في الأوراق المحددة عبر العديد من المصنفات أو جميع المصنفات أو المصنف النشط أو الورقة النشطة أو التحديد.

  قيمة البحث عبر العديد من المصنفات المفتوحة

مقالات ذات صلة:

• كيفية البحث والاستبدال بسرعة عبر أوراق عمل متعددة أو المصنف بأكمله؟
• كيفية البحث عن ملفات Excel المتعددة المفتوحة واستبدالها بسرعة؟
• كيف تجد أكبر قيمة سلبية (أقل من 0) في إكسيل؟
• كيفية استخراج جميع التكرارات من عمود في إكسيل؟

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...