كيفية مسح محتويات الخلية على أساس الشرط في إكسيل؟

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

امسح محتويات الخلية استنادًا إلى قيمة الخلية برمز VBA

امسح الصفوف بأكملها إذا كانت القيمة أكبر أو أقل من قيمة معينة باستخدام رمز VBA

امسح محتويات الخلية أو الصف استنادًا إلى قيمة الخلية بميزة سهلة الاستخدام

امسح الصفوف بأكملها إذا كانت خلية أخرى فارغة برمز VBA

امسح محتويات الخلية بناءً على لون الخلفية باستخدام كود VBA

امسح محتويات الخلية استنادًا إلى قيمة الخلية برمز VBA

على سبيل المثال ، لديك نطاق البيانات التالي ، الآن ، تريد مسح محتويات الخلية التي هي "Hoodie" ، يمكن أن يقدم لك رمز VBA أدناه خدمة.

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

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

كود فبا: امسح محتويات الخلية إذا كانت الخلية تساوي قيمة معينة

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويتم مسح جميع الخلايا التي تحتوي على النص "Hoodie" في وقت واحد ، انظر لقطة الشاشة:

امسح الصفوف بأكملها إذا كانت القيمة أكبر أو أقل من قيمة معينة باستخدام رمز VBA

لنفترض أن لديك نطاق البيانات أدناه ، لمسح محتويات الصف بالكامل إذا كانت القيمة الموجودة في العمود D أكبر أو أقل من 300. هنا ، سأقوم بإنشاء رمز VBA لإكماله.

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

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

كود فبا: امسح الصفوف بأكملها إذا كانت قيمة الخلية أكبر أو أقل من قيمة معينة

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويتم مسح جميع محتويات الصف إذا كانت القيمة في العمود D أكبر من 300 ، انظر الصورة:

امسح محتويات الخلية أو الصف استنادًا إلى قيمة الخلية بميزة سهلة الاستخدام

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

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

1. حدد نطاق البيانات بالقيم التي تريد مسح محتويات الخلية أو الصف بناءً عليها ، ثم انقر فوق كوتولس > أختار > حدد خلايا معينة، انظر لقطة الشاشة:

2. في فتح حدد خلايا معينة في مربع الحوار ، قم بالعمليات التالية:

• انقر الموبايل or الصف بأكمله التي تريد تحديدها ؛
• حدد المعايير ضمن نوع خاص أو معين قسم ما تحتاجه. هنا ، أريد تحديد الصفوف التي تكون قيمتها في العمود D أكبر من 300.

3. ثم اضغط Ok الزر ، ويتم تحديد جميع الصفوف ذات القيمة الأكبر من 300. الآن ، ما عليك سوى الضغط على مفتاح الحذف على لوحة المفاتيح لحذف محتويات الخلية ، انظر الصورة:

تنويهات: هناك العديد من المعايير الأخرى التي يمكنك استخدامها ، يرجى تحديد حالتك الخاصة من مربع الحوار كما هو موضح أدناه لقطة الشاشة:

امسح بيانات الصفوف في نطاق إذا كانت تحتوي على خلية فارغة برمز VBA

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

لإنهاء هذه المهمة ، يرجى تطبيق كود فبا التالي:

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

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

كود فبا: امسح بيانات الصفوف إذا كانت تحتوي على خلية فارغة

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub

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

امسح محتويات الخلية بناءً على لون الخلفية باستخدام كود VBA

لمسح الخلايا المملوءة بلون خلفية معين ، يمكنك استخدام كود فبا التالي.

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

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

كود فبا: امسح محتويات الخلية بناءً على لون الخلفية

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub

3. ثم اضغط على F5 مفتاح لتشغيل هذا الرمز ، ويتم مسح محتويات الخلية بلون الخلفية المحدد على الفور. انظر لقطة الشاشة:

---

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

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء... 

---

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء...