Верните точки в свои сообщения.]]>
if (event = "SheetActivate")
{
Global NewSelection := ""
Global Selection := oExcel.Selection.address
}
if (event = "SheetSelectionChange")
{
if (NewSelection != "")
Global Selection := NewSelection
Global NewSelection := oExcel.Selection.address
}
}А как эксел поймет, что вы решили переключаться, а не выделить ячейуи?
Так же как у вас - перехватить ЛКМ, потом симулировать.
Этот код ошибку не вызывает и переключается, но и ячейка выделяется всегда.
А я думал в направлении запрета в экселе выделять ячейки на момент переключения, а потом разрешать
А как эксел поймет, что вы решили переключаться, а не выделить ячейуи?
А так?
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
}
}Вообщем работает, но не стабильно - во первых заметил, когда скрипт запущен и загрузить эксел, то нормал (перелючает листы и ячейку не выбирает), а если выйти и зайти снова в эксел, то выбирает, пока не перегрузить скрипт. Во вторых на строке oExcel.range(Selection).select() частенько выдает ошибку 0x80010001 - вызов отклонен или 0x800A03EC - Source, Description, HelpFile (null)
]]>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Нашел старую мышь с этими кнопками - проверил всё работает. Был момент когда не работало, но потом вдруг заработало. Загадка какая-то... не работала именно команда "send".
Не работает, по разному пробывал и ни разу, только если ХБ1 поменять.
А у вас ячейка в экселе что ли по отжатию левой кнопки мыши выделяется?
Нет, как только нажал и держишь ЛБ, перед нажатием ХБ1, ячейка уже выбралась((. Если держать ЛБ а ХБ1 кликать, то листы меняются и ячейки конечно не выбираются, и как отпустишь ЛБ тоже не выбирается. Но вот на том, начальном листе, откуда начали менять, т.е. там где нажали ЛБ там ячейка изменилась.
И этот код тоже выбирает ячейку.
Вопрос с невыбором ячейки по ЛКМ остался открытым
А у вас ячейка в экселе что ли по отжатию левой кнопки мыши выделяется?
Можно еще так попробовать:
#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И еще: if trig:=!trig означает - если значение переменной trig противоположно предыдущему значению trig то... Так?
]]>#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
Также спасибо всем форумчанам кто отозвался и помог с решением о переключении листов, Malcevу особенно.
Вопрос с невыбором ячейки по ЛКМ остался открытым. Буду что-то пробывать...
]]>#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Вообще вот этот код:
~LButton & ~XButton1::
~LButton & ~XButton2::
Return
в скрипте 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У меня ячейка не выбирается.
]]>