[已解决]求：隐藏行和列代码？

fxgg72

正常情况下，行和列都能隐藏和取消隐藏，但在保护工作表之后，就不能进行此项操作了；我打算在做完表格后要进行工作表保护，又想要能隐藏和取消隐藏操作，因为这个表打算记流水账，随着时间推移行会很长很长，不方便操作。
恳请各位大侠老师帮忙写个代码！
谢谢了！

我的思路是：在先不保护工作表时，用代码隐藏行和列；在保护工作表时，还能进行上述操作。
            保护工作表在后。


行和列的隐藏问题.rar (4.06 KB, 下载次数: 11)

2013-3-3 08:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

顺⑦.zì繎。

2013-3-3 09:39

1. Sub yinchang行()
   
2. On Error Resume Next
   
3. Dim a, b
   
4. a = Range("c2")
   
5. b = Range("e2")
   
6. Rows(a & ":" & b).EntireRow.Hidden = True
   
7. End Sub

复制代码

1. Sub yinchang列()
   
2. On Error Resume Next
   
3. Dim a, b
   
4. a = Range("c4")
   
5. b = Range("e4")
   
6. Columns(a & ":" & b).EntireColumn.Hidden = True
   
7. End Sub
   

复制代码

取消隐藏 将hidden 属性 改为 false就可以了

跳转到最佳答案楼层

顺⑦.zì繎。

1. Sub yinchang行()
   
2. On Error Resume Next
   
3. Dim a, b
   
4. a = Range("c2")
   
5. b = Range("e2")
   
6. Rows(a & ":" & b).EntireRow.Hidden = True
   
7. End Sub

复制代码

1. Sub yinchang列()
   
2. On Error Resume Next
   
3. Dim a, b
   
4. a = Range("c4")
   
5. b = Range("e4")
   
6. Columns(a & ":" & b).EntireColumn.Hidden = True
   
7. End Sub
   

复制代码

取消隐藏 将hidden 属性 改为 false就可以了

fxgg72

顺⑦.zì繎。 发表于 2013-3-3 09:39
取消隐藏 将hidden 属性 改为 false就可以了

谢谢老师耐心解答！
高手就是高手！敬佩敬佩！

fxgg72

顺⑦.zì繎。 发表于 2013-3-3 09:39
取消隐藏 将hidden 属性 改为 false就可以了

我的思路是：在先不保护工作表时，用代码隐藏行和列；在保护工作表时，还能进行上述操作。
                     保护工作表在后。