求助：根据要求隐藏！

流水之无情

我想根据第一个 2012-9-28 21:12 上传
下载次数: 2


表里面班级数的改变，自动隐藏另外两个表里面多余的班级，请大侠们帮忙！ Book1.rar (4.88 KB, 下载次数: 13)

2012-9-29 10:15 上传

点击文件名下载附件

kwinawyeth

是不是这样？

1. Private Sub Worksheet_Activate()
   
2.     Dim i As Long, j As Long, k1 As Long, k2 As Long
   
3.     Application.ScreenUpdating = False
   
4.     Rows("7:" & Cells(65536, 3).End(xlUp).Row).EntireRow.Hidden = False '取消所有隐藏的行
   
5.     For i = 2 To 7 '循环每个年级
   
6.         '找出每个年级的第一行
   
7.         For j = 7 To Cells(65536, 3).End(xlUp).Row
   
8.             If Cells(j, 1) <> "" Then
   
9.                 If Left(Cells(j, 1), 1) = Sheets("数据设置").Cells(i, 7) Then
   
10.                     k1 = j
    
11.                     Exit For
    
12.                 End If
    
13.             End If
    
14.         Next j
    
15.         If k1 < 1 Then Exit Sub
    
16.         
    
17.          '找出每个年级的最后一行
    
18.         k2 = k1 + 1
    
19.         Do While Cells(k2, 1) = ""
    
20.             k2 = k2 + 1
    
21.             If k2 > Cells(65536, 3).End(xlUp).Row Then Exit Do
    
22.         Loop
    
23.         k2 = k2 - 1
    
24.         
    
25.         '隐藏多余的班
    
26.         For j = k1 To k2
    
27.             If Cells(j, 3) > Sheets("数据设置").Cells(i, 8) And Cells(j, 3) <> "年级" Then
    
28.                 Rows(j).EntireRow.Hidden = True '隐藏行
    
29.             End If
    
30.         Next j
    
31.     Next i
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    

复制代码

流水之无情

kwinawyeth 发表于 2012-10-2 15:24
是不是这样？

您真棒，谢谢，不过还有一个小问题，就是最后六年级英语没有设置好，先输入5，可以只剩5个班，然后改大一点的数字，就不动了。请您有时间改一下！

845018224

顺便学习了,谢谢