分享一段Excel思路

2024-05-12 29 0

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

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

实现效果:

填写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

本站文章均由用户上传或转载而来,该文章内容本站无法检测是否存在侵权,如果本文存在侵权,请联系邮箱:2287318951@qq.com告知,本站在7天内对其进行处理。

相关推荐

发布评论