انتقل إلى المحتوى الرئيسي
 

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

الكاتب : شمس آخر تعديل: 2022-09-13

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

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

ابحث عن قيمة في كافة مصنفات المجلد باستخدام VBA

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


مع Excel بحث واستبدال وظيفة ، يمكنك العثور على قيمة معينة عبر أوراق متعددة.

1. حدد العديد من علامات تبويب الأوراق التي تريد البحث عن قيمة منها بالضغط على CTRL مفتاح والنقر فوق أوراق العمل في شريط علامة تبويب الورقة واحدا تلو الآخر. انظر لقطة الشاشة:

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

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

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


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

كوتولس ل إكسيلمتقدم بحث واستبدال يمكن أن تساعدك في العثور على قيمة واستبدالها عبر أوراق متعددة ومصنفات مفتوحة.  تحميل مجانا
ابحث عن بديل
 
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

إذا كنت تريد البحث عن قيمة في جميع المصنفات المغلقة من مجلد ، يمكنك فقط تطبيق 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 هذا ، و حدد مجلدًا ينبثق مربع الحوار لتذكيرك بتحديد المجلد الذي تريد البحث عن القيمة منه. انظر لقطة الشاشة:

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

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

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

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

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

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


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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

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

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

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

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

تلميح:

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


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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...


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

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