[已解决]求助，请高手帮忙修改代码

zxc2011

求助，请高手帮忙修改代码在此谢谢

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-11-6 08:14

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then
   
3. Cells.EntireRow.Hidden = 0
   
4. t = [d2]
   
5. y = [e2]
   
6. x = Range("a65536").End(3).Row
   
7. If Not Range("a:a").Find(Target, , , 1) Is Nothing Then
   
8.     Rows("3:" & t - 1).EntireRow.Hidden = 1
   
9.     Rows(y + 1 & ":" & x).EntireRow.Hidden = 1
   
10. Else
    
11.     Cells.EntireRow.Hidden = 0
    
12. End If
    
13. End If
    
14. End Sub

复制代码

跳转到最佳答案楼层

snrvgbb

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then
   
3. Cells.EntireRow.Hidden = 0
   
4. t = [d2]
   
5. y = [e2]
   
6. x = Range("a65536").End(3).Row
   
7. If Not Range("a:a").Find(Target, , , 1) Is Nothing Then
   
8.     Rows("3:" & t - 1).EntireRow.Hidden = 1
   
9.     Rows(y + 1 & ":" & x).EntireRow.Hidden = 1
   
10. Else
    
11.     Cells.EntireRow.Hidden = 0
    
12. End If
    
13. End If
    
14. End Sub

复制代码

lbs2003

Private Sub Worksheet_Change(ByVal Target As Range)
application.ScreenUpdating=False
If Target = Range("c2") Then
  Dim LastRow, i As Integer
  
  
  LastRow = Range("a65535").End(xlUp).Row
  Debug.Print LastRow
  

  For i = 1 To LastRow
   
   Select Case Target.Value
    Case Is = 1
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 1 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 2
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 2 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 3
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 3 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 4
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 4 Then
     Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 5
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 5 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 6
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 6 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 7
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 7 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 8
     Cells.EntireRow.Hidden = False
     If Cells(i + 3, 1).Value <> 8 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
   End Select
  Next
End If
application.ScreenUpdating=true
End Sub

我只列出8个其他你自己做

lbs2003

有点小错误，更正如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target = Range("c2") Then
  Dim LastRow, i As Integer
  
  
  LastRow = Range("a65535").End(xlUp).Row
  Debug.Print LastRow
  Cells.EntireRow.Hidden = False

  For i = 1 To LastRow
   
   Select Case Target.Value
    Case Is = 1
     If Cells(i + 3, 1).Value <> 1 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 2
     If Cells(i + 3, 1).Value <> 2 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 3
     If Cells(i + 3, 1).Value <> 3 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 4
     If Cells(i + 3, 1).Value <> 4 Then
     Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 5
     If Cells(i + 3, 1).Value <> 5 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 6
     If Cells(i + 3, 1).Value <> 6 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 7
     If Cells(i + 3, 1).Value <> 7 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
    Case Is = 8
     If Cells(i + 3, 1).Value <> 8 Then
      Cells(i + 3, 1).EntireRow.Hidden = True
     End If
   End Select
  Next
End If
End Sub