Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2319|回复: 2

[已解决]求给修改一下这个代码,自动隐藏行,在线等,谢谢

[复制链接]
发表于 2015-5-27 13:25 | 显示全部楼层 |阅读模式
本帖最后由 15905582255 于 2015-5-27 15:02 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 7 Then Exit Sub
If Cells(Target.Row, 7) = "0" Then
Target.EntireRow.Hidden = True
Else
Target.EntireRow.Hidden = False
End If
DoEvents
End Sub


修改成 引用数据源的值为0时也自动隐藏

这个命令会不会根据值的变化情况 自动显示或者隐藏  比如本来为0,那么它自动隐藏了该行,若该为其他的,是不是自动显示该行,若不是,求给修改一下

本人QQ:398228422
最佳答案
2015-5-27 16:26
检验报告管理系统.rar (48.88 KB, 下载次数: 35)

检验报告管理系统2015.5.26.zip

51.08 KB, 下载次数: 1

发表于 2015-5-27 16:26 | 显示全部楼层    本楼为最佳答案   
检验报告管理系统.rar (48.88 KB, 下载次数: 35)
回复

使用道具 举报

 楼主| 发表于 2015-5-27 18:35 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:57 , Processed in 0.445589 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表