[已解决]老师帮忙

李春宇

我想在原来的基础上增加以下代码
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都显示
有办法能做到吗？  真是万分感谢了

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-10 09:43

李春宇 发表于 2015-6-10 07:43
老师 O-X的逻辑不能改成和CL一样的 但但能改成这样
B26值为0 那么隐藏O-X列，为1显示O-P列，为2显示O-R列 ...

book.rar (22.56 KB, 下载次数: 6)

2015-6-10 09:42 上传

点击文件名下载附件
这样试试

跳转到最佳答案楼层

李春宇

附件

hyfire2008

请见附件！

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Sheet1
   
3.         If .Range("B25") = 0 Then
   
4.             .Columns("C:L").EntireColumn.Hidden = True
   
5.         ElseIf .Range("B25") = 1 Then
   
6.             .Columns("c:j").EntireColumn.Hidden = True
   
7.         ElseIf .Range("B25") = 2 Then
   
8.             .Columns("c:H").EntireColumn.Hidden = True
   
9.         ElseIf .Range("B25") = 3 Then
   
10.             .Columns("c:F").EntireColumn.Hidden = True
    
11.         ElseIf .Range("B25") = 4 Then
    
12.             .Columns("c:D").EntireColumn.Hidden = True
    
13.         ElseIf .Range("B25") = 5 Then
    
14.             .Columns("c:L").EntireColumn.Hidden = False
    
15.         End If
    
16.         If .Range("B26") = 0 Then
    
17.             .Columns("O:X").EntireColumn.Hidden = True
    
18.         ElseIf .Range("B26") = 1 Then
    
19.             .Columns("q:X").EntireColumn.Hidden = True
    
20.         ElseIf .Range("B26") = 2 Then
    
21.             .Columns("s:X").EntireColumn.Hidden = True
    
22.         ElseIf .Range("B26") = 3 Then
    
23.             .Columns("u:X").EntireColumn.Hidden = True
    
24.         ElseIf .Range("B26") = 4 Then
    
25.             .Columns("w:X").EntireColumn.Hidden = True
    
26.         ElseIf .Range("B26") = 1 Then
    
27.             .Columns("O:X").EntireColumn.Hidden = False
    
28.         End If
    
29.             
    
30.     End With
    
31. End Sub
    

复制代码

李春宇

hyfire2008 发表于 2015-6-7 22:31
请见附件！

您好 如图片剪头所示的地方是不是应该是5呀
另外这个代码有点不好 比如B25为2时隐藏C-J  但是选3时就没反应  只有选5后才可以全部显示之后再选3  再有就是是不是我阐述的不明白  我想要是的保留原来表格里的功能，增加这次要求了，麻烦大师费费心 辛苦了

李春宇

之前的附件不对 看这个
但这个也有点问题 A列的21行和51行不能自动显示

qh8600

你的逻辑有问题啊，能不能改一下哈
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都显示
红色的感觉不一样

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim x As Integer, y As Integer
   
3.     On Error Resume Next
   
4.     Application.ScreenUpdating = False
   
5.     x = Target.Value: y = (5 - x) * 2
   
6.     If Target.Address = "$B$27" Then
   
7.         Rows("2:22").EntireRow.Hidden = False
   
8.         If x < 20 Then Rows(x + 2 & ":22").EntireRow.Hidden = True
   
9.     ElseIf Target.Address = "$B$28" Then
   
10.         Rows("32:52").EntireRow.Hidden = False
    
11.        If x < 20 Then Rows(x + 32 & ":52").EntireRow.Hidden = True
    
12.     ElseIf Target.Address = "$B$25" Then
    
13.         Columns("C:L").EntireColumn.Hidden = False
    
14.         If y <> 0 Then Columns("c:" & Chr(y + 66)).EntireColumn.Hidden = True
    
15.     ElseIf Target.Address = "$B$26" Then
    
16.         Columns("O:X").EntireColumn.Hidden = False
    
17.         If y <> 0 Then Columns("O:" & Chr(y + 78)).EntireColumn.Hidden = True
    
18.     End If
    
19.     Application.ScreenUpdating = True
    
20. End Sub

复制代码

book.rar (21.96 KB, 下载次数: 11)

2015-6-9 12:13 上传

点击文件名下载附件
楼主试试，O-X列的逻辑就按照C-L列的那样的隐藏了

李春宇

qh8600 发表于 2015-6-9 12:15
楼主试试，O-X列的逻辑就按照C-L列的那样的隐藏了

老师 O-X的逻辑不能改成和CL一样的 但但能改成这样
B26值为0 那么隐藏O-X列，为1显示O-P列，为2显示O-R列，为3显示O-T列，为4显示O-V列，为5显示O-X列   
这样能做到吗？

qh8600

李春宇 发表于 2015-6-10 07:43
老师 O-X的逻辑不能改成和CL一样的 但但能改成这样
B26值为0 那么隐藏O-X列，为1显示O-P列，为2显示O-R列 ...

book.rar (22.56 KB, 下载次数: 6)

2015-6-10 09:42 上传

点击文件名下载附件
这样试试

李春宇

太棒了