[已解决]版主大大、各位高手快来救救我！！

qq82616454

各位大大，学生练习的时候遇到了问题
请看代码，
请问用什么方法？可以让我点击 全部的时候，显示男生和女生呀？{:031:}

1. 
   

复制代码

最佳答案

月排行榜 / 总排行榜

WANGSHANGKUN

2011-12-16 13:02

自己答了自己的问题         

跳转到最佳答案楼层

qq82616454

1. Private Sub ComboBox1_Change()
   
2.     Select Case ComboBox1.Value
   
3.     Case "全部"
   
4.         'Range("A1:B20").AutoFilter Field:=2
   
5.     Case "男生"
   
6.         Dim X, Y As Range, i%
   
7.         Cells.EntireRow.Hidden = False
   
8.         X = Range([a1], [b65536].End(3))
   
9.         For i = 1 To UBound(X)
   
10.         If X(i, 2) = "女生" Then
    
11.         If Y Is Nothing Then Set Y = Cells(i, 1) Else Set Y = Union(Y, Cells(i, 1))
    
12.         End If
    
13. Next
    
14. If Not Y Is Nothing Then Y.EntireRow.Hidden = True
    
15.          
    
16.     Case "女生"
    
17.         Dim aa, bb As Range, j%
    
18.         Cells.EntireRow.Hidden = False
    
19.         aa = Range([a1], [b65536].End(3))
    
20.         For j = 1 To UBound(aa)
    
21.         If aa(j, 2) = "男生" Then
    
22.         If bb Is Nothing Then Set bb = Cells(j, 1) Else Set bb = Union(bb, Cells(j, 1))
    
23.         End If
    
24. Next
    
25. If Not bb Is Nothing Then bb.EntireRow.Hidden = True
    
26.     End Select
    
27. End Sub

复制代码

qq82616454

我知道了
使用
Cells.EntireRow.Hidden = False
谢谢各位啊

hytsky

2楼的好神速，偶像呐{:221:}

WANGSHANGKUN

自己答了自己的问题