Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
شارك الآن  \/ 
x

or

كيفية إزالة الخلايا أو الصفوف إذا لم يكن غامقًا في Excel؟

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

إزالة المستند إن لم يكن غامقًا 1

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

قم بإزالة الخلايا إذا لم تكن غامقة باستخدام Find and Replace and Select Range Helper

قم بإزالة الصفوف / الخلايا إذا لم تكن غامقة باستخدام Kutools for Excel فكرة جيدة 3


v قم بإزالة الصفوف إذا لم تكن بخط عريض باستخدام VBA

لإزالة الصفوف إذا لم تكن غامقة ، يمكنك استخدام رمز VBA للتعامل معها.

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

2. انقر إدراج > وحدة، ثم لصق رمز VBA أدناه في ملف وحدة نافذة.

فبا: أزل الصفوف إذا لم تكن غامقة.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

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

إزالة المستند إن لم يكن غامقًا 2

وبعد ذلك يمكنك رؤية الصفوف التي لا تحتوي على خلايا غامقة تمت إزالتها

إزالة المستند إن لم يكن غامقًا 1دوك السهم الأيمنإزالة المستند إن لم يكن غامقًا 3

ملاحظة: يمكن إزالة الصفوف فقط عندما لا تكون جميع الخلايا في نفس الصف غامقة.


قم بإزالة الخلايا إذا لم تكن غامقة باستخدام Find and Replace and Select Range Helper

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

1. حدد نطاق البيانات حيث تريد إزالة الخلايا غير الغامقة ، واضغط على CTRL + F لتمكين بحث واستبدال الحوار ، وانقر فوق الخيارات زر. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 4

2. انقر شكل للذهاب إلى ابحث عن التنسيق الحوار ، وتحت الخط علامة التبويب، حدد جريء من نوع الخط قائمة. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 5

3. انقر OK > جد كل، ويتم سرد كافة الخلايا ذات الخط الغامق في ملف بحث واستبدال الحوار والصحافة السيطرة + أ لتحديد كل منهم ، ثم أغلق ملف بحث واستبدال الحوار. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 6

4. ثم احتفظ بهذه الخلايا محددة وانقر كوتولس > اختار > حدد مساعد النطاق. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 7

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

إزالة المستند إن لم يكن غامقًا 8

6. انقر اغلاق. الآن اضغط حذف مفتاح لإزالة محتويات الخلية من الخلايا غير الغامقة.

إزالة المستند إن لم يكن غامقًا 9


قم بإزالة الصفوف / الخلايا إذا لم تكن غامقة باستخدام Kutools for Excel

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تحتاجه ، وانقر فوق كوتولس > اختار > حدد الخلايا ذات التنسيق. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 15

2. في مربع حوار الفرقعة ، انقر فوق اختر تنسيق من الخلية زر لتحديد خلية واحدة غير غامقة من نطاق البيانات ، ثم تحقق جريء فقط من القائمة أدناه في قسم الخط. انظر لقطة الشاشة:

إزالة المستند إن لم يكن غامقًا 11

3. انقر Ok، وينبثق مربع حوار لتذكيرك بعدد الخلايا المحددة ، فقط انقر نعم لإغلاقه.

إزالة المستند إن لم يكن غامقًا 12

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

إزالة المستند إن لم يكن غامقًا 13دوك السهم الأيمنإزالة المستند إن لم يكن غامقًا 14

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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.