leikaihua 发表于 2014-12-1 10:01:00

隐藏行

我需要把很多行隐藏掉，RowHidden这个属性只能一行一行隐藏，用循环速度特别慢，求助有没有更好的方法。

iceman 发表于 2014-12-1 19:43:00

回复 1楼leikaihua的帖子

抱歉，当前只能进行逐行隐藏无法一次性隐藏多行。

leikaihua 发表于 2014-12-2 10:16:00

这个 隐藏行 命令执行速度特别慢，1万行需要5秒之多。

leikaihua 发表于 2014-12-2 10:17:00

还有其它函数 或 命令 可以代替吗？

iceman 发表于 2014-12-2 17:44:00

回复 4楼leikaihua的帖子

试试这段代码，控制重绘开关，我这边测试效果很明显：

Private Sub Command2_Click()
Dim i As Integer
Me.fpSpread1.ReDraw = False

For i = 0 To 9999
    Me.fpSpread1.Row = i
    Me.fpSpread1.RowHidden = True
   
Next
Me.fpSpread1.ReDraw = True

End Sub
页: [1]
查看完整版本: 隐藏行