KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفXiaoyangتاريخ التعديل

غالبًا ما يتطلب العمل مع مجموعات بيانات كبيرة في Excel تحديد الخلايا التي تستوفي معايير محددة واستبدال قيمها، مثل القيم الأكبر من أو الأصغر من عتبة معينة. على سبيل المثال، قد تحتاج إلى استبدال جميع الأرقام الأعلى من 500 بالقيمة 0، أو استبدال أي قيم تقل عن معيار الأداء برسالة تحذير. وعلى عكس أداة البحث والاستبدال القياسية—التي تقتصر على التطابقات النصية أو الرقمية الدقيقة أو الجزئية—تتطلب عمليات الاستبدال الشرطية القائمة على المقارنات العددية نُهجًا بديلة. ويوضّح هذا البرنامج التعليمي عدة طرق عملية للتعامل مع هذه السيناريوهات بكفاءة، مما يساعدك على توفير الوقت وتقليل الأخطاء اليدوية.

البحث والاستبدال القيم الأكبر من / الأصغر من قيمة معيّنة باستخدام كود VBA

البحث والاستبدال القيم الأكبر من / الأصغر من قيمة معيّنة باستخدام Kutools لـ Excel

صيغة Excel - استخدام دالة IF في عمود مساعد لاستبدال القيم الأكبر أو الأصغر من عتبة معينة

طرق Excel المضمنة الأخرى - التصفية/الفرز والاستبدال

البحث والاستبدال القيم الأكبر من / الأصغر من قيمة معيّنة باستخدام كود VBA

على سبيل المثال، تخيل أنك تريد تحديد جميع القيم في مجموعة البيانات الخاصة بك التي تزيد عن 500، ثم تغييرها دفعةً واحدة إلى 0. إنها حاجة شائعة عند تعديل الدرجات، أو تصنيف نتائج الامتثال، أو تنظيف البيانات. وباستخدام VBA، يمكنك أتمتة هذه العملية بالكامل وتوفير الوقت والجهد المبذولين في التعديلات اليدوية المتكررة.

بيانات نموذجية

يتيح لك حل VBA التالي استبدال جميع قيم الخلايا التي تكون أكبر من — أو أصغر من — رقم معيّن دفعةً واحدة، مع إمكانية تخصيص قيمة المقارنة وقيمة الاستبدال وفقًا لاحتياجات حالتك.

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

2. انقرإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.

كود VBA: البحث والاستبدال القيم الأكبر أو الأصغر من قيمة معيّنة

Sub FindReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value > 500 Then
        Rng.Value = 0
    End If
Next
End Sub

3. ثم اضغط على مفتاحF5 لتشغيل هذا الكود. عند المطالبة، حدد نطاق البيانات الذي تريد البحث فيه والاستبدال ضمنه. (يساعد تحديد البيانات ذات الصلة فقط على تجنب الاستبدالات غير المقصودة في خلايا غير ذات صلة.)

كود VBA لتحديد نطاق البيانات

4. انقرموافقفي مربع الحوار. وسيقوم الكود تلقائيًّا بمسح تحديد النطاق الخاص بك واستبدال جميع القيم الأكبر من 500 بالرقم 0 (أو بأي قيمة محددة خلاف ذلك).

تم استبدال جميع القيم الأكبر من قيمة معيّنة بالرقم 0

ملاحظات ونصائح:

  • يمكنك ضبط العتبة وقيمة الاستبدال بتعديل هذه الأسطر في الكود:
    If Rng.Value >500Then
    Rng.Value =0
  • يُعدّل هذا الكود الأرقام فقط؛ لذا إذا احتوت بياناتك على خلايا فارغة أو إدخالات غير رقمية، فستبقى كما هي دون أي تغيير.
  • يُوصى بحفظ نسخة احتياطية من ملفك قبل تشغيل VBA، تحسبًا لرغبتك في التراجع عن أي تغييرات.
  • إذا ظهرت لك رسالة أمان الماكرو، فتأكد من تفعيل الماكرو لهذا المصنف.

البحث والاستبدال القيم الأكبر من / الأصغر من قيمة معيّنة باستخدام Kutools لـ Excel

إذا لم تكن لديك خبرة في VBA أو البرمجة، فإن Kutools لـ Excel يوفّر لك حلاً رسوميًا أنيسًا لهذه المشكلة. فباستخدام أداةتحديد خلايا محددة، يمكنك تحديد جميع الخلايا المتوافقة مع شروطك واستبدال محتوياتها دفعة واحدة—مما يقلل الأخطاء ويسرع تنظيف البيانات بشكل ملحوظ!

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

بعد تثبيتKutools لـ Excel، اتبع الخطوات أدناه:

1. حدد نطاق البيانات الذي ترغب في معالجته.

2. انتقل إلىKutools > تحديد > تحديد خلايا محددةلفتح مربع حوار «تحديد خلايا محددة».

انقر على ميزة تحديد الخلايا المحددة من Kutools

3. في مربع حوارتحديد خلايا محددة:

  1. حددخليةلـنوع التحديد.
  2. اخترأكبر من(أو)أصغر من، حسب الحاجة) منتحديد النوع.
  3. أدخل قيمة العتبة في الحقل المجاور (مثلًا، 500).

اضبط المعايير في مربع الحوار

4. انقرموافق. سيتم تمييز جميع الخلايا المتوافقة مع معاييرك دفعة واحدة. الآن، اكتب قيمة الاستبدال المطلوبة، ثم اضغط معًا علىCtrl + Enter؛ وسيتم تحديث كل القيم المحددة فورًا.

البيانات الأصليةسهم يمينتم استبدال القيم الأكبر من قيمة معيّنة بالرقم 0

نصائح إضافية:

  • يمكنك استخدام معايير أخرى مثلأصغر من،يساوي، أويحتوي علىحسب احتياجاتك.
  • لتجنب الاستبدالات العرضية، تأكد من مراجعة اختيارك جيدًا قبل الضغط علىCtrl + Enter.

حمّل Kutools لـ Excel وجربه مجانًا الآن!

صيغة Excel - استخدام دالة IF في عمود مساعد لاستبدال القيم الأكبر أو الأصغر من عتبة معينة

تعتمد هذه الطريقة على دالةIF المضمنة في Excel لإنشاء عمود مساعد، مما يسهّل التحقق البصري ثم تطبيق الاستبدالات المشروطة. وهي مثالية إذا كنت تبحث عن شفافية أكبر قبل الكتابة فوق بياناتك الأصلية، أو إذا احتجت إلى طريقة غير مدمرة لاختبار شكل النتائج. كما يمكنك تخصيص منطق الاستبدال لتلبية سيناريوهات متنوعة مثل إعداد التقارير، والتصنيف، أو تحديد القيم الشاذة.

1. أدرج عمودًا جديدًا بجانب بياناتك (على سبيل المثال، إذا كانت بياناتك في العمود A، فأدخل عمودًا جديدًا في B).

2. في الخلية الأولى من عمود المساعدة (مثل B2)، أدخل الصيغة التالية لاستبدال جميع القيم الأكبر من 500 بـ 0:

=IF(A2>500,0,A2)

إذا أردت استبدال القيم الأصغر من عتبة معينة (مثل الأصغر من 200)، فاستخدم:

=IF(A2<200,0,A2)

يمكنك استبدال500 أو200 و0 بأي عتبة وقيمة استبدال تناسب احتياجاتك. كما يجب تعديل المرجعA2 وفقًا لنطاق البيانات الفعلي الخاص بك.

3. بعد كتابة الصيغة، اضغط على مفتاحEnter. ثم انسخ الصيغة إلى باقي عمود المساعدة (اسحب مقبض التعبئة لأسفل أو انقر نقرًا مزدوجًا عليه).

4. بعد التأكد من أن عمود المساعدة يُعطيك النتيجة المرغوبة، حدد البيانات الجديدة وانسخها، ثم انقر بزر الماوس الأيمن على نطاق البيانات الأصلي واخترلصق خاص > القيمللكتابة فوق البيانات الأصلية بالنتائج المحسوبة.

نصائح واحتياطات:

  • تُسهّل صيغ عمود المساعدة اكتشاف التغييرات ومراجعتها قبل استبدال البيانات الأصلية، مما يقلّل المخاطر.
  • احذر عند التعامل مع مراجع الخلايا إذا طبّقت الصيغ على نطاقات غير متصلة—فتأكد من المحاذاة الصحيحة.
  • تحافظ هذه الطريقة على بياناتك الأصلية سليمة حتى تنتهي من مراجعتها وتقرّر الكتابة فوقها.
  • إذا كانت لديك مجموعات بيانات كبيرة، فقد تكون الصيغ أبطأ مقارنةً بـ VBA أو Kutools، لكنها تظل الخيار الأكثر أمانًا لمراجعة التغييرات.

طرق Excel المضمنة الأخرى - التصفية والاستبدال

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

1. حدد نطاق البيانات الخاص بك، ثم فعّل التصفية بالنقر علىبيانات > تصفية.

2. انقر على السهم المنسدل في العمود الذي تريد تصفية بياناته، ثم اخترتصفية الأرقام > أكبر من(أو)أصغر من)، وأدخل قيمة العتبة (مثل: 500).

3. سيعرض Excel فقط الصفوف التي تطابق شروط التصفية الخاصة بك. حدد جميع الخلايا المرئية المُرشَّحة في عمودك.

4. اكتب قيمة الاستبدال (مثل: 0)، ثم اضغطCtrl + Enter—وسيقوم Excel باستبدال الخلايا المرئية حاليًا (المُرشَّحة) فقط.

5. أوقف التصفية لعرض مجموعة البيانات النهائية والتحقق منها.

نصائح ومزايا وعيوب:

  • تُعد طريقة التصفية والاستبدال المباشرة مثالية لمجموعات البيانات المتوسطة، حيث تتيح لك التأكد بصريًّا من الخلايا التي تم تعديلها.
  • بالنسبة للأعمدة التي تحتوي على صيغ، ستُكتب هذه الطريقة فوقها وقد تؤدي إلى تعطيلها؛ لذا استخدمها بحذر.
  • إذا اخترتَ النطاق الخاطئ عن غير قصد وأجريتَ تغييرات، اضغط Ctrl + Z للتراجع، ثم عدّل اختيارك أو شروط التصفية وجرّب مجددًا.

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

كيف تُجري بحثًا واستبدالًا بمطابقة تامة في Excel؟

كيف يمكن استبدال النصوص بصورة مطابقة لها في Excel؟

كيف يمكنني البحث عن لون تعبئة خلية واستبداله بلون آخر في Excel؟

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

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

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل