Code: Select all
^w:: ;
IfWinExist, Для Т 2021.xls
{
WinActivate, Для Т 2021.xls
}
Sleep 1000
Send {Altdown}{Tab}{Altup}
Is there a way to solve the problem or at least detour it?
Code: Select all
^w:: ;
IfWinExist, Для Т 2021.xls
{
WinActivate, Для Т 2021.xls
}
Sleep 1000
Send {Altdown}{Tab}{Altup}
Code: Select all
F3::
Send !{Tab}
KeyWait, %A_ThisHotkey%
Return
Code: Select all
^w:: ;
IfWinExist, Для Т 2021.xls
{
WinActivate, Для Т 2021.xls
}
else,
{
MsgBox, Nope
}
Sleep 1000
Send {Altdown}{Tab}{Altup}
Code: Select all
^w:: ;
IfWinExist, Для Т 2021.xls
{
WinActivate, Для Т 2021.xls
}
else,
{
WinActivate, Microsoft Excel - Для Т 2021.xls
}
Sleep 1000
Send {Altdown}{Tab}{Altup}
Code: Select all
GroupAdd, xl, ahk_exe EXCEL.exe
^w::GroupActivate, xl, R
Code: Select all
#IfWinExist ahk_exe EXCEL.exe
F3::
WinActivate
; Do some stuff
WinMinimize
Return
#IfWinExist
Code: Select all
WinMinimize
Code: Select all
WinMinimize, A
Code: Select all
^w:: ;
IfWinExist, Для Т 2021.xls
{
WinActivate, Для Т 2021.xls
Send, {Esc}
}
else,
{
WinActivate, Microsoft Excel - Для Т 2021.xls
Send, {Esc}
}
Sleep, 100
Send {F9}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send A3 ; номер нужной ячейки (пол)
Send, {Enter}
Sleep 100
Send, {F2} ; вход в ячейку
Send {Shiftdown}{Left}{Shiftup}
Send {controldown}c{controlup}
Send, {Esc}
sleep 100
WinMinimize, A ; Внимание!
Sleep 100
Send, ^f
Send, Пол (м/ж)
sleep 100
Send, {Enter}
sleep 100
Send, {Esc}
sleep 100
Send {Right 2}
Sleep 100
Send {Shiftdown}{Right}{Shiftup}
SendInput ^v ; Вставка блока (пол)
Send, {Right}
sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send D17 ; номер нужной ячейки
Send {Enter}
Send {Shiftdown}{Down 5}{Right 2}{Shiftup}
sleep 100
Send {controldown}c{controlup}
sleep 100
Send {Altdown}{Tab}{Altup}
Sleep 100
Send, ^f
Sleep 100
Send, Физическая динамическая нагрузка
sleep 100
Send, {Enter}
sleep 100
Send, {Esc}
sleep 100
Send {Down 3}
sleep 100
Send {Altdown}{Home}{Altup}
sleep 100
Send {Shiftdown}{Altdown}{End}{PgDn}{Altup}{Shiftup} ; выделяет таблицу (с текущей ячейки) до конца
sleep 100
Send {Del}
sleep 100
Send {Right 4}
sleep 100
Send {Enter}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
sleep 100
Send {Home}{Up}
sleep 100
Send {Shiftdown}{Down 5}{Right 2}{Shiftup}
sleep 100
SendInput ^v ; Вставка первого блока
Sleep 100
Send, {Down}
Sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send H17 ; номер нужной ячейки
Send {Enter}
Send {Shiftdown}{Down 5}{Right 2}{Shiftup}
sleep 100
Send {controldown}c{controlup}
Send {Altdown}{Tab}{Altup}
Sleep 100
Send, ^f
Send, Масса поднимаемого и перемещаемого груза вручную
Sleep 100
Send, {Enter}
Sleep 100
Send, {Esc}
Send, {Down 5}
Send {Altdown}{Home}{Altup}
sleep 100
Send {Shiftdown}{Altdown}{End}{PgDn}{Altup}{Shiftup} ; выделяет таблицу (с текущей ячейки) до конца
Send {Del}
Send {Right 4}
Send {Enter}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Send {Home}{Up}
Send {Shiftdown}{Down 5}{Right 2}{Shiftup}
SendInput ^v ; Вставка второго блока
Sleep 100
Send {Down}
Sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send L17 ; номер нужной ячейки
Send {Enter}
Send {Shiftdown}{Down 5}{Right 3}{Shiftup}
sleep 100
Send {controldown}c{controlup}
Send {Altdown}{Tab}{Altup}
Sleep 100
Send, ^f
Send, Статическая нагрузка
Sleep 100
Send, {Enter}
Sleep 100
Send {Esc}
Send {Down 5}
Send {Altdown}{Home}{Altup}
sleep 100
Send {Shiftdown}{Altdown}{End}{PgDn}{Altup}{Shiftup} ; выделяет таблицу (с текущей ячейки) до конца
Send {Del}
Send {Right 5}
Send {Enter}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Send {Home}{Up}
Send {Shiftdown}{Down 5}{Right 3}{Shiftup}
SendInput ^v ; Вставка блока (стат. нагр.)
Sleep 100
Send {Right} ; тут иначе, надо бы и выше так же сделать, чтоб было одинаково, но лень
Sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send Q3 ; номер нужной ячейки (поза)
Send {Enter}
Send {Shiftdown}{Right 5}{Shiftup}
sleep 100
Send {controldown}c{controlup}
Send {Altdown}{Tab}{Altup}
Send, ^f
Send, Рабочая поза
Send, {Enter}
Sleep 100
Send {Esc}
Sleep 100
Send {Down 6}
Sleep 100
Send {Altdown}{Home}{Altup}
sleep 100
Send {Shiftdown}{Altdown}{End}{Altup}{Shiftup} ; выделяет строку (с текущей ячейки) до конца
Sleep 100
SendInput ^v ; Вставка блока (поза), в следующем нет поиска
Sleep 100
Send {Down}
Sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send Q17 ; номер нужной ячейки (наклоны)
Send {Enter}
Send {Shiftdown}{Down 4}{Right}{Shiftup}
sleep 100
Send {controldown}c{controlup}
Send {Altdown}{Tab}{Altup}
Send {Down 3}
Sleep 100
Send {Altdown}{Home}{Altup}
sleep 100
Send {Shiftdown}{Altdown}{End}{PgDn}{Altup}{Shiftup} ; выделяет таблицу (с текущей ячейки) до конца
Send {Del}
Send {Right 3}
Send {Enter}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {controldown}y{controlup}
Sleep 100
Send {Home}{Up}
Send {Shiftdown}{Down 4}{Right}{Shiftup}
SendInput ^v ; Вставка блока (наклоны)
Sleep 100
Send {Right} ; тут иначе, надо бы и выше так же сделать, чтоб было одинаково, но лень
Sleep 100
Send {Altdown}{Tab}{Altup}
Send, {F5} ; открывает окно перехода к ячейке
sleep 100
send T7 ; номер нужной ячейки (перемещения)
Send {Enter}
Send {Shiftdown}{Down 3}{Right 3}{Shiftup}
sleep 100
Send {controldown}c{controlup}
Send {Altdown}{Tab}{Altup}
Send, ^f
Send, - по горизонтали:
Send, {Enter}
Sleep 100
Send {Esc}
Sleep 1000
Send {Shiftdown}{Down 3}{Right 3}{Shiftup} ; Кажется, что "вправо" надо 4 раза нажать. Почему 3 - не понял.
SendInput ^v ; Вставка блока (перемещения)
Sleep 100
Send {Right}
Sleep 500
Code: Select all
n = 0
#IfWinExist Для Т 2021.xls ahk_exe EXCEL.exe
^w:: ; "I need a script that would switch to Excel, does some stuff there and return to previous window
; (which name could be different). Or, in a case Excel is active, does some stuff there and return
; to previous window."
If !WinActive()
WinActivate
Send % ++n "{Enter}"
Sleep, 50
WinMinimize
Return
#IfWinExist
Code: Select all
SetTitleMatchMode 2
IfWinExist, Для Т 2021
WinActivate, Для Т 2021