AHK: hotkey для переключения листов в Excel

#IfWinActive, ahk_class XLMAIN
LButton & XButton1::Send, ^{PgUp}
LButton & XButton2::Send, ^{PgDn}
Return

Sub PrevSheet()
  If ActiveSheet.Index = 1 Then _
  Worksheets(Worksheets.Count).Activate Else Worksheets(ActiveSheet.Index - 1).Activate
End Sub
Sub NextSheet()
  If Worksheets.Count = ActiveSheet.Index Then _
  Worksheets(1).Activate Else Worksheets(ActiveSheet.Index + 1).Activate
End Sub

#NoTrayIcon
#IfWinActive ahk_class XLMAIN
*$XButton1::^u
*$XButton2::^j

*$XButton1::^vk55
*$XButton2::^vk4A

; add back/forward to LButton+XButton1/2
~LButton & ~XButton1::
~LButton & ~XButton2::
Return

Menu, Tray, Icon, Shell32.Dll, 209
Menu, Tray, Tip, -=| My_System.Ahk |=-`nконтроль хоткеев и ДУ

;------------------------------------------------------
; add minimize All windows (as system key Win+M) to Win+PageDown
#PgDn::#m

;------------------------------------------------------
; add unminimize All windows to Win+PageUp
#PgUp::WinMinimizeAllUndo

;------------------------------------------------------
; add minimize Active window to Win+DownArrow or XButton1
#Down::
XButton1::
WinGet, MinMaxID, ID, A
WinGetClass, MinMaxClass, A
If MinMaxClass = BaseWindow_RootWnd
  MinMaxClass = Winamp v1.x
If MinMaxClass = Afx:400000:0:10011:1900010:0
  MinMaxClass = Maxthon2_Frame
If MinMaxClass = PSDocC
  MinMaxClass = Photoshop
WinMinimize, ahk_class %MinMaxClass%
Return

;------------------------------------------------------
; add restore last minimized window to Win+UpArrow or XButton2
#Up::
XButton2::
If MinMaxClass = Winamp v1.x
  WinActivate, ahk_class %MinMaxClass%
If MinMaxClass = Maxthon2_Frame
  WinActivate, ahk_class %MinMaxClass%
If MinMaxClass = Photoshop
  WinActivate, ahk_class %MinMaxClass%
Else
  {
  WinRestore, ahk_id %MinMaxID%
  WinActivate, ahk_id %MinMaxID%
  }
Return

;------------------------------------------------------
; add back/forward to LButton+XButton1/2
~LButton & ~XButton1::
~LButton & ~XButton2::
Return

;------------------------------------------------------
; add zoom in/out in running Photoshop to LButton+WheelUp/Down
#IfWinActive, ahk_class Photoshop
LButton & WheelUp::
#IfWinActive, ahk_class PSDocC
LButton & WheelUp::
Send, {Click Up}
Send, ^{NumpadAdd}
#IfWinActive
Return

#IfWinActive, ahk_class Photoshop
LButton & WheelDown::
#IfWinActive, ahk_class PSDocC
LButton & WheelDown::
Send, {Click Up}
Send, ^{NumpadSub}
#IfWinActive
Return

;------------------------------------------------------
; add change pages previous/next in running Excel to Shift+XButton1/2
#IfWinActive, ahk_class XLMAIN
LButton & XButton1::
Send, ^{PgUp}
;MsgBox, test - change previous page in book
#IfWinActive
Return

#IfWinActive, ahk_class XLMAIN
LButton & XButton2::
Send, ^{PgDn}
;MsgBox, test - change next page in book
#IfWinActive
Return

#Down::
XButton1::
WinGet, MinMaxID, ID, A
WinGetClass, MinMaxClass, A
WinMinimize, ahk_class %MinMaxClass%
Return

#Up::
XButton2::
WinRestore, ahk_id %MinMaxID%
WinActivate, ahk_id %MinMaxID%
Return

~LButton & ~XButton1::
~LButton & ~XButton2::
Return

#IfWinActive, ahk_class XLMAIN
LButton & XButton1::
Send, ^{PgUp}
;MsgBox, change to previous page!
#IfWinActive
Return

#IfWinActive, ahk_class XLMAIN
LButton & XButton2::
Send, ^{PgDn}
;MsgBox, change to next page!
#IfWinActive
Return

#IfWinActive, ahk_class XLMAIN

LButton & XButton1::
arr:=[]
try Xl := Excel_Get("A")
For sheet in xl.ActiveWorkbook.Worksheets
  arr.push(sheet.Name)
for i, e in arr
  if (e=Xl.Activesheet.name)
    s:=i, break
s++
if (s>arr.MaxIndex())
  s:=1
try Xl.Sheets(arr[s]).Select
ObjRelease(Xl)
return

LButton & XButton2::
arr:=[]
try Xl := Excel_Get("A")
For sheet in xl.ActiveWorkbook.Worksheets
  arr.push(sheet.Name)
for i, e in arr
  if (e=Xl.Activesheet.name)
    s:=i, break
s--
if (s<1)
  s:=arr.MaxIndex()
try Xl.Sheets(arr[s]).Select
ObjRelease(Xl)
return

#IfWinActive

Excel_Get(WinTitle="ahk_class XLMAIN", Excel7#=1) {
	WinGetClass, WinClass, %WinTitle%
	if (WinClass == "XLMAIN") {
		ControlGet, hwnd, hwnd, , Excel7%Excel7#%, %WinTitle%
    if Not ErrorLevel {
		window := Acc_ObjectFromWindow(hwnd, -16)
	if ComObjType(window) = 9
        while Not xl
			try xl := window.application
			catch e
		if SubStr(e.message,1,10) = "0x80010001"
			ControlSend, Excel7%Excel7#%, {Esc}, %WinTitle%
		else
			return "Error accessing the application object."
		}
	}
return xl
}

#include,acc.ahk

#If GetKeyState("LButton","P") and WinActive("ahk_class XLMAIN")

XButton1::
send,{lbutton up}
arr:=[]
try Xl := Excel_Get("A")
For sheet in xl.ActiveWorkbook.Worksheets
  arr.push(sheet.Name)
for i, e in arr
  if (e=Xl.Activesheet.name)
    s:=i, break
s++
if (s>arr.MaxIndex())
  s:=1
try Xl.Sheets(arr[s]).Select
ObjRelease(Xl)
return

XButton2::
send,{lbutton up}
arr:=[]
try Xl := Excel_Get("A")
For sheet in xl.ActiveWorkbook.Worksheets
  arr.push(sheet.Name)
for i, e in arr
  if (e=Xl.Activesheet.name)
    s:=i, break
s--
if (s<1)
  s:=arr.MaxIndex()
try Xl.Sheets(arr[s]).Select
ObjRelease(Xl)
return

#IfWinActive

Excel_Get(WinTitle="ahk_class XLMAIN", Excel7#=1) {
	WinGetClass, WinClass, %WinTitle%
	if (WinClass == "XLMAIN") {
		ControlGet, hwnd, hwnd, , Excel7%Excel7#%, %WinTitle%
    if Not ErrorLevel {
		window := Acc_ObjectFromWindow(hwnd, -16)
	if ComObjType(window) = 9
        while Not xl
			try xl := window.application
			catch e
		if SubStr(e.message,1,10) = "0x80010001"
			ControlSend, Excel7%Excel7#%, {Esc}, %WinTitle%
		else
			return "Error accessing the application object."
		}
	}
return xl
}

#IfWinActive, ahk_class XLMAIN
LButton & XButton1::
Send, {LButton Up}^{PgUp}
;MsgBox, change to previous page!
#IfWinActive
Return

#If WinActive("ahk_class XLMAIN") and GetKeyState("LButton", "P")
XButton1::
Send, {LButton Up}^{PgUp}
return
XButton2::
Send, {LButton Up}^{PgDn}
return
#If

~LButton & ~XButton1::
~LButton & ~XButton2::
Return

#If WinActive("ahk_class XLMAIN") and GetKeyState("LButton", "P")
XButton1::
Send, {LButton Up}^{PgUp}
return
XButton2::
Send, {LButton Up}^{PgDn}
return
#If

#Down::
XButton1::
WinGet, MinMaxID, ID, A
WinGetClass, MinMaxClass, A
WinMinimize, ahk_class %MinMaxClass%
Return

#Up::
XButton2::
WinRestore, ahk_id %MinMaxID%
WinActivate, ahk_id %MinMaxID%
Return

#If WinActive("ahk_class XLMAIN") and GetKeyState("LButton", "P")
XButton1::
Send, {LButton Up}^{PgUp}
return
XButton2::
Send, {LButton Up}^{PgDn}
return
#If

XButton1::
if GetKeyState("LButton", "P")
   Send, {XButton1}
return
XButton2::
if GetKeyState("LButton", "P")
   Send, {XButton2}
return

#If WinActive("ahk_class XLMAIN")

XButton1::
mousegetpos,sx
while,GetKeyState("XButton1","P")
{
  sleep,100
  mousegetpos,x

  if (abs(sx-x)>a_screenwidth/8)
  {
    if (sx>x)
      Send,^{PgUp}
    else if (sx<x)
      send,^{PgDn}
    sx:=x
  }
;  tooltip,% sx "`t" x "`n" sy "`t" y
}
return

#If

#Up::
XButton2::
if trig:=!trig
{
  WinGet, MinMaxID, ID, A
  WinGetClass, MinMaxClass, A
  WinMinimize, ahk_class %MinMaxClass%
}
else
{
  WinRestore, ahk_id %MinMaxID%
  WinActivate, ahk_id %MinMaxID%
}
Return