作者:乔山办公网日期:
返回目录:excel表格制作
Sub a()
Dim rg As Range
Dim n As Integer
Application.ScreenUpdating = False
n = 1
For Each rg In Application.Intersect(ActiveSheet.UsedRange, Columns("I"))
If rg.Value = "N" Then rg.Select
With Selection
.EntireRow.Hidden = True
End With
Next rg
Application.ScreenUpdating = True
End Sub
设置单元格格式,“保护”勾选“隐藏”。
然后再用代码,设置单元格字体颜色,与单元格填充颜色相同,
并且保护工作表,
这样,可以达到隐藏的效果。
显示则可以取消保护,更改字体颜色。
Sub myHide()
Dim Rng As Range
If ActiveWindow.RangeSelection.Count = 1 Then End '如果来不是自多选就结束
For Each Rng In ActiveWindow.RangeSelection '历遍知每个选择区里单元格
If Rng.Value = "条件" Then '如果有单元格符合道条件
ThisWorkbook.ActiveSheet.Rows(Rng.Row).Hidden = True '隐藏这一行
End If
Next
End Sub
excel隐藏copy整列或者整行。
宏代码如下百
隐藏度B列
Sub 隐藏指问定工作表的指答定列()
Sheet1.Columns("B:B").EntireColumn.Hidden = True
End Sub
隐藏2行
Sub 隐藏指定工作表的指定行()
Sheet1.Rows("2:2").EntireRow.Hidden = True
End Sub