كيفية تحديد رأس العمود أو العمود إذا تم تصفيته في Excel؟
بالنسبة للجدول الذي يحتوي على عدة أعمدة ، ليس من السهل معرفة العمود الذي تمت تصفيته في لمح البصر حيث لا يوجد رمز واضح للعمود الذي تمت تصفيته باستثناء علامة. إذا كنت ترغب في جعل العمود الذي تمت تصفيته بارزًا في جدول ، يمكن أن تساعدك طريقة في هذه المقالة.
قم بتمييز رأس العمود أو العمود بأكمله إذا تمت تصفيته برمز VBA
قم بتمييز رأس العمود أو العمود بأكمله إذا تمت تصفيته برمز VBA
كما هو موضح أدناه ، تحتاج إلى تمييز العمود بأكمله أو رأس العمود فقط إذا تم تصفية هذا العمود في نطاق جدول ، يرجى تطبيق أكواد VBA التالية.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في نافذة ميكروسوفت فيسوال باسيك للتطبيقات ، يرجى النقر إدراج > وحدة. ثم انسخ رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: قم بتمييز رأس العمود إذا تم تصفية العمود
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
لتسليط الضوء على العمود بأكمله إذا تم تصفيته في جدول ، يرجى نسخ ولصق رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: قم بتمييز العمود بأكمله إذا تم تصفيته
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 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار ، يرجى تحديد الخلية الأولى من الجدول التي تحتاجها لتمييز رأس العمود الذي تمت تصفيته أو العمود الذي تمت تصفيته بالكامل ، ثم انقر فوق OK .
ثم سيتم تمييز رأس العمود أو العمود بأكمله على الفور إذا تمت تصفية العمود في جدول معين. انظر لقطات الشاشة:
قم بتمييز رأس العمود إذا تمت تصفية العمود في الجدول:
قم بتمييز العمود بأكمله إذا تم تصفيته في الجدول:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!