分享一段Excel思路

以下内容转载自按钮精灵开发者：瑞翔幽狼

感谢您的大力支持和分享精神！

实现效果：

填写Excel序列号

需要达到的效果1：逐步完成，第一次1-10，第二次1-20，第三次1-30

需要实现效果2：如果数量小于10，则必须完成为10。例如，最终序号为1完成2-10，最终序号为12完成13-20，最终序列号59与60相加。

需要实现效果1

PluginlxjOfficelxjExcelOpen'C:UsersAdministratorDesktop1xls',1

行号11

行号21

做

varvar10

福里1托瓦尔

TracePrint序列号为'i'，读取的行号为'行号1'

aPluginlxjOfficelxjExcelRead(1,行号1,1)

如果发''然后

退出做吧

万一

如果a''andinstr(a,i)>0则

PluginlxjOfficelxjExcelWrite2，行号2,1,a

bPluginlxjOfficelxjExcelRead(1,行号1,2)

PluginlxjOfficelxjExcelWrite2，行号2,2,b

TracePrint'代码不为空'b

cPluginlxjOfficelxjExcelRead(1,行号1,3)

PluginlxjOfficelxjExcelWrite2，行号2,3,c

dPluginlxjOfficelxjExcelRead(1,行号1,4)

PluginlxjOfficelxjExcelWrite2，行号2,4,d

ePluginlxjOfficelxjExcelRead(1,行号1,5)

PluginlxjOfficelxjExcelWrite2，行号2,5,e

行号1行号11

行号2行号21

如果不

TracePrint代码为空，或者数字不正确

PluginlxjOfficelxjExcelWrite2，行号2,1,i

行号2行号21

万一

延迟50

下一个

圆圈

SubOnScriptExit()

PluginlxjOfficelxjExcel关闭

最终子

需要实现效果2

PluginlxjOfficelxjExcelOpen'C:UsersAdministratorDesktop1xls',1

行号11

行号21

i1

做

做

TracePrint序列号为'i'，读取的行号为'行号1'

aPluginlxjOfficelxjExcelRead(1,行号1,1)

如果发''那么

退出脚本

万一

如果a''andinstr(a,i)>0则

PluginlxjOfficelxjExcelWrite2，行号2,1,a

bPluginlxjOfficelxjExcelRead(1,行号1,2)

PluginlxjOfficelxjExcelWrite2，行号2,2,b

TracePrint'代码不为空'b

cPluginlxjOfficelxjExcelRead(1,行号1,3)

PluginlxjOfficelxjExcelWrite2，行号2,3,c

dPluginlxjOfficelxjExcelRead(1,行号1,4)

PluginlxjOfficelxjExcelWrite2，行号2,4,d

ePluginlxjOfficelxjExcelRead(1,行号1,5)

PluginlxjOfficelxjExcelWrite2，行号2,5,e

行号1行号11

行号2行号21

如果不

TracePrint代码为空，或者数字不正确

PluginlxjOfficelxjExcelWrite2，行号2,1,i

行号2行号21

Ifimod100然后

i1

退出做吧

结尾如果

万一

ii1

延迟50

圆圈

圆圈

SubOnScriptExit()

PluginlxjOfficelxjExcel关闭

最终子

更多精彩内容请关注

微信公众号：按钮精灵公众号

按钮精灵论坛：bbsanjiancom