[已解决]同时选择多行。

kmcla

望帝春心 发表于 2017-1-12 18:36
按F8一步一步去调试吧

Else　　　下面
Set rng = Rows(arr(i))
应该就是这句默认为第一行了，这句又不能去掉

kmcla

kmcla 发表于 2017-1-12 19:11
Else　　　下面
Set rng = Rows(arr(i))
应该就是这句默认为第一行了，这句又不能去掉

不是上一句，还是这句
Set Rng = Union(Rng, Rows(a(i) + 1 & ":" & a(i) + 25))
Union，第一个参数不能为空，好向随便就默认是第一行了

kmcla

望帝春心 发表于 2017-1-12 18:36
按F8一步一步去调试吧

http://www.excelpx.com/thread-427165-1-1.html
ＶＢ全局钩子．ＶＢ能行，　　　ＶＢＡ不会弄，hHook这个换成什么？用thisbook 也不行
MyKBHook = CallNextHookEx(hHook, ncode, wParam, lParam)