[已解决]求助各位大神帮忙看看这个表格

李春宇

如附件中 的代码可以做到 改变B28中的值  33-51会随之隐藏  那么我想再加一段代码让改变B27中的值 来控制隐藏3-21行
本人没有接触过这些  求大神指点 万分感谢

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-5 19:14

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim x As Integer
   
3.     Application.ScreenUpdating = False
   
4.     If Target.Value >= 1 And Target.Value <= 20 Then
   
5.         x = Target.Value
   
6.         If Target.Address = "$B$27" Then
   
7.             Rows("2:21").EntireRow.Hidden = False
   
8.             Rows(x + 2 & ":21").EntireRow.Hidden = True
   
9.         ElseIf Target.Address = "$B$28" Then
   
10.             Rows("32:51").EntireRow.Hidden = False
    
11.             Rows(x + 32 & ":51").EntireRow.Hidden = True
    
12.         End If
    
13.     End If
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

楼主试试
book.rar (21.87 KB, 下载次数: 9)

2015-6-5 19:15 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim x As Integer
   
3.     Application.ScreenUpdating = False
   
4.     If Target.Value >= 1 And Target.Value <= 20 Then
   
5.         x = Target.Value
   
6.         If Target.Address = "$B$27" Then
   
7.             Rows("2:21").EntireRow.Hidden = False
   
8.             Rows(x + 2 & ":21").EntireRow.Hidden = True
   
9.         ElseIf Target.Address = "$B$28" Then
   
10.             Rows("32:51").EntireRow.Hidden = False
    
11.             Rows(x + 32 & ":51").EntireRow.Hidden = True
    
12.         End If
    
13.     End If
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

楼主试试
book.rar (21.87 KB, 下载次数: 9)

2015-6-5 19:15 上传

点击文件名下载附件

李春宇

qh8600 发表于 2015-6-5 19:14
楼主试试

老师厉害呀，崇拜中~~~
另外我还想增加以下代码
B25值为0 那么隐藏C-L列，为1隐藏C-J列，为2隐藏C-H列，为3隐藏C-F列，为4隐藏C-D列，为5时C-L都显示
B26值为0 那么隐藏O-X列，为1隐藏Q-X列，为2隐藏S-X列，为3隐藏U-X列，为4隐藏W-X列，为5时O-X都显示
有办法能做到吗？  真是万分感谢了