AHK快捷键（3）——以列表方式切换Sheet
创作者俱乐部成员
这次增加了一个快捷键Win+z，弹出一个对话框，里面列出了当前文件的所有Sheets名，双击切换到那个sheet，代码很短，功能十分简陋，该怎么优化，想听听大家的意见
如果您有类似快捷键的需求，或者对现有功能不满意，请回帖说明，我会尽快更新😁
使用方法在我第一个ahk帖子里
| 💡 | #Requires AutoHotkey v2.0 #SingleInstance Force GetWPS() { try { return ComObjActive("Ket.Application") } catch { MsgBox "等待COM注册", , "0 T0.6" return ComObjActive("Ket.Application") } } ; WPS #HotIf WinActive("ahk_exe wps.exe") MButton:: { A_Clipboard := A_Clipboard ClipWait 0.1 SendEvent "{LButton}^v" } XButton1:: { Send "!;" et := GetWPS() A_Clipboard := et.WorksheetFunction.Sum(et.Selection) ClipWait 0.1 et := "" ToolTip "Sum: " . A_Clipboard SetTimer () => ToolTip(), -1000 } XButton2:: { et := GetWPS() n := et.WorksheetFunction.Sum(et.Selection) et.Selection.Merge et.Selection.Value2 := n et := "" } #z:: { MyGui := Gui() LB := MyGui.Add("ListBox", "r50 w200") LB.OnEvent("DoubleClick", ActSht) et := GetWPS() shts := et.ActiveWorkbook.Sheets Loop shts.Count { LB.Add([shts[A_Index].Name]) } MyGui.OnEvent("Close", MyGui_Close) MyGui.Show MyGui_Close(*) { et := "" } ActSht(*) { shts[LB.Text].Select } } #HotIf |
更新的代码可以从网址https://gitee.com/wanghan519/ahk4wps得到
发行版里不定时更新打包成exe的版本，下载解压即可使用
