Серый форум — AHK: hotkey для переключения листов в Excel

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

null@example.com (ypppu) — Fri, 10 Jun 2016 15:32:04 +0000

dumper09, Ваши смайлики поедают точки.

Верните точки в свои сообщения.

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

null@example.com (Malcev) — Fri, 10 Jun 2016 13:32:08 +0000

Странно.
У меня на 2016 работает.
Надо проверять с помощью msgbox где затык.
Чему равен first после Send, {LButton Up}.
Чему равен Selection.
Отлавливаются ли события тут:

           if (event = "SheetActivate")
           {
              Global NewSelection := ""
              Global Selection := oExcel.Selection.address
           }
           if (event = "SheetSelectionChange")
           {
              if (NewSelection != "")
                 Global Selection := NewSelection
              Global NewSelection := oExcel.Selection.address
           }
        }

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

null@example.com (dumper09) — Fri, 10 Jun 2016 13:14:12 +0000

Malcev пишет:

А как эксел поймет, что вы решили переключаться, а не выделить ячейуи?

Так же как у вас - перехватить ЛКМ, потом симулировать.
Этот код ошибку не вызывает и переключается, но и ячейка выделяется всегда.

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

null@example.com (Malcev) — Fri, 10 Jun 2016 10:36:30 +0000

А я думал в направлении запрета в экселе выделять ячейки на момент переключения, а потом разрешать

А как эксел поймет, что вы решили переключаться, а не выделить ячейуи?
А так?

ComObjError(false)
Global oExcel := ComObjActive("Excel.Application")
ComObjConnect(oExcel, new Workbook_Events)                      ; Connect to the workbooks's events
#If WinActive("ahk_class XLMAIN") and GetKeyState("LButton", "P")
~LButton::
first := 1
return

XButton1::
XButton2::
Send, {LButton Up}
if (first = 1)
{
   oExcel.range(Selection).select()
   first = 0
}
If (A_ThisHotkey = "XButton1")
   Send, ^{PgUp}
else
   Send, ^{PgDn}
return
#If


class Workbook_Events
{
    __Call(Event, Args*)
    {
        static EventList                         ; List of recent events that are not implemented
		if (IsFunc(this[Event]))           ; If there is a method defined for this event, call it
			this[Event].Call(Args)
		else                              ; Else display EventList and add this event to the list
        {
           if (event = "SheetActivate")
           {
              Global NewSelection := ""
              Global Selection := oExcel.Selection.address
           }
           if (event = "SheetSelectionChange")
           {
              if (NewSelection != "")
                 Global Selection := NewSelection
              Global NewSelection := oExcel.Selection.address
           }
        }
    }
    BeforeClose(Cancel, wkb)
    {
        ; Reference: 
        ; https://autohotkey.com/board/topic/69847-com-events-using-byref-parms/?p=442260
        OldValue := NumGet(ComObjValue(Cancel), 0, "Short")    ; Get "cancel" value. Bool=2 bytes
        NumPut(-1, ComObjValue(Cancel), "Short")                 ; Change value. -1 is True in VB
        NewValue := NumGet(ComObjValue(Cancel), 0, "Short")              ; Get new "cancel" value
        TrayTip, Blocked, % "Old value: " OldValue "`nNew value: " NewValue
    }
}

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

null@example.com (dumper09) — Fri, 10 Jun 2016 10:23:17 +0000

Malcev да, так уже лучше) А я думал в направлении запрета в экселе выделять ячейки на момент переключения, а потом разрешать... У вас я так понял момент ЛКМ перехватывается, запоминается адрес ячейки и дальше сендами делаем клик, а после ХБ восстанавливаем этот адрес и перекл.лист, да? А что за ComObjError(false) - откл.ошибки?

Вообщем работает, но не стабильно - во первых заметил, когда скрипт запущен и загрузить эксел, то нормал (перелючает листы и ячейку не выбирает), а если выйти и зайти снова в эксел, то выбирает, пока не перегрузить скрипт. Во вторых на строке oExcel.range(Selection).select() частенько выдает ошибку 0x80010001 - вызов отклонен или 0x800A03EC - Source, Description, HelpFile (null)

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

null@example.com (Malcev) — Fri, 10 Jun 2016 07:00:31 +0000

Можно так еще попробовать:

ComObjError(false)
#If WinActive("ahk_class XLMAIN")
LButton::
oExcel := ComObjActive("Excel.Application")
if (oExcel.Selection.address != "")
   Selection := oExcel.Selection.address
Send {LButton down}
first := 1
keyWait LButton
Send {LButton up}
return
#If

#If WinActive("ahk_class XLMAIN") and GetKeyState("LButton", "P")
XButton1::
Send, {LButton Up}
if (first = 1)
{
   oExcel.range(Selection).select()
   first = 0
}
Send, ^{PgUp}
return

XButton2::
Send, {LButton Up}
if (first = 1)
{
   oExcel.range(Selection).select()
   first = 0
}
Send, ^{PgDn}
return
#If

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

null@example.com (dumper09) — Thu, 09 Jun 2016 21:47:08 +0000

Alectric пишет:

Нашел старую мышь с этими кнопками - проверил всё работает. Был момент когда не работало, но потом вдруг заработало. Загадка какая-то... не работала именно команда "send".

Не работает, по разному пробывал и ни разу, только если ХБ1 поменять.

Malcev пишет:

А у вас ячейка в экселе что ли по отжатию левой кнопки мыши выделяется?

Нет, как только нажал и держишь ЛБ, перед нажатием ХБ1, ячейка уже выбралась((. Если держать ЛБ а ХБ1 кликать, то листы меняются и ячейки конечно не выбираются, и как отпустишь ЛБ тоже не выбирается. Но вот на том, начальном листе, откуда начали менять, т.е. там где нажали ЛБ там ячейка изменилась.
И этот код тоже выбирает ячейку.

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

null@example.com (Malcev) — Thu, 09 Jun 2016 13:19:22 +0000

Вопрос с невыбором ячейки по ЛКМ остался открытым

А у вас ячейка в экселе что ли по отжатию левой кнопки мыши выделяется?
Можно еще так попробовать:

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

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

null@example.com (Alectric) — Thu, 09 Jun 2016 07:33:36 +0000

Нашел старую мышь с этими кнопками - проверил всё работает. Был момент когда не работало, но потом вдруг заработало. Загадка какая-то... не работала именно команда "send".
Про "trig": сначала выполняется присвоение "trig:=!trig" (переменной присваивается инверсное значение, т.е. "true", т.к. до присвоения переменная равна "false"); затем проверяется условие "if" на "true/false". При втором нажатии значение переменной уже равно "true" и меняется на "false", "if" не выполняется по этому выполняется "else".

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

null@example.com (dumper09) — Wed, 08 Jun 2016 18:31:14 +0000

Alectric задумка интересная на жест мышки повесить, но ... не переключает так листы (тестировал конечно без своего скрипта, чисто ваш). Если заменить ХБ1 на ЛБ то переключает, прикольно. Но тогда ЛКМ конечно пропадает.

И еще: if trig:=!trig означает - если значение переменной trig противоположно предыдущему значению trig то... Так?

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

null@example.com (Alectric) — Wed, 08 Jun 2016 12:28:55 +0000

Зажать XButton1 и водить мышкой влево\вправо - переключение листов; нажать XButton2 - свернуть окно, еще раз - развернуть.

#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



Re: AHK: hotkey для переключения листов в Excel
null@example.com (dumper09) — Wed, 08 Jun 2016 10:50:16 +0000
Malcev так напрямую работать не будет - дублирование, т.к. на ХБаттоны уже ранее завязаны Minimize/Restore. Я к if... добавил else и собрал все в одну конструкцию. Так работает, спасибо за наводку.
Также спасибо всем форумчанам кто отозвался и помог с решением о переключении листов, Malcevу особенно.
Вопрос с невыбором ячейки по ЛКМ остался открытым. Буду что-то пробывать...


Re: AHK: hotkey для переключения листов в Excel
null@example.com (Malcev) — Tue, 07 Jun 2016 20:39:24 +0000
#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


Re: AHK: hotkey для переключения листов в Excel
null@example.com (dumper09) — Tue, 07 Jun 2016 19:27:19 +0000
Странно, даже без ~LButton & ~XButton1:: ... (листы конечно начали перелючаться), ячейка все равно выбирается. У меня правда Excel2010... Но, ведь тогда не работает Вперед\Назад. 
Вообще вот этот код:

~LButton & ~XButton1::
~LButton & ~XButton2::
Return
в скрипте 10 можно заменить другим, чтобы работали Вперед\Назад (и не отвалились остальные хоткеи с экселем)?


Re: AHK: hotkey для переключения листов в Excel
null@example.com (Malcev) — Tue, 07 Jun 2016 16:38:51 +0000
Тогда не знаю.
Так как этот код у меня работает исправно на Win7+ excel 2016.
Предыдущий я тестировал на Win10+excel 2016.
Если вы его вставляете в 10 пост, то это надо убрать:
~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
У меня ячейка не выбирается.