VBA : 셀 값이 대상 행 셀 값과 일치하는 행 숨기기?

-2

나는 스프레드 시트과 같이 있습니다VBA : 셀 값이 대상 행 셀 값과 일치하는 행 숨기기?

A  B   C   D   E   F  G 
12  Row1             Click to Hide 
12  Row2             Click to Hide 
5  Row3             Click to Hide 
4  Row4             Click to Hide 
12  Row5             Click to Hide

사용자가 클릭 내가 열 A에

그래서를 그 목표 행에서 일치하는 번호가 모든 행을 숨기기 위해 노력하고 있어요 '를 클릭 숨기기 위해' 예를 들어 사용자가 row1의 열 G에서 '클릭하여 숨기기'를 클릭하면 숫자가 12 인 경우, Row1, Row2 및 Row5는 모두 숨겨집니다. 이는 모두 동일한 번호를 가지기 때문입니다.

그러나 문제를 복잡하게하기 위해 대상 행을 숨기고 싶지 않습니다. 즉, Row1은 숨겨지지 않고 대신 Row2와 Row 5 만 숨겨집니다.

여기 내 코드입니다 :

'Hide ROws 


If Target.Count > 1 Then Exit Sub 
    If Not Intersect(Target, Range("G:G")) Is Nothing And Target.Value = "Click to Hide" Then 
     valu = Cells(Target.Row, 1).Value 
     For i = 1 To ActiveSheet.UsedRange.Rows.Count 
      If Cells(i, 1).Value = valu Then 
       Cells(i, 1).EntireRow.Hidden = True 
      Else 
       Cells(i, 1).EntireRow.Hidden = False 
      End If 
     Next i 
     Target.EntireRow.Hidden = False 
    Else 
     Rows.Hidden = False 
    End If

코드는 작동하지 않는 것, 그것은 비어와 일치하는 번호가없는 내 스프레드 시트의 상단에 다른 행을 숨 깁니다. 왜 이런지 모르겠지만, 누군가 내가 잘못 가고있는 것을 보여줄 수 있습니까? 사전

출처

2016-10-06 M.Doe

에서

덕분에 왜 당신은 당신의 [마지막 질문] 당신에게 그 코드를 준 사람 (http://stackoverflow.com/questions/39883884/excel-의지도를 요청하지 않았다 vba-hide-all-rows-value-value-active-cell-offset-cell-value) –

또한 네 번째 질문입니다. 다른 세 사람은 모두 대답을 가지고 있는데, 주어진 유일한 의견은 그 사람이 일하지 않았다는 것입니다. 답변이 제대로 작동하면 답을 클릭하여 올바른 것으로 표시해야합니다. 피드백이 없다면 도움을 멈추게 될 것들이 있습니다. –

Sub HideRows() 
    BeginRow = 1 
    EndRow = 100 
    ChkCol = 1 

    For RowCnt = BeginRow To EndRow 
     If Cells(RowCnt, ChkCol).Value = 12 Then 
      Cells(RowCnt, ChkCol).EntireRow.Hidden = True 
     End If 
    Next RowCnt 
End Sub

출처

2016-10-06 17:30:58 Josh

질문을 다시 읽으십시오. 코드는 12로 모든 행을 숨 깁니다. 클릭 한 행을 포함합니다. 12가 아닌 행을 클릭하면 12를 숨길 수도 있습니다.) –

@DirkReichel, 나는 그를 위해 일하지 않을 것입니다. 동일한 질문을 3 번 게시 한 것처럼 참조 용 코드를 게시하고 있습니다. – Josh

* 나는 그를 위해 일하는 것이 아닙니다. * 유효한 대답이 아닙니다. 그의 코드에는 오류가 있으며, 우리는 나쁜 ppl 때문에 어디서 그에게 말하지 않을 것입니다. 그러나 단순히 문제를 해결하지 못하는 ** 대답 **을 주면 찬성 할 수 있습니다. –

VBA : 셀 값이 대상 행 셀 값과 일치하는 행 숨기기?

답변

관련 문제