工作表事件，双击后，按多标准排序，谢谢cidanji老师！

lhj323323 · 发表于 2024-1-6 11:34

一条小笨笨发表于 2024-1-6 09:45
是不是没有启用宏? 我这边都是正常的

我退出VB编辑状态的了，的确没有反应。
而另一个求助的XLS里，就有反应。

lhj323323 · 发表于 2024-1-6 11:36

CBWSY 发表于 2024-1-6 09:51
是否达到你要的效果呢

谢谢老师的帮助！

提示报错，是不是我的版本（2003）低了的原因？
快照4.png

lhj323323 · 发表于 2024-1-6 11:39

jz_l 发表于 2024-1-6 09:53

老师
您好，好久不见。
7楼的附件，双击单元格后，仍没有反应，可能与6楼的原因相同
是不是我的版本低了。

lhj323323 · 发表于 2024-1-6 11:41

cidanji 发表于 2024-1-6 10:07

测试成功了！就是它
完全正确！！！
谢谢老师！

lhj323323 · 发表于 2024-1-6 11:47

cidanji 发表于 2024-1-6 10:07

双击后的效果图如下，

完全符合我的预期了！
快照5.png

lhj323323 · 发表于 2024-1-6 11:52

jz_l 发表于 2024-1-6 09:53

Target.Offset(-(r1 - 2), 0).Select
Cancel = True

这两句，原来是等效的啊，
唉，我还傻傻地对那个Offset测试了半天。

lhj323323 · 发表于 2024-1-7 06:37

cidanji 发表于 2024-1-6 10:07

老师：
您提供的源码里的如下句

复制代码

Target.EntireColumn
是双击单元格所在的列的Entire是什么意思
还有，这里的2表示什么？

		自动登录	找回密码
密码			免费注册

[已解决] 工作表事件，双击后，按多标准排序，谢谢cidanji老师！