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

كيفية حذف الصفوف ذات القيم السالبة في إكسيل؟

لنفترض أن لديك نطاق البيانات التالي ، وتريد حذف الصفوف بأكملها إذا كان الرقم سالبًا في العمود B ، فهل هناك أي طرق جيدة لحل هذه المشكلة في Excel؟

حذف المستند بالسالب 1 2 حذف المستند بالسالب 2

احذف الصفوف ذات الأرقام السالبة باستخدام التعليمات البرمجية لـ VBA

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


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

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

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

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

رمز فبا: احذف الصفوف ذات الأرقام السالبة

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

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

حذف المستند بالسالب 3

4. ثم اضغط OK زر ، تم حذف الصفوف ذات الأرقام السالبة دفعة واحدة.


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

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

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

1. حدد العمود يحتوي على الأرقام السالبة التي تريد حذفها.

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

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

حذف المستند بالسالب 5

4. ثم اضغط Ok، تم تحديد الصفوف التي تحتوي على أرقام سالبة مرة واحدة ، ثم انقر فوق الصفحة الرئيسية > حذف > حذف صفوف الورقة لحذف الصفوف المحددة حسب حاجتك ، انظر لقطات الشاشة:

حذف المستند بالسالب 6 2 حذف المستند بالسالب 7

نصائح: يمكنك أيضًا النقر بزر الماوس الأيمن للتحديد حذف من قائمة السياق لحذف الصفوف المحددة.

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for the delete function .. works great .. must be numeric field not just - regards
This comment was minimized by the moderator on the site
Thanks for this!

Is there a way of doing this with positive values too?
This comment was minimized by the moderator on the site
Hi, Jon,
To remove rows with positive values, you just need to apply the following code, please try.
Sub Deleter()
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations