انتقل إلى المحتوى الرئيسي

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

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

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


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

لنفترض أنك تريد حذف صفوف بأكملها إذا كانت الخلية الموجودة في العمود D أكبر أو أقل من قيمة معينة في Excel. يمكنك تشغيل التعليمات البرمجية لـ VBA التالية لتحقيق ذلك.

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

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

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

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

ملاحظة: في الكود أعلاه ،> 30000 يعني أنك ستحذف الصفوف إذا كانت الخلايا أكبر من 30000 في عمود محدد. إذا كنت تريد حذف الصفوف إذا كانت الخلايا أقل من قيمة معينة ، فيرجى تغيير العلامة> إلى <ثم تحديد القيمة الخاصة بك.

3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية ، في ظهرت Kutools for Excel في مربع الحوار ، حدد النطاق (عمود واحد) الذي ستجده إذا كانت الخلايا الموجودة في هذا العمود أكبر أو أقل من قيمة معينة. ثم انقر فوق ملف OK زر. انظر لقطة الشاشة:

ثم يتم حذف جميع الصفوف التي تحتوي على قيمة خلية أكبر من 30000 في العمود D على الفور.


احذف الصفوف إذا كانت الخلية أكبر / أقل من قيمة معينة بها Kutools for Excel

حدد خلايا معينة فائدة Kutools for Excel يمكن أن تساعدك في تحديد جميع الصفوف التي تحتوي على خلايا أكبر أو أقل من قيمة معينة في عمود محدد ، وبعد ذلك يمكنك حذف جميع الصفوف المحددة يدويًا مرة واحدة.

قبل التطبيق Kutools for Excelالرجاء قم بتنزيله وتثبيته أولاً.

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

2. في ال حدد خلايا معينة مربع الحوار ، الرجاء التحديد الصف بأكمله في ال نوع التحديد الجزء. في ال نوع خاص أو معين القسم، حدد اعظم من or أقل من من القائمة المنسدلة الأولى ، أدخل قيمة معينة في مربع النص التالي ، ثم انقر فوق OK .

3. ثم ينبثق مربع حوار لإخبارك بعدد الصفوف المحددة ، يرجى النقر فوق OK زر. ويمكنك رؤية جميع الصفوف ذات القيمة الأكبر من 30000 في العمود D تم تحديدها على الفور.

4. انقر بزر الماوس الأيمن فوق أحد الصفوف المحددة ، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. ويتم حذف جميع الصفوف المختارة.

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


احذف الصفوف إذا كانت الخلية أكبر / أقل من قيمة معينة باستخدام Kutoos for Excel

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

قبل التطبيق Kutools for Excelالرجاء قم بتنزيله وتثبيته أولاً.

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

2. انقر فوق سهم القائمة المنسدلة في العمود الذي ستقوم بحذف الصفوف بناءً عليه ، ثم انقر فوق مرشحات الرقم > أكثر من or أقل من على النحو التالي لقطة الشاشة:

3. في ال تصفية تلقائية مخصصة في مربع الحوار ، أدخل رقمًا معينًا بعد المربع أكبر من أو أقل من ، ثم انقر فوق OK .

4. ثم يتم تصفية جميع الصفوف التي تحتوي على خلايا معينة أكبر أو أقل من قيمة معينة في العمود D. يمكنك حذف جميع الصفوف التي تمت تصفيتها بتحديد البيانات التي تمت تصفيتها ثم النقر فوق كوتولس > حذف > حذف الصفوف والأعمدة المخفية (المرئية). انظر لقطة الشاشة:

5. في ال حذف الصفوف والأعمدة المخفية (المرئية) في مربع الحوار ، تأكد من أن في النطاق المحدد يتم تحديد الخيار في إنظر في القائمة المنسدلة ، حدد الصفوف في ال نوع الحذف ، حدد خيار الصفوف المرئية في ملف النوع التفصيلي ، ثم انقر فوق الزر OK .

6. ثم يتم حذف جميع الصفوف المرئية في النطاق المحدد على الفور ، يمكنك إلغاء عامل التصفية بالنقر فوق البيانات > تصفية.

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


احذف الصفوف إذا كانت الخلية أكبر / أقل من قيمة معينة بها Kutools for Excel


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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations