วิธีซ่อนแถวตามสีของเซลล์ใน Excel
ในแผ่นงาน Excel ฉันมีรายการเซลล์ที่มีสีต่างๆมากมายตอนนี้ฉันต้องการซ่อนแถวสีฟ้าอ่อนทั้งหมดตามภาพหน้าจอต่อไปนี้คุณจะจัดการกับงานนี้ใน Excel ได้อย่างรวดเร็วและง่ายดายได้อย่างไร
ซ่อนแถวตามสีของเซลล์ด้วยรหัส VBA
หากต้องการซ่อนแถวตามสีพื้นหลังรหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดดำเนินการดังนี้:
1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ซ่อนแถวตามสีของเซลล์:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("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", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการใช้ดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มเซลล์สีฟ้าอ่อนทั้งหมดถูกซ่อนพร้อมกันดูภาพหน้าจอ:
หมายเหตุ:
1. ในรหัสด้านบนหมายเลข 20 ภายในสคริปต์นี้ ถ้า xRg.Range ("A" & I) .Interior.ColorIndex = 20 จากนั้นเป็นหมายเลขดัชนีสีคุณสามารถเปลี่ยนได้ตามที่คุณต้องการ
2. หากคุณไม่แน่ใจว่าหมายเลขดัชนีสีคุณควรใช้รหัสต่อไปนี้เพื่อรับดัชนีสีที่คุณต้องการทราบ:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
จากนั้นป้อนสูตร: = GetColor (A2) ในการส่งคืนหมายเลขดัชนีสีเฉพาะของพื้นหลังในเซลล์ A2 คุณเปลี่ยน A2 เป็นสีอื่นตามที่คุณต้องการ
ซ่อนแถวตามสีของเซลล์ด้วย Kutools for Excel
ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ เลือกเซลล์ที่มีรูปแบบ ยูทิลิตี้คุณสามารถเลือกเซลล์ที่มีสีเฉพาะก่อนจากนั้นจึงซ่อนไว้พร้อมกัน
Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. คลิก Kutools > เลือก > เลือกเซลล์ที่มีรูปแบบดูภาพหน้าจอ:
2. ใน เลือกเซลล์ที่มีรูปแบบ กล่องโต้ตอบดำเนินการด้านล่าง:
(1. ) คลิก ปุ่มเพื่อเลือกช่วงข้อมูลที่คุณต้องการใช้
(2. ) จากนั้นคลิก เลือกรูปแบบจากเซลล์ ปุ่มเพื่อเลือกเซลล์สีเฉพาะที่คุณต้องการซ่อนแถวตาม;
(3. ) แอตทริบิวต์ทั้งหมดของเซลล์ที่ระบุไว้ในกล่องรายการโปรดตรวจสอบ สีพื้นหลัง ภายใต้ ใส่ มาตรา.
3. จากนั้นคลิก Ok เลือกเซลล์ทั้งหมดที่มีสีเฉพาะพร้อมกันแล้วคลิก หน้าแรก > รูปแบบ > ซ่อนและเลิกซ่อน > ซ่อนแถวดูภาพหน้าจอ:
4. จากนั้นเซลล์ที่เลือกด้วยสีเฉพาะจะถูกซ่อนไว้ดูภาพหน้าจอ:
คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!
การสาธิต: ซ่อนแถวตามสีของเซลล์ด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!