كيفية حذف الصفوف ذات القيم السالبة في إكسيل؟
لنفترض أن لديك نطاق البيانات التالي ، وتريد حذف الصفوف بأكملها إذا كان الرقم سالبًا في العمود B ، فهل هناك أي طرق جيدة لحل هذه المشكلة في Excel؟
![]() |
![]() |
![]() |
احذف الصفوف ذات الأرقام السالبة باستخدام التعليمات البرمجية لـ 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 مفتاح لتنفيذ هذا الرمز ، في مربع المطالبة ، يرجى تحديد عمود الرقم الذي تريد العثور على الأرقام السالبة منه ، انظر الصورة:
4. ثم اضغط OK زر ، تم حذف الصفوف ذات الأرقام السالبة دفعة واحدة.
احذف الصفوف ذات الأرقام السالبة باستخدام كوتولس ل إكسيل
للتعامل مع هذه الوظيفة ، كوتولس ل إكسيلالصورة حدد خلايا معينة يمكن للميزة أيضًا أن تقدم لك خدمة ، باستخدام هذه الأداة المساعدة ، يمكنك تحديد الصفوف بأكملها التي تحتوي على القيم السالبة أولاً ، ثم حذف الصفوف بأكملها حسب حاجتك.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد العمود يحتوي على الأرقام السالبة التي تريد حذفها.
2. ثم اضغط كوتولس > اختار > حدد خلايا معينة، انظر لقطة الشاشة:
3. في حدد خلايا معينة مربع الحوار، حدد الصف بأكمله الخيار في نوع التحديد، ثم اختر أقل من من نوع خاص أو معين وأدخل 0 في مربع النص بجانب المعايير ، انظر الصورة:
4. ثم اضغط Ok، تم تحديد الصفوف التي تحتوي على أرقام سالبة مرة واحدة ، ثم انقر فوق الرئيسية > حذف > حذف صفوف الورقة لحذف الصفوف المحددة حسب حاجتك ، انظر لقطات الشاشة:
![]() |
![]() |
![]() |
نصائح: يمكنك أيضًا النقر بزر الماوس الأيمن للتحديد حذف من قائمة السياق لحذف الصفوف المحددة.
أفضل أدوات إنتاجية المكتب
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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
