为表间制作一个“清空数据按钮”？(已经解决）

immi5299 · 发表于 2011-2-4 22:08

我为财务设计了一套结算表，但是因为字表较多，涉及的单元格也多，想制作一个清空数据的按钮，指定清空蓝色区域的数据，这样一来也完善了，谢谢高手指教，想了半天也没弄好！
还有，此文件特大，有什么办法能压缩一点，实在是打开很卡的！

[ 本帖最后由 immi5299 于 2011-2-5 00:57 编辑 ]

lisan · 发表于 2011-2-4 22:28

现在正好有点事，没空帮你弄，给你个代码，你自己试看看，或者等高手帮你。

Sub 单击()
Range("个体!$C$6:$D$3000").Select
Selection.ClearContents
Range("个体!$H$6:$H$3000").Select
Selection.ClearContents
End Sub

复制代码

[ 本帖最后由 lisan 于 2011-2-4 22:30 编辑 ]

immi5299 · 发表于 2011-2-4 22:56

谢谢啊，问题是L6:M3000，Q6:Q3000的怎么清除?

immi5299 · 发表于 2011-2-4 23:18

另外，我需要补充下，我希望达到的是一个按钮清除所有字表的蓝色区域数据，谢谢啊

immi5299 · 发表于 2011-2-5 00:56

谢谢，已经改好了！！自己解决了，发布下完美版

lsqkim · 发表于 2011-5-18 12:16

		自动登录	找回密码
密码			免费注册

[求助] 为表间制作一个“清空数据按钮”？(已经解决）

评分