excel Application.CutCopyMode值改变时触发事件

tobeahumanbeing · 发表于 2024-9-12 15:56

本帖最后由 tobeahumanbeing 于 2024-9-12 16:25 编辑

excel程序中，监控Application，当Application.CutCopyMode的值发生改变时，触发事件。
不知道这个可不可以通过VBA做出来？

tobeahumanbeing · 发表于 2024-9-13 11:40

这个是不是不好弄啊？
查看的人数为零。

大灰狼1976 · 发表于 2024-9-13 12:37

监控application不好弄的，本身没这个事件，要是退一步，用selectionchange事件监控是可以的。要精确实现就看有没有类模块高手或者API高手能解决了

tobeahumanbeing · 发表于 2024-9-13 13:36

大灰狼1976 发表于 2024-9-13 12:37
监控application不好弄的，本身没这个事件，要是退一步，用selectionchange事件监控是可以的。要精确实现就 ...

那就等等看吧，说不定已经在路上啦。

sshw · 发表于 2024-9-13 15:28

Application.CutCopyMode = True 这个有时会失效，不好用。可以监控剪切板：
模块最上面
Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Const CF_TEXT As Long = 1

程序中使用
If IsClipboardFormatAvailable(CF_TEXT) <> 0 then

tobeahumanbeing · 发表于 2024-9-13 17:02

sshw 发表于 2024-9-13 15:28
Application.CutCopyMode = True 这个有时会失效，不好用。可以监控剪切板：
模块最上面
Private Declare ...

excel
三种状态：
1、不在复制或剪切状态
2、在复制状态
3、在剪切状态
这个可以实现三种状态切换时，自动触发函数响应么？
像这样子的Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

lss001 · 发表于 2024-9-13 17:28

tobeahumanbeing 发表于 2024-9-13 17:02
excel
三种状态：
1、不在复制或剪切状态

可参考一下前两年的帖子→监控剪贴板

tianying · 发表于 2024-9-13 19:21

可以用一个timer类监控CutCopyMode 的值，改变了就触发自定义事件

tobeahumanbeing · 发表于 2024-9-13 21:12

不是监控剪贴板，主要是监控Application.CutCopyMode
当Application.CutCopyMode 由xlCopy或xlCut变成False时触发事件，运行某操作。

lss001 · 发表于 2024-9-13 21:47

本帖最后由 lss001 于 2024-9-14 07:15 编辑

.................................

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