Question

按键精灵后台运行，由于工作的需要，想写一个后台运行的脚本，详情补充如下：

我想在一个程序中比如excel中一直按下键往下拖，当我去浏览网页或者聊QQ的时候，excel中的下键一直不停地往下拖，在网上现学现写了几段代码，但是运行的时候不能实现后台运行，当我鼠标点击其他地方的时候就停了。代码如下，请大神指教：
Hwnd = Plugin.Window.Find("XLMAIN", "工作簿1 * - WPS 表格")
HwndEx = Plugin.Window.FindEx(Hwnd, 0,0,0)
Call Plugin.Bkgnd.KeyPress(HwndEx, 40)

Answer 1

这种事情不用按键精灵，EXCEL的VBA就可以帮你做到，代码如下:

（VBA打开的的方式是在EXCEL中按Alt+F11呼出，然后点击sheet1会出来一个代码输入框，将下面的代码复制进去，然后点击运行）

Sub 自动滚屏()
    Dim i
    For i = 1 To Range("a1").End(xlDown).Row
        DoEvents
        ActiveSheet.Rows(i).Select
    Next i
End Sub