จะเน้นคอลัมน์หรือส่วนหัวของคอลัมน์ได้อย่างไรหากถูกกรองใน Excel
สำหรับตารางที่มีหลายคอลัมน์มันไม่ง่ายเลยที่จะค้นหาว่าคอลัมน์ใดถูกกรองอย่างรวดเร็วเนื่องจากไม่มีสัญลักษณ์ที่ชัดเจนสำหรับคอลัมน์ที่ถูกกรองยกเว้น a เครื่องหมาย. หากคุณต้องการทำให้คอลัมน์ที่กรองแล้วโดดเด่นในตารางวิธีการในบทความนี้สามารถช่วยคุณได้
ไฮไลต์ส่วนหัวของคอลัมน์หรือทั้งคอลัมน์หากถูกกรองด้วยรหัส VBA
ไฮไลต์ส่วนหัวของคอลัมน์หรือทั้งคอลัมน์หากถูกกรองด้วยรหัส VBA
ดังภาพด้านล่างนี้คุณต้องเน้นทั้งคอลัมน์หรือเฉพาะส่วนหัวคอลัมน์หากคอลัมน์นี้ถูกกรองในช่วงตารางโปรดใช้รหัส VBA ต่อไปนี้
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
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 โปรดเลือกเซลล์แรกของตารางที่คุณต้องการเพื่อไฮไลต์ส่วนหัวคอลัมน์ที่กรองแล้วหรือคอลัมน์ที่กรองทั้งหมดแล้วคลิก OK ปุ่ม
จากนั้นส่วนหัวของคอลัมน์หรือทั้งคอลัมน์จะถูกไฮไลต์ทันทีหากคอลัมน์ถูกกรองในตารางบางตาราง ดูภาพหน้าจอ:
ไฮไลต์ส่วนหัวของคอลัมน์หากคอลัมน์ถูกกรองในตาราง:
เน้นคอลัมน์ทั้งหมดหากถูกกรองในตาราง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!