[已解决]考务安排打印考室的有关问题

jingshan

目标：在A2单元格制作一个下拉菜单，如511,512,513,514,515,516,517,518,521,522,523,524,525,526,531,532,533,534,535,541,542,543,544,545,551,552,553,561,562,563
(1)使选中511后，只出现所有以511开头学生姓名
(2)在B2单元格显示  一(1)班  
(3)同时统计所有以511开头学生人数，显示在F2单元格
(4)根据【监考安排】表，在J2单元格显示第1考室监考教师

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-1-9 08:21

取巧方法，是否可以

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2. If T.Count > 1 Or T.Row <> 2 Then Exit Sub
   
3. If T.Address = "$A$2" Then
   
4.     Dim ar, irow%, ends%
   
5.     Application.ScreenUpdating = False
   
6.     Rows.Hidden = False
   
7.     ends = [a65536].End(3).Row
   
8.     For irow = 3 To ends
   
9.         If Not (Cells(irow, 1) Like T.Value & "*") Then
   
10.             Cells(irow, 1).RowHeight = 0
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

jingshan

高手都到哪里去了？

苏子龙

取巧方法，是否可以

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2. If T.Count > 1 Or T.Row <> 2 Then Exit Sub
   
3. If T.Address = "$A$2" Then
   
4.     Dim ar, irow%, ends%
   
5.     Application.ScreenUpdating = False
   
6.     Rows.Hidden = False
   
7.     ends = [a65536].End(3).Row
   
8.     For irow = 3 To ends
   
9.         If Not (Cells(irow, 1) Like T.Value & "*") Then
   
10.             Cells(irow, 1).RowHeight = 0
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End If
    
15. End Sub

复制代码

jingshan

真是实现了，感谢感谢！但我对vba用法，

yonhe

学习学习1