- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 一个按钮实现指定列的单元格清空 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24804)
-- 发布时间：2012/10/23 18:30:00
-- 一个按钮实现指定列的单元格清空
请教一下，窗口中怎么设置按钮代码，让它清空指定的列，但是列之间的运算保留，只是单元格的内容清空，可以实现吗？
-- 发布时间：2012/10/23 19:17:00
--
楼主：按扭的代码可以设置成
With Tables("表A")
For Each r As Row In .Rows
r(.colsel) =Nothing
Next
End With
这样可以清除列中的数据，但不会影响列中的公式
-- 发布时间：2012/10/23 19:26:00
--
当然可以 不过从你问的问题来看 还是先看看帮助吧
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/10/23 19:28:00
--
但是，我不要全部列都清空，比如只要清空“年休”和“补休”的列呢？
-- 发布时间：2012/10/24 9:41:00
--
二楼的代码是删除你选择的列，你试试。不然代码改成这样
Dim cols() As String = {"年休", "补休"}
With Tables("表A")
For Each r As Row In .Rows
For Each c As String In cols
r(c) = Nothing
Next
Next
End With
-- 发布时间：2012/10/27 10:50:00
--
这个代码就是我想要的，真是太感谢了！很好用！