[已解决]调试代码

yewei113

1. 
   
2. <P>Private Sub Worksheet_Change(ByVal T As Range)
   
3. If T.Address = "$$$$H$$$$3" Then
   
4.     Rows("10:49").Hidden = False
   
5.     If T.Value <> "" And T.Value <> 0 Then
   
6.         Rows("10:49").Hidden = False
   
7.         a = 10 + T.Value
   
8.         If T.Value < 40 Then Rows(a & ":49").Hidden = True
   
9.     End If
   
10. ElseIf T.Address = "$$$$H$$$$3:$$$$I$$$$3" Then
    
11.     If T.Text = "" Then Rows("10:49").Hidden = False
    
12. End If
    
13. End Sub
    
14. </P>

复制代码

因为H3单元格是公式计算，每次触发进必须进入编辑状态后回车后才能触发，求   能不能，只要数值变化就触发事件呢？

最佳答案

月排行榜 / 总排行榜

xdragon

2014-7-26 19:40

1. Private Sub Worksheet_Calculate()
   
2. Application.EnableEvents = False
   
3.     Dim v&
   
4.     v = Val(Range("H3").Value)
   
5.     Rows("10:49").Hidden = False
   
6.     If v < 40 Then
   
7.       Rows(v + 10 & ":49").Hidden = True
   
8.     End If
   
9. Application.EnableEvents = True
   
10. End Sub

复制代码

试试看这个吧。

跳转到最佳答案楼层

xdragon

改成我之前写的caculate试试看吧。不过我之前测试，如果H3是公式的话，其他单元格的变化造成H3值改变还是会触发change事件的。不知道你那状况怎么样。

易安1

xdragon 发表于 2014-7-26 17:31
改成我之前写的caculate试试看吧。不过我之前测试，如果H3是公式的话，其他单元格的变化造成H3值改变还是会 ...

开始前先屏蔽事件 结束后再开启就好了

yewei113

xdragon 发表于 2014-7-26 17:31
改成我之前写的caculate试试看吧。不过我之前测试，如果H3是公式的话，其他单元格的变化造成H3值改变还是会 ...

我试了，没行，没有反映，必须要进行编辑状态才行

qh8600

yewei113 发表于 2014-7-26 18:19
我试了，没行，没有反映，必须要进行编辑状态才行

H3单元格变化产生触发事件
比如h3=a3*b3*c3*d3,在a3-d3中找到一个和H3有必然规律的，然后触发这个单元格比如D3，然后写事件，就是说只要D3改变，H3就改变，然后就触发，比如有N个单元格改变，H3都会改变，就用OR判断
只是一个思路

xdragon

1. Private Sub Worksheet_Calculate()
   
2. Application.EnableEvents = False
   
3.     Dim v&
   
4.     v = Val(Range("H3").Value)
   
5.     Rows("10:49").Hidden = False
   
6.     If v < 40 Then
   
7.       Rows(v + 10 & ":49").Hidden = True
   
8.     End If
   
9. Application.EnableEvents = True
   
10. End Sub

复制代码

试试看这个吧。

Wangguangen

太复杂了，暂时还看不懂