كيفية تمييز العمود أو رأس العمود إذا تم تصفيته في Excel؟

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

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

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

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

1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > وحدة. ثم قم بنسخ الكود التالي من VBA إلى نافذة الوحدة.

كود VBA: تمييز رأس العمود إذا تم تصفيته

Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim I As Integer
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg.Offset(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                If .On Then
                    xRg.Offset(, I - xRgCol).Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

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

كود VBA: تمييز العمود بالكامل إذا تم تصفيته

Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
    Dim xRg As Range
    Dim xCount As Long
    Dim xRgCol As Long
    Dim xAddress As String
    Dim xRgFilter As Range
    Dim xFilterCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.Select
    With xRg(1).Parent.AutoFilter
        xFilterCount = .Range.Columns.Count
        xRgCol = xRg(1).Column - .Range.Column + 1
        For I = xRgCol To xFilterCount
            xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
            With .Filters(xCount)
                Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
                If .On Then
                    xRgFilter.Interior.Color = 16736553
                End If
            End With
        Next
    End With
End Sub

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

ثم سيتم تمييز رأس العمود أو العمود بالكامل فورًا إذا تم تصفيته في جدول معين. شاهد لقطات الشاشة:

تمييز رأس العمود إذا تم تصفيته في الجدول:

تمييز العمود بالكامل إذا تم تصفيته في الجدول:

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!