كيف يمكنني البحث بسرعة عن قيمة معينة عبر أوراق عمل أو مصنفات متعددة؟
هل سبق أن احتجتَ إلى العثور على قيمة معيّنة قد تظهر في أوراق عمل مختلفة أو حتى عبر عدة مصنفات في Excel؟ هذا سيناريو شائع جدًّا، خصوصًا عند العمل على مشاريع كبيرة، أو إعداد تقارير شهرية، أو توحيد المعلومات الموزعة على ملفات متعددة. والبحث اليدوي عبر كل ورقة عمل أو ملف ليس فقط مضيّعًا للوقت، بل أيضًا عرضةً للأخطاء. في هذا البرنامج التعليمي، ستكتشف طرقًا فعّالة للعثور على البيانات بكفاءة—سواء كنت تبحث داخل مصنف واحد أو عبر مصنفات متعددة، أو كنت بحاجة إلى حلٍّ يعتمد على الصيغ أو إلى توحيد البيانات. وتستهدف هذه الأساليب الاحتياجات العملية التي قد تواجهها في سير عملك اليومي مع Excel أو في مشاريع تحليل البيانات.
البحث عن قيمة في أوراق عمل متعددة ضمن مصنف باستخدام دالة البحث والاستبدال
البحث عن قيمة في جميع المصنفات الموجودة في مجلد باستخدام VBA
البحث السريع عن قيمة عبر مصنفات مفتوحة متعددة باستخدام Kutools لـ Excel 
البحث عن قيمة عبر أوراق عمل متعددة باستخدام صيغ Excel
البحث عن قيمة في أوراق عمل متعددة ضمن مصنف باستخدام دالة البحث والاستبدال
تُعد دالةالبحث والاستبدالفي Excel وسيلةً أساسيةً وفعّالة للعثور بسرعة على قيم معيّنة عبر أوراق عمل متعددة داخل نفس المصنف. وتكون هذه الطريقة أكثر فائدة عندما تعرف الأوراق التي تريد البحث فيها أو عندما تكون بياناتك منظمة نسبيًّا داخل ملف واحد. ولا تدعم هذه الطريقة البحث عبر ملفات مختلفة أو مصنفات مغلقة، لكنها توفّر حلاً مباشرًا للبحث السريع.
1. للبدء، اضغط مع الاستمرار على مفتاحCtrl وانقر على كل ورقة عمل فيشريط أوراق العمل (شريط التبويب)بشكلٍ منفصل لتحديد أوراق العمل التي تريد تضمينها في بحثك. بهذه الطريقة، يُطبَّق البحث على جميع أوراق العمل المحددة دفعةً واحدة. انظر لقطة الشاشة:
2. بعد تحديد الأوراق المطلوبة، اضغط علىCtrl + F لفتح مربع حوارالبحث والاستبدال. اكتب القيمة التي تريد العثور عليها في مربع النصالبحث عنالموجود ضمن تبويببحث، ثم انقر على زربحث الكل. سيعرض لك Excel فورًا قائمةً بجميع الخلايا في أوراق العمل المحددة التي تحتوي على قيمة البحث، مع تحديد مواقعها. انظر لقطة الشاشة:
تلميح:تبحث أداة البحث والاستبدال فقط داخل ورقة العمل المحددة التي تكون مفتوحة ومرئية. إذا أردت توسيع نطاق بحثك ليشمل أوراق عمل إضافية، فتأكد من تحديدها كما وُصف أعلاه. وإذا نسيتَ ورقة عمل عن طريق الخطأ، كرّر العملية بعد تضمينها في التحديد.
احتياطات:هذه الطريقة لا تبحث داخل المصنفات المغلقة أو المخفية، ولا تُظلِّل الخلايا تلقائيًّا – بل تعرض النتائج فقط لتسهيل التنقّل إليها.
استكشاف الأخطاء وإصلاحها:إذا لم تظهر النتائج المتوقعة، فتحقق مجددًا من تحديد أوراق العمل، وتأكد من عدم تطبيق أي مرشحات أو حمايات على الخلايا قد تخفي النتائج أو تمنع الوصول إليها.
ابحث واستبدل القيم بسهولة عبر أوراق العمل وملفات العمل المتعددة |
Kutools لـ Excelتقدّم ميزةالبحث والاستبدال المتقدمطريقة فعّالة للبحث عن القيم واستبدالها عبر عدة أوراق عمل أو حتى عبر جميع ملفات العمل المفتوحة. وباستخدام هذه الميزة القوية، توفر وقتك وتقلل الأخطاء عند التعامل مع مجموعات بيانات كبيرة، مما يجعل مهام Excel الخاصة بك أسرع وأدق. |
 |
Kutools لـ Excel- عزِّز Excel بقوة باستخدام أكثر من 300 أداة أساسية، لجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات وزيادة الإنتاجية بشكل أكثر ذكاءً.احصل عليه الآن |
البحث عن قيمة في جميع المصنفات الموجودة في مجلد باستخدام VBA
إذا كنت بحاجة إلى البحث عن قيمة معيّنة عبر مصنفات متعددة محفوظة في مجلد—بما في ذلك الملفات غير المفتوحة—فإن أدوات Excel المدمجة لا تدعم هذا الإجراء مباشرةً. في هذه الحالة، يمكن لبرنامج ماكرو مكتوب بلغة VBA (Visual Basic for Applications) أن يُتمّ هذه المهمة نيابةً عنك، وذلك بفتح كل مصنف في المجلد بشكل منهجي، وفحص جميع أوراق العمل، وتسجيل مواقع التطابقات بدقة. ويُعدّ هذا الحل عمليًّا للغاية للمراجعات الدورية أو التحقق من القيم في الملفات المؤرشفة أو المجمّعة.
1. ابدأ بفتح مصنف جديد (أو فارغ) في Excel. حدد الخلية التي تريد أن تظهر فيها نتائج البحث (عادةً الخلية A1). اضغط علىAlt + F11 لتشغيل نافذة محررمايكروسوفت Visual Basic for Applications.
2. داخل محرر VBA، انتقل إلىإدراج > وحدة نمطيةلإنشاء وحدة جديدة، ثم الصق كود VBA التالي في نافذة الوحدة.
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 أو انقر على زرتشغيللتنفيذ هذا الماكرو. بعد ذلك، ستظهر نافذة حواراختر مجلدالتي تتيح لك اختيار المجلد الذي يحتوي على المصنفات التي تريد البحث فيها. انظر لقطة الشاشة:
4. انقر علىموافق. بعد اكتمال البحث، ستظهر رسالة تُبلغك بعدد الخلايا الإجمالي التي تم العثور عليها والمتضمّنة للقيمة المحددة. انظر لقطة الشاشة:
5. انقر علىموافقلإغلاق الرسالة. سيتم عرض جميع المواقع التي تم العثور فيها على القيمة في ورقة عمل جديدة، بما في ذلك اسم المصنف، واسم ورقة العمل، وموقع الخلية، والمحتوى الفعلي للخلية — كل ذلك لمراجعتك بسهولة.
تلميح:تم ضبط مصطلح البحث الحالي في كود VBA ليكون«KTE». يمكنك تخصيصه ببساطة عن طريق تغيير السطرxStrSearch = "KTE" في الكود إلى أي قيمة ترغب بالبحث عنها.
احتياطات:قبل التشغيل، تأكد من أن جميع المصنفات ذات الصلة محفوظة ومغلقة (ما عدا المصنف الذي تُشغّل منه الماكرو، والذي يمكن أن يظل مفتوحًا). قد تستغرق المجلدات الكبيرة التي تحتوي على العديد من ملفات Excel المعقدة بعض الوقت للمعالجة. لا تقاطع الماكرو أثناء تنفيذه.
استكشاف الأخطاء وإصلاحها:إذا واجهت أخطاءً، تأكد أولًا من أن جميع الملفات هي مصنفات Excel أصلية (وليست تالفة أو محمية بكلمة مرور)، وأن إعدادات أمان الماكرو تسمح بتشغيل الكود. وإذا لم يكتمل الماكرو، جرّب تشغيله على مجموعة أصغر من الملفات.
البحث السريع عن قيمة في مصنفات مفتوحة متعددة باستخدام Kutools لـ Excel
عند رغبتك في إجراء بحث عبر عدة مصنفات مفتوحة بالفعل في جلسة Excel الخاصة بك، يوفّر لكKutools لـ Excelلوحة مخصصة تُسمّىالبحث والاستبدال، تجعل العملية أسهل بكثير وأكثر تنظيمًا. إنها أداة مثالية للمستخدمين الذين يعملون غالبًا على ملفات متعددة في آنٍ واحد، إذ تتيح لك المسح السريع عبر مصنفاتك دون الحاجة إلى كتابة نصوص برمجية أو إعدادات معقدة — كل ذلك من خلال واجهة سهلة الاستخدام وبسيطة لإدارة عمليات البحث بكفاءة.
1. في أيٍّ من مصنفاتك المفتوحة، انتقل إلى تبويبKutools وحددالتنقل. ثم انقر على زرالبحث والاستبدال
لإظهار لوحةالبحث والاستبدال، والتي تظهر عادةً على الجانب الأيسر من نافذة Excel. انظر لقطة الشاشة:
2. في تبويببحث، أدخل القيمة التي تريد البحث عنها في مربع النصالبحث عن. من القائمة المنسدلةضمن، اخترجميع المصنفاتلإجراء البحث عبر كل المصنفات المفتوحة، ثم انقربحث الكللعرض قائمة فورية بجميع الخلايا المطابقة مع تحديد مواقعها. انظر لقطة الشاشة:
تلميح:تتيح لك أداة Kutools المتقدمة لـ Excel البحث والاستبدال ليس فقط في جميع المصنفات المفتوحة، بل أيضًا بشكل محدّد في ورقة العمل المعيّنة، أو في المصنف الحالي، أو ورقة العمل الحالية، أو حتى في التحديد الحالي الخاص بك فقط — مما يمنحك تحكمًا دقيقًا يتناسب تمامًا مع احتياجاتك.
احتياطات:تأكد من أن جميع المصنفات التي تريد البحث فيها مفتوحة قبل بدء البحث، لأن هذه الأداة لا يمكنها البحث في الملفات غير المفتوحة حاليًّا في Excel.
استكشاف الأخطاء وإصلاحها:إذا لم تظهر بعض الملفات في نتائج البحث، فتأكد من أنها محملة بالكامل في Excel وليست في وضع الحماية أو الوضع للقراءة فقط، إذ قد يقيّد هذان الوضعين إمكانية الوصول إلى البحث.
عرض توضيحي: قيمة البحث عبر مصنفات مفتوحة متعددة باستخدام Kutools لـ Excel
البحث عن قيمة عبر أوراق عمل متعددة باستخدام صيغ Excel
في الحالات التي تحتوي فيها مصنّفك على أسماء عدة أوراق معروفة وتحتاج إلى التحقق مما إذا كانت قيمة معيّنة موجودة وأين تقع بالضبط بين تلك الأوراق، يمكنك استخدام صيغ إكسل للبحث ديناميكيًّا عبرها. يُعد هذا النهج مناسبًا بشكل خاص عندما تريد أن تظل نتائج بحثك مُحدَّثة تلقائيًّا وكانت قائمة الأوراق لديك ثابتة نسبيًّا أو مُدارة في جدول منفصل.
تتطلب هذه الطريقة أن تكون أسماء جميع الأوراق التي تريد البحث فيها معروفة مسبقًا أو مُدرَجة في قائمة، وهي الأكثر فاعلية في عمليات الفحص الآلي ولوحات المعلومات، وكذلك كلما رغبتَ في إنشاء مرجعٍ ملخّص دون الحاجة إلى تشغيل عملية مسح كاملة في كل مرة.
المزايا:يتم تحديث النتائج تلقائيًّا بمجرد تغيّر البيانات، دون الحاجة إلى استخدام أي نصوص برمجية أو إضافات، إذ يُدار كل شيء داخل المصنّف نفسه.
العيوب:غير مناسبة للحالات التي تتغير فيها أسماء الأوراق بشكل متكرر، أو إذا كان لديك عددٌ كبيرٌ جدًّا من الأوراق.
سيناريو مثال:افترض أن لديك ثلاث أوراق باسمSheet1،Sheet2 وSheet3. وتريد معرفة الورقة (أو الأوراق) التي تظهر فيها قيمة معيّنة، مثل "Invoice123"، في الخلية A1، أو تريد ببساطة التحقق مما إذا كانت هذه القيمة موجودة في أي مكان ضمن تلك الأوراق.
الخطوة 1.افترض أن لديك قائمة بأسماء الأوراق فيD2:D4 (D2: Sheet1، D3: Sheet2، D4: Sheet3). أدخل القيمة التي تريد البحث عنها (مثلًا: "Invoice123") فيE1. بعد ذلك، في الخلية F2، أدخل الصيغة التالية:
=IF(COUNTIF(INDIRECT("'"&D2&"'!A:A"), $E$1) >0, "Found", "Not Found")الخطوة 2.اسحب الصيغة من الخلية F2 إلى F4 للتحقق من جميع الأوراق المدرجة في النطاق D2:D4، وستظهر نتيجة «موجود» أو «غير موجود» لكل ورقة.
كيف تعمل:تستخدم الصيغة الدالةINDIRECT لإنشاء مرجع لكل ورقة مذكورة، والدالةCOUNTIF للتحقق مما إذا كانت القيمة الموجودة في الخلية E1 تظهر في العمود A من كل ورقة. قم بتعديل النطاقA:Aلاستهداف عمود آخر أو نطاق معيّن (مثلًا،)A1:Z100) حسب احتياجاتك.
نصيحة إضافية:لاسترجاع اسم (أو أسماء) الورقة التي تحتوي على القيمة، استخدم صيغة صفيفية كالتالي (يتم إدخالها باستخدام Ctrl + Shift + Enter في إصدارات إكسل القديمة، أو كصيغة عادية في Microsoft 365/Excel 2021+):
=TEXTJOIN(", ",TRUE,IF(COUNTIF(INDIRECT("'"&D2:D4&"'!A:A"), $E$1)>0, D2:D4, ""))ستُرجع هذه الصيغة قائمة بأسماء الأوراق التي تم العثور فيها على القيمة، مفصولة بفواصل. كن حذرًا عند استخدام INDIRECT—فهي تعمل فقط مع المصنفات المفتوحة ولا تتيح البحث في الملفات المغلقة.
تحذيرات:إذا تم تغيير أسماء الأوراق أو حذفها، فستُرجع الصيغة خطأ #REF!؛ لذا تأكد دائمًا من أن اسم الورقة المُشار إليه في قائمة الأسماء صحيح. وفي المصنفات الكبيرة، قد تؤدي الصيغ التي تعتمد على الدالة INDIRECT إلى إبطاء أداء المصنّف.
استكشاف الأخطاء وإصلاحها:إذا ظهرت أخطاء، تحقّق أولًا من وجود جميع الأوراق المشار إليها وصحّة نطاق البحث. وللحصول على قوائم أوراق ديناميكية، فكّر في استخدام النطاقات المُسماة أو التحقق من صحة البيانات (Data Validation) للحفاظ على تحديث قائمة الأوراق تلقائيًّا.
مقالات ذات صلة:
- كيفية البحث والاستبدال بسرعة عبر أوراق عمل متعددة أو المصنف بأكمله؟
- كيفية البحث والاستبدال بسرعة في مصنفات ملفات Excel مفتوحة متعددة؟
- كيفية العثور على أكبر قيمة سالبة (أقل من 0) في Excel؟
- كيفية استخراج جميع القيم المكررة من عمود في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل