Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
حساب جديد  \/ 
x

or

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

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

قيمة بحث المستند في أوراق متعددة 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
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.
    Shree · 1 years ago
    How do i create hyperlink under column C for all cell values in the same code?
  • To post as a guest, your comment is unpublished.
    Rafael · 2 years ago
    como generar códigos qr
  • To post as a guest, your comment is unpublished.
    MM · 2 years 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.
      chan · 2 years ago
      me too I would like! :)
  • To post as a guest, your comment is unpublished.
    James · 3 years 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 · 3 years 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.
      Sunny · 3 years ago
      Sorry, I have no idea on this problem, you can go to our forum https://www.extendoffice.com/forum.html to carry on the problem, maybe someone know the answer.
  • To post as a guest, your comment is unpublished.
    sabinsolutions@gmail.com · 3 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.
      Sunny · 3 years ago
      Sorry I cannot help you, you can go to out forum https://www.extendoffice.com/forum.html to carry on the question, maybe someone can help you.
  • To post as a guest, your comment is unpublished.
    André · 3 years ago
    Thanks. It helped me a lot =)
  • To post as a guest, your comment is unpublished.
    Orlando B · 3 years ago
    This is what i want it to return "Site Instruction" which is allocated to all Text in Cell
    Workbook Worksheet Cell Text in Cell Site Instruction
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$20 CMS install 1773
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$21 CMS install 1763
    Shift report Emicc 01-10-17.xlsx Sheet1 $D$24 CMS install 1551
  • To post as a guest, your comment is unpublished.
    Orlando B · 3 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? 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
    .Cells(xRow, 5) = ???
  • To post as a guest, your comment is unpublished.
    Orly B · 3 years ago
    Thanks for that VBA, it works perfectly to search multiple excel files, however it is possible to get it to return a 5th Column with Reference number? 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
    .Cells(xRow, 5) = ???