[已解决]单元格有值，如何实现点击显示与隐藏

imuv

请教：
单元格有值，如何实现点击显示与隐藏
点目标单元格时，显示单元格值，
再点目标单元格时，显示单元格值隐退，
谢谢！！！

最佳答案

月排行榜 / 总排行榜

liuguansky

2012-2-24 09:21

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 1 Then
   
3.         Dim r As Range
   
4.         For Each r In Target
   
5.             If r.NumberFormatLocal <> ";;;" Then
   
6.                 r.NumberFormatLocal = ";;;"
   
7.             Else
   
8.                 r.NumberFormatLocal = "G/通用格式"
   
9.             End If
   
10.         Next
    
11.     End If
    
12. End Sub
    
13. 
    

复制代码

是这样的效果吧？

新建 Microsoft Excel 97-2003 工作表.rar (8.34 KB, 下载次数: 48)

2012-2-24 09:21 上传

点击文件名下载附件

跳转到最佳答案楼层

liuguansky

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 1 Then
   
3.         Dim r As Range
   
4.         For Each r In Target
   
5.             If r.NumberFormatLocal <> ";;;" Then
   
6.                 r.NumberFormatLocal = ";;;"
   
7.             Else
   
8.                 r.NumberFormatLocal = "G/通用格式"
   
9.             End If
   
10.         Next
    
11.     End If
    
12. End Sub
    
13. 
    

复制代码

是这样的效果吧？

新建 Microsoft Excel 97-2003 工作表.rar (8.34 KB, 下载次数: 48)

2012-2-24 09:21 上传

点击文件名下载附件

laoda1228

我弱弱的问个问题，  点击然后 隐藏了单元个，  如何点击隐藏单元格呢？

imuv

liuguansky 发表于 2012-2-24 09:21
是这样的效果吧？

版主:
请教：为何换行，换表,换Excel2007就不能用呢？
如何操作？
谢谢！
麻烦啦！