作者:乔山办公网日期:
返回目录:excel表格制作
换个方式
或抄直接筛选
或
将 入库0且出库0且结余0时,该行字体变为袭无色
或
将 入库不知为0,且出库不为0,且,结余不为0的数据,用函数,提取到其他表。
方法:
INDEX函数
=INDEX(A:A,SMALL(IF(($D$2:$D$7<>0)*($E$2:$E$7<>0)*($F$2:$F$7<>0),ROW($A$2:$A$7),4^8),ROW(A1)))&""
同时按CTRL SHIFT 回车键,再右拉道,下拉
按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列,输入"完成"就隐藏了
应该不可以,但变通的办法是让下边百的空行,把文字,边框隐藏掉。如图:
1、本来下边12到14行有边框度
2、可以通过条件格式专,把B列没人名的隐藏掉。公式是COUNTA($B1)=0,里面的$是绝对地址符号,就是让其他单元格都以B列看齐。如果有人名就显示边框、文字。如果没有就隐藏。
3、确定后,把第一行的单元格,选择性粘贴》格式,到下边的行。我的背景是浅绿,可以看到边框没了,字体变白色属了。打印纸是白色的话,就完全隐藏了。
按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 WithEnd Sub 然后关闭回,回到C列,输答入"完成"就隐藏了