一个表格1500行,判断i列值为0或1,为零的时候隐藏该行,为1的的时候显示该行
写了一个宏
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 1500
If Cells(i, 9) = 0 Then Rows(i).Hidden = True '隐藏该行
If Cells(i, 9) = 1 Then Rows(i).Hidden = False '显示该行
Next
End Sub
但是每次点击这个表格的时候都会计算,并且很慢,请问这是什么原因呢?有什么好的解决办法么?
谢谢!
改改吧,加点东西:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)看看速度快了么。