Excel精英培训网

 找回密码
 注册
    点击某处
    lingyuncelia1 2016-6-9 17:50
    x = 264 y = 885 Call celia(x, y) x=390 y=880 Call celia(x,y) Sub celia(x, y) MoveTo x, y Delay 500 LeftClick 1 Delay 500 End Sub
    476 次阅读|0 个评论
    复制
    lingyuncelia1 2016-6-9 10:21
    Sub celia() For j = 2 To 4 For i = 1 To 10 lastrow = Range("a65536").End(xlUp).Row + 1 Cells(i, j).Copy Range("a" lastrow) Next Next End Sub
    5066 次阅读|0 个评论
    循环输入
    lingyuncelia1 2016-6-9 10:09
    text = Plugin.File.ReadFileEx("C:\Users\haier\Desktop\1.txt") arr = split(text, "|") For i = 0 To 41 Step 10 Delay 100 SayString arr(i) Delay 500 KeyPress "Enter", 1 SayString arr(i+1) Delay 500 KeyPress "Enter", 1 SayString arr(i + 6) KeyPress "Enter", 1 Next Sub celia(i) text = Pl ...
    595 次阅读|0 个评论
    Word 2013商业文档排版技巧精讲视频课程
    让往事随风 2016-6-2 18:13
    MicrosoftOfficeWord2013 以全新的用户界面,向用户提供了一组功能全面的文档编辑工具,进而协助用户创建具备专业水准的文档。本课程将从四个部分讲解 Word2013 在商业文档排版中的应用:基础部分,形象化表达,长文档排版,辅助功能。 1 、基础部分:让您快速了解 Word2013 最常用的最特性、内容添加及选择技 ...
    955 次阅读|1 个评论
    Celia
    lingyuncelia1 2016-5-29 20:51
    Call Plugin.msg.tips("Celia") Call Plugin.msg.ShowScrTXT(0, 0, 1024, 100, "Celia", "0000FF") Delay 10000 Call plugin.msg.HideScrTXT()
    505 次阅读|0 个评论
    自动读取记事本内容到某网页
    lingyuncelia1 2016-5-29 16:50
    Do If Hour(now) = 16 and Minute(now) = 50 then For i = 0 To 19 MoveTo 800, 350 //iCIBA搜词框 LeftClick 1 KeyDown 17, 1 //Ctrl+A KeyPress 65, 1 KeyUp 17, 1 KeyPress "Delete", 1 Text1 = Plugin.File.ReadFileEx("C:\Users\haier\Desktop\1.txt") arr = split(Text1, "|") SayString arr(i) Delay 5 ...
    521 次阅读|0 个评论
    do something on time
    lingyuncelia1 2016-5-29 09:08
    Do while Hour(now) =16 and Minute(now) =17 //运行时是16:17才有效 MsgBox "times up" exit do //运行一次即退 Loop Do while Hour(now) 16or Minute(now) 17 Delay 200 Loop TracePrint "times up" Do until Hour(now) = 16 and Minute(now) = ...
    635 次阅读|0 个评论
    可以引用EXCEL数据,简写脚本吗?
    lingyuncelia1 2016-5-23 20:52
    网址: http://202.105.30.26:8088/opac/servlet/opac.go 以下是我写的脚本,红体字是引用EXCEL里的数据,这个脚本可以简写吗?可以让按键精灵引用EXCEL数据,无须写得如此长吗? 类似VBA里面的数组之类,或FOR NEXT之类。 ProcessID = Plugin.Web.Bind("WQM.exe") Delay 500 Call Plugin.Web.HtmlS ...
    1012 次阅读|0 个评论
    不变的网页元素属性--Name
    lingyuncelia1 2016-5-22 21:53
    ProcessID=Plugin.Web.Bind("WQM.exe") Delay 500 If ProcessID=0 then MessageBox "网页按键精灵没有运行" EndScript End If Call Plugin.Web.Tips("脚本开始运行") Call Plugin.Web.SetSize(1600,916) Call Plugin.Web.Go(" http://www.excelpx.com/home.php?mod=spacecpac=profile ") Call Plugin.Web ...
    540 次阅读|0 个评论
    网页元素--多变的特征码
    lingyuncelia1 2016-5-21 17:13
    ProcessID=Plugin.Web.Bind("WQM.exe") Delay 500 If ProcessID=0 then MessageBox "网页按键精灵没有运行" EndScript End If Call Plugin.Web.Tips("脚本开始运行") Call Plugin.Web.SetSize(1600,916) Call Plugin.Web.Go("http://www.excelpx.com/home.php?mod=spacecpac=profile") Call Plugin. ...
    482 次阅读|0 个评论

    小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

    GMT+8, 2024-6-17 02:27 , Processed in 0.639935 second(s), 2 queries , Gzip On, Yac On.

    Powered by Discuz! X3.4

    Copyright © 2001-2020, Tencent Cloud.

    返回顶部