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를 다른 것으로 변경합니다.
Excel 용 Kutools로 셀 색상을 기반으로 행 숨기기
당신이 있으면 Excel 용 Kutools그와 서식이있는 셀 선택 유틸리티를 사용하면 먼저 특정 색상의 셀을 선택한 다음 한 번에 숨길 수 있습니다.
Excel 용 Kutools: 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다..
Is it possible to use the code with conditional formatting? I tried the code but it only worked on standardly colored cells, not on those which got the color from a conditional formatting.
In my case, the rows should be hidden when the cell in column C is gray (colorindex = 15). But the row should be shown again, when the cell changes color to white again. Is this possible?
Thanks!
Thank you!!! I came across the macro you wrote above and had 1000s of rows to hide based on one color... your macro and directions worked wonderfully! I appreciate your help!
버튼을 사용하여 사용할 데이터 범위를 선택하십시오.
