; @Author  :   liuyuqi
; @Contact :   liuyuqi.gov@msn.cn
; @Time    :   2019/08/05 07:06:02
; @Version :   1.0
; @License :   (C)Copyright 2019 liuyuqi.
; @Desc    :   Shift+鼠标滚轮: Excel表格左右移动

#IfWinActive , ahk_exe EXCEL.EXE
    ~LShift & WheelUp::
        ControlGetFocus, fcontrol, A
        Loop 5
        ComObjActive("Excel.application").ActiveWindow.SmallScroll(0,0,0,1)
    Return

    ~LShift & WheelDown::
        ControlGetFocus, fcontrol, A
        Loop 5  ; <-- Increase or decrease this value to scroll faster or slower.
        ComObjActive("Excel.application").ActiveWindow.SmallScroll(0,0,1,0)
    Return
#IfWinActive