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

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

البحث عن قيم أكبر من / أقل من قيمة محددة واستبدالها برمز VBA

ابحث عن قيم أكبر من / أقل من قيمة محددة واستبدلها باستخدام Kutools for Excel

البحث عن قيم أكبر من / أقل من قيمة محددة واستبدالها برمز VBA

على سبيل المثال ، سأجد جميع القيم التي تزيد عن 500 ، واستبدلها بـ 0.

يمكن أن يساعدك رمز VBA التالي في استبدال القيم التي تزيد أو تقل عن قيمة معينة في واحد ، يرجى القيام بما يلي:

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

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

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

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

4. ثم انقر فوق OK، ويمكنك رؤية جميع القيم الأكبر من 500 تم استبدالها بـ 0.

ملاحظة: في الكود أعلاه ، يمكنك تغيير المتغيرات التالية إلى ما تريد.

• إذا Rng.Value > 500 ثم
• Rng.Value = 0

ابحث عن قيم أكبر من / أقل من قيمة محددة واستبدلها باستخدام Kutools for Excel

إذا لم تكن معتادًا على الكود ، يمكنني التحدث عن أداة مفيدة- كوتولس ل إكسيل، بما لديها حدد خلايا معينة ميزة ، يمكنك بسرعة تحديد الخلايا التي تحتاجها ، ثم استبدالها مرة واحدة.

بعد تثبيت كوتولس ل إكسيل، قم بما يلي:

1. حدد نطاق البيانات الذي تريد البحث عنه واستبداله.

2. انقر كوتولس > اختار > حدد خلايا معينة، انظر لقطة الشاشة:

3. في حدد خلايا معينة مربع الحوار، انقر فوق الموبايل الخيار تحت نوع التحديد، و اختار اعظم من من نوع خاص أو معين منسدلة ، وأدخل القيمة التي تريد استخدامها في مربع النص بجانب اعظم من، انظر لقطة الشاشة:

4. ثم اضغط OK زر ، تم تحديد جميع الخلايا الأكبر من 500 على الفور ، ثم أدخل القيمة التي تريد استبدالها ، واضغط كترل + إنتر مفاتيح معًا ، تم استبدال جميع القيم المحددة في نفس الوقت. انظر لقطات الشاشة:

ملاحظة: في ال حدد خلايا معينة في مربع الحوار ، يمكنك استخدام معايير أخرى ، مثل أقل من, يساوي, يحتوي، وهلم جرا.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

عرض توضيحي: ابحث عن قيم أكبر من / أقل من قيمة محددة واستبدلها باستخدام Kutools for Excel

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

كيفية إيجاد واستبدال المطابقة التامة في إكسيل؟

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

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

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

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

اقرأ أكثر... تحميل مجاني ... شراء...