永发信息网

怎么设置excel达到条件整行自动隐藏并且还能出现

答案:5  悬赏:50  手机版
解决时间 2021-03-20 00:40
怎么设置excel达到条件整行自动隐藏并且还能出现
最佳答案
按ALT+F11.在左边找到这张表,双击,在右边的空白处复制下面的代码。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 3 And .Count = 1 Then
If .Value = "完成" Then
.Rows.EntireRow.Hidden = True
End If
End If
End With
End Sub
然后关闭,回到C列,输入"完成"就隐藏了
全部回答
拖动行号3下的线进行一行的隐藏,再以最适合的行高设置就出来了
等VBA高手,或者你自己找VBA隐藏。
简单点的办法就自己录制个宏,自动筛选——不要勾选合同已退
用自带的组合功能,

选择需要隐藏的某一行,点组合,边上会出现一个"-",点击隐藏,变成"+",再点出现你隐藏的行!

这个需要用VBA宏来解决,在这个工作表的底部标签名上点鼠标右键,选“查看代码”,会弹出该工作表的VBA窗口,把下面代码粘贴进去:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then '第15列对应o列
    If Target.Value = "合同已退" Then Rows(Target.Row).EntireRow.Hidden = True
End If
End Sub

Sub 显示()
Cells.EntireRow.Hidden = False
End Sub
Sub 隐藏()
For i = 3 To Range("o65536").End(xlUp).Row
    If Cells(i, 15) = "合同已退" Then Rows(i).EntireRow.Hidden = True
Next
End Sub

回到表格窗口,只要在O列输入 合同已退 这四个字,就会自动隐藏该行;另个在“工具-宏-宏”中执行“显示”宏,就能把隐藏的都显示出来;执行“隐藏”宏,能把所有O列是 合同已退 的都隐藏起来。

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
7/4x减去五等于3/8求解。
“喜迎两会”公益会诊多会开始呢?
中国和印度服饰对比
. 下列关于碳及碳的化合物,说法正确的是
一心堂丽江丽鹤路连锁店我想知道这个在什么地
梦幻西游有没有公共储物箱,几个账号可以共享
口算38+36时先算()?再算()?也可先算()?再算()
山东破碎机哪家好,博强机械,福建破碎机
请问,每天晒多长时间太阳会更有利于钙的吸收
谁知道制作交通卡卡贴所需图片的大小?
青岛昌隆文具的待遇
小兔子为什么到处拉屎
粒上皇梅州店地址有知道的么?有点事想过去
为什么现在都在朋友圈里发一些拜佛啊什么的说
谁能告诉我西青工业区都有那些厂子?!谢谢!`
推荐资讯
500字以内的招聘报告范文
沈阳有到重庆的长途汽车吗
吃辣椒和槟榔感觉屁股湿湿的,怎么回事
橡胶的压缩性能标准,10mm厚的橡胶,我可以压
Activity绑定service后 Activity还会被系统销
举高高有污的意思吗
张氏修脚堂地址在什么地方,想过去办事
包括但不限于重大资产重组等事项是什么意思?
AS3 低级问题:为什么for(var i:int in myArr
去年丢了一部苹果六的手机,到了今天我知道谁
奔腾x801.8tsuv车的质量如何
为什么晶体三极管是双极型晶体管,场效应管是
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?