查看: 589|回复: 3
谁能帮我改个代码 本人菜鸟所以很简单 呜呜呜~~~帮个忙呗
阅读权限20
在线时间 小时
程式是论坛的高手帮做的 但是需要稍稍改动一下 自己试了几次没用弄好我的表格是做电表箱预算用的，很多行隐藏 需要的时候才显示&&我用J列单元格的有无数据来控制所在行的下一行显示/隐藏，
(109.81 KB, 下载次数: 10)
16:24 上传
点击文件名下载附件
这个宏命令我发现！！ 在我选择这一列所有内容清除的时候所有单元格都为空了，但是所有行都没有隐藏 ，只有一行一行清除才有效果！！！ 另外 5 、11&&、19 、25 、29、 35 、38 、39、 40、 41、 42、 43 行是不能受控制（ 长期显示不隐藏的） 我该怎么修改一下程序 谢谢！！谁能再帮帮我呢？！！以前我发的贴位置 高手帮我做的很贴近我的要求了，但有上面的情况谁能再帮我看看！！
该贴已经同步到
阅读权限90
在线时间 小时
改了一点，可以实现选择这一列所有内容清除的时候，相应下一行隐藏
话说你的表做的实在不咋地
17:18 上传
点击文件名下载附件
107.31 KB, 下载次数: 7
阅读权限20
在线时间 小时
skyzxh 发表于
改了一点，可以实现选择这一列所有内容清除的时候，相应下一行隐藏
话说你的表做的实在不咋地
谢谢 你还能认为这个是表我就感到很心满意足了，关键这个是我自己一个几个月前还不知道表格为何物的菜鸟做出来的 用起来得心应手就够了！！很多功能命令都是拼凑来得哈哈！！
阅读权限95
在线时间 小时
本帖最后由 maditate 于
20:18 编辑
把红色的一句删除看看能不能达到你要的效果
Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Column && 10 Then Exit Sub
&&&&If Target.Count & 1 Then Exit Sub
& && && && &If Target = && Then
& && && && &Target.Offset(1, 0).EntireRow.Hidden = True
& && &&&Else
& && && && &Target.Offset(1, 0).EntireRow.Hidden = False
& && &&&End If
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}