作者：绿色风
分类：
时间：2022-08-17
浏览：98
楼主
omnw |
Q:如何通过鼠标点击单元格实现数据显示与隐藏？
A:这里讲的“隐藏”只是在视觉上看不到数值而已，单元格中存放的数据并没有隐藏或者删除。
通过将字体颜色设置成与单元格的填充色的办法，实现数值的隐藏。要显示数值则恢复字体的颜色为“黑色”。
使用工作表的SelectionChange事件，通过设置字体的颜色为单元格填充色或黑色，来实现数值的隐藏与显示。- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Count = 1 Then
- If Target.Interior.Color = Target.Font.Color Then
- Target.Font.Color = 0 '恢复字体颜色为“黑色”
- Else
- Target.Font.Color = Target.Interior.Color '设置字体的颜色与单元格填充色一致
- End If
- End If
- End Sub
还可以通过设置单元格的数字格式为“;;;”来实现数值的隐藏。只是这样的代码会破坏单元格数字的格式，可能会影响显示效果。- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Count = 1 Then
- If Target.NumberFormatLocal = ";;;" Then
- Target.NumberFormatLocal = "G/通用格式"
- Else
- Target.NumberFormatLocal = ";;;"
- End If
- End If
- End Sub
 如何通过鼠标点击单元格实现数据显示与隐藏.rar
 该帖已经同步到 |
2楼
q6co |
谢谢分享，8客气，收了！ |
3楼
悠悠雨 |
这个好玩的，收藏了 |
4楼
飞鱼不语 |
07的excel是不是又选项可以直接隐藏单元格里的内容啊？
我是说不是通过在字体颜色处选择和单元格背景颜色一致的方法。
见人这样用过，但不太清楚是点击的那个地方~ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一