找回密码
 立即注册

QQ登录

只需一步,快速开始

leikaihua

注册会员

25

主题

78

帖子

193

积分

注册会员

积分
193

活字格认证

[已处理] 隐藏行

leikaihua
注册会员   /  发表于:2014-12-1 10:01  /   查看:5203  /  回复:4
我需要把很多行隐藏掉,RowHidden这个属性只能一行一行隐藏,用循环速度特别慢,求助有没有更好的方法。

4 个回复

倒序浏览
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
5#
回复 4楼leikaihua的帖子

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

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

  4. For i = 0 To 9999
  5.     Me.fpSpread1.Row = i
  6.     Me.fpSpread1.RowHidden = True
  7.    
  8. Next
  9. Me.fpSpread1.ReDraw = True

  10. End Sub
复制代码

评分

参与人数 1满意度 +5 收起 理由
leikaihua + 5 太谢谢版主了 给你个 赞

查看全部评分

回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部