易表在线答疑技术与交流用户社区 → [求助]怎样更正公式


  共有10468人关注过本帖树形打印复制链接

主题:[求助]怎样更正公式

帅哥哟,离线,有人找我吗?
wusim
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
[求助]怎样更正公式  发帖心情 Post By:2011/12/31 19:23:00 [只看该作者]

DelFile("c:\复检.xls") And ClearGrid(GridName) And Eval("AppendRows(""原表"",""序号"",""="","""+Substitute([%筛选内容%],".",""") And AppendRows(""原表"",""序号"",""="",""")+""")") And AppendRows("原表","序号","=","69") And If([序号] < 42,DelFor("筛选表","序号","=",69),"") And AppendRows("原表","序号","=","70") And DelRow(GridName,1) And DelFile("C:\复检.xls") And ExportDBFile("C:\复检.xls",6,"筛选表") And ExportDBFile("c:\复检.xls",6,"筛选表") And Run("c:\复检.xls")
我要筛选符合的数据,当序号小于42时,要示删除序号69项, 否则不删除。

-=-=-=- 以下内容由 wusim2011年12月31日 07:28pm 时添加 -=-=-=-
能不能做到复制B2 、C2 两列至以下空白的区域 我最后的目的就是复制这个区域

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2011/12/31 19:31:00 [只看该作者]

密码为空

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2011/12/31 19:32:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2011/12/31 20:04:00 [只看该作者]

“能不能做到复制B2 、C2 两列至以下空白的区域 我最后的目的就是复制这个区域”
-------------------------------------------------------------------
没有看懂啊!
1、B2 、C2 两列在哪里?
2、哪个表的哪个列?复制到哪个表?哪里?

-=-=-=- 以下内容由 wjq10722011年12月31日 08:26pm 时添加 -=-=-=-
是不是想把原表中本表没有的数据行追加到本表以下空白行的下面?

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2011/12/31 21:32:00 [只看该作者]

按筛选后会在以C:盘产生复检.xls 文件 截图中就是我想复制的区域。我做这个软件就是想把这个区域复制到粘帖板中就可以了。 文件就在第三楼

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2011/12/31 21:34:00 [只看该作者]

 
截图

-=-=-=- 以下内容由 wusim2011年12月31日 09:38pm 时添加 -=-=-=-
上图的例子中 是输入了1.2.3.42后按筛选就会在C盘产生复检文件了,但是序号有大于41的行,就要求产生多一项69项。可不可以不产生复检.xls文件夹,直接复制我以上被选择的区域。

-=-=-=- 以下内容由 wusim2011年12月31日 09:42pm 时添加 -=-=-=-
以下空白是最后一项了,要不要增加原表序号69项主要是看我想筛选的项目有没有大于41的项目

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2011/12/31 22:01:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2012/1/2 16:29:00 [只看该作者]

ClearGrid(GridName) And Eval("AppendRows(""原表"",""序号"",""="","""+Substitute([%筛选内容%],".",""") And AppendRows(""原表"",""序号"",""="",""")+""")") And DelRow(GridName,1) And If(MaxFor(GridName,"序号") > 41,AppendRows("原表","序号","=",69),"") And AddRow(GridName,"内容","以下空白") And DelFile("c:\复检.xls") And ExportDBFile("c:\复检.xls",6,"筛选表") And Run("c:\复检.xls")

 回到顶部
帅哥哟,离线,有人找我吗?
wusim
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:73 积分:171 威望:0 精华:0 注册:2007/12/13 13:11:00
  发帖心情 Post By:2012/1/3 22:04:00 [只看该作者]

公式通过了,谢谢!如果大于69项不用增加69项怎样写

-=-=-=- 以下内容由 wusim2012年01月03日 10:25pm 时添加 -=-=-=-
公式通过了,谢谢!如果同时序号大于41项且又有序号大于69项的要增加69项 但是序号小于41项且又有序号大于69项的就不用增加69项,请问怎样改这个公式?需不需要增加序号69项主要看是否输入了序号42至65。


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2012/1/4 9:13:00 [只看该作者]

“需不需要增加序号69项主要看是否输入了序号42至65。”

ClearGrid(GridName) And Eval("AppendRows(""原表"",""序号"",""="","""+Substitute([%筛选内容%],".",""") And AppendRows(""原表"",""序号"",""="",""")+""")") And DelRow(GridName,1) And If(MaxFor(GridName,"序号") > 41 And MaxFor(GridName,"序号") < 66,AppendRows("原表","序号","=",69),"") And AddRow(GridName,"内容","以下空白") And DelFile("c:\复检.xls") And ExportDBFile("c:\复检.xls",6,"筛选表") And Run("c:\复检.xls")

-=-=-=- 以下内容由 wjq10722012年01月04日 09:16am 时添加 -=-=-=-
“如果同时序号大于41项且又有序号大于69项的要增加69项”
“需不需要增加序号69项主要看是否输入了序号42至65。”
这个两句话是不一样的!

-=-=-=- 以下内容由 wjq10722012年01月04日 09:17am 时添加 -=-=-=-
提问必须表达精准!


 回到顶部
总数 11 1 2 下一页