用按钮替代鼠标右键的复制粘贴

十五的星星 · 发表于 2022-10-10 11:29

本帖最后由十五的星星于 2022-10-10 17:03 编辑

大家有没有想过用按钮，替代鼠标右键的复制，粘贴呢

Sub 复制()
Selection.Copy
End Sub

这个代码可以实现

ykcbf1100 · 发表于 2022-10-10 15:10

复制粘贴，录制一个宏就解决了。

十五的星星 · 发表于 2022-10-10 15:39

ykcbf1100 发表于 2022-10-10 15:10
复制粘贴，录制一个宏就解决了。

要是这么容易实现，我就不发论坛了。

录制宏的话，比如你录制的复制A3单元格，那么执行宏，就只是复制A3单元格。
我说的是鼠标任意选择某个单元格。不是说固定某个单元格

一条小笨笨 · 发表于 2022-10-10 16:21

用selection代替啊

WANT-T · 发表于 2022-10-10 16:28

十五的星星发表于 2022-10-10 15:39
要是这么容易实现，我就不发论坛了。

录制宏的话，比如你录制的复制A3单元格，那么执行宏，就只是复制 ...

核心的代码还是录制宏，没毛病

wanghan519 · 发表于 2022-10-10 16:29

本帖最后由 wanghan519 于 2022-10-10 16:31 编辑

刚上论坛那会写的，能凑合用
https://gitee.com/wanghan519/ahk4excel

loirol · 发表于 2022-10-10 16:47

ss= selection.value,改这一句就可以了吧

十五的星星 · 发表于 2022-10-10 16:58

WANT-T 发表于 2022-10-10 16:28
核心的代码还是录制宏，没毛病

Sub 复制1()
'Range("A3").Select
Selection.Copy
End Sub

录制宏的话，代码就是这样。你录制时是选择的A3单元格，也只只能复制那个单元格的，不能鼠标自由选择单元格

十五的星星 · 发表于 2022-10-10 17:00

loirol 发表于 2022-10-10 16:47
ss= selection.value,改这一句就可以了吧

不行的，出现调试对话框

tyler1985 · 发表于 2022-10-10 17:01

用一下API函数就可以了，模拟键盘按下“Ctrl+C”、“Ctrl+V”键

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

[讨论] 用按钮替代鼠标右键的复制粘贴