以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  清空当前行指定单元格 公式能简化一下吗? 【ok了！】  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2620)
--  作者：mr725
--  发布时间：2009/4/28 18:07:00
--  清空当前行指定单元格 公式能简化一下吗? 【ok了！】
currenttable.current("第一列") = ""
currenttable.current("第二列") = ""
currenttable.current("第三列") = ""
.....................
.....................
currenttable.current("第N列") = ""

十几二十列,排着占位置~ , 能简化一下吗?

另外,这里的 ""  换成 nothing 都可以达到一样的结果,他们有什么区别吗? 会影响什么吗?
[此贴子已经被作者于2009-4-28 23:39:21编辑过]
--  作者：don
--  发布时间：2009/4/28 18:12:00
--  
With currenttable
     for each c as col in .cols
           .current(c.name) = ""
     Next
end with
      
--  作者：mr725
--  发布时间：2009/4/28 18:29:00
--  
谢谢, 你这是要清空整行吧,  我是要清空该行指定的列的内容, 同一行中还有列的内容不删除的.

      .current(c."第一列","第二列","第六列") = ""  这样也不对呀
--  作者：don
--  发布时间：2009/4/28 18:35:00
--  

Dim T,cs() As string
T = "A,B,C,D,E,F,G,H,I,AA,DD,EE,EWWQ,RRF,"
T = T & "KK,WW,DDE,QQQ,XX,LL"
cs = T.split(",")


With currenttable
     for each T in cs
         .current(T) = ""
     Next
end with
--  作者：mr725
--  发布时间：2009/4/28 19:03:00
--  

谢谢,这样啊~  一楼纵向代码多行, 你这样的横向也不少啊 呵呵~  但比纵向多行好~
还有,就是这个:
T = T & "KK,WW,DDE,QQQ,XX,LL"  不知道是什么意思? 好像不用也可以........
--  作者：狐狸爸爸
--  发布时间：2009/4/28 22:01:00
--  
意思是太长，分两行赋值了。
--  作者：mr725
--  发布时间：2009/4/28 23:36:00
--  
以下是引用狐狸爸爸在2009-4-28 22:01:00的发言：
意思是太长，分两行赋值了。

哎呀，就这个呀，一说就明白了。 难怪上一行最后还留着逗号！～～  俺反应真慢啊～～～