نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

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


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

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

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

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

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

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

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


إذا كنت ترغب في البحث عن قيمة في جميع المصنفات المغلقة من مجلد، يمكنك فقط تطبيق فبا لحلها.

1. قم بتمكين مصنف جديد وحدد خلية، ثم اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال للتطبيقات الأساسية نافذة.

2. انقر إدراج > وحدة ولصق أدناه فبا إلى إطار الوحدة النمطية الجديد.

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

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

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

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

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

5. انقر OK إلى close ويتم إدراج كافة الخلايا الموجودة في ورقة العمل الحالية بالمعلومات المناظرة.

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

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


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

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

بعد تركيب مجاني كوتولس ل إكسيل، يرجى القيام على النحو التالي:

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

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

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

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

تلميح:

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

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


الاستعراض المبوب وتحرير العديد من مستندات Word / مصنفات Excel مثل Firefox ، Chrome ، استكشاف الإنترنت 10!

قد تكون معتادًا على عرض صفحات ويب متعددة في Firefox / Chrome / IE ، والتبديل بينها بالنقر على علامات التبويب المقابلة بسهولة. هنا ، يدعم Office Tab عملية المعالجة المماثلة ، والتي تسمح لك باستعراض مستندات Word متعددة أو مصنفات Excel في نافذة Word واحدة أو نافذة Excel ، والتبديل بينها بسهولة عن طريق النقر فوق علامات التبويب الخاصة بها.
انقر على نسخة تجريبية مجانية من تبويب أوفيس!

تصفح وثائق كلمة متعددة في نافذة واحدة كما فايرفوكس

المواد النسبية:


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Rafael · 3 months ago
    como generar códigos qr
  • To post as a guest, your comment is unpublished.
    MM · 11 months 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.
    James · 1 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 · 1 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.
    Matt Sabin · 1 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.
    André · 1 years ago
    Thanks. It helped me a lot =)
  • To post as a guest, your comment is unpublished.
    Orlando B · 1 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 · 1 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 · 1 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) = ???