Worksheet_SelectionChange中有代码后，工作表不能复制粘贴

yylucke · 发表于 2012-7-26 12:55

本帖最后由 yylucke 于 2012-7-26 13:06 编辑

各位高人，我为了实现选中特定列单元格，随之出现一个按钮，在Worksheet_SelectionChange中写了如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column = 5 Or _
Selection.Column = 7 Or _
Selection.Column = 9 Then
CommandButton1.Visible = True
CommandButton1.Top = Target.Top
CommandButton1.Left = Target.Left + Target.Width
Else
CommandButton1.Visible = False
End If
End Sub
实现了该功能，但该工作表的复制粘贴不能使用，现求教：如何在实现上述功能的前提下，仍然可以复制粘贴。
谢谢！

yylucke · 发表于 2012-7-26 15:53

顶起来，求高人指点！

869305 · 发表于 2012-7-26 16:05

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Selection.Column = 5 Or _
Selection.Column = 7 Or _
Selection.Column = 9 Then
CommandButton1.Visible = True
CommandButton1.Top = Target.Top
CommandButton1.Left = Target.Left + Target.Width
Else
CommandButton1.Visible = False
End If
End Sub

yylucke · 发表于 2012-7-27 10:37

869305 发表于 2012-7-26 16:05
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.C ...

你好！加了代码On Error Resume Next，仍不能解决。右键“粘贴”、“选择性粘贴”仍是灰色。

yylucke · 发表于 2012-7-27 10:39

继续顶起来！

yylucke · 发表于 2012-7-28 09:35

是否此问题无解？

likewinlike · 发表于 2017-7-1 15:12

yylucke 发表于 2012-7-28 09:35
是否此问题无解？

我也遇到了此问题，不知是否已解决？

xvjiex · 发表于 2019-7-18 10:34

本帖最后由 xvjiex 于 2019-7-18 10:36 编辑

yylucke 发表于 2012-7-27 10:37
你好！加了代码On Error Resume Next，仍不能解决。右键“粘贴”、“选择性粘贴”仍是灰色。

主要是加后面一句：If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub。我试过了，行的。复制是在excel文档内的复制。其他文档复制到excel没有试过。

wulai8377 · 发表于 2021-6-15 10:11

xvjiex 发表于 2019-7-18 10:34
主要是加后面一句：If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit ...

这个有效,主要是注意代码的位置.!

justdoit2003 · 发表于 2023-8-2 16:34

https://blog.sina.com.cn/s/blog_66e986650102uzj9.html

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

[求助] Worksheet_SelectionChange中有代码后，工作表不能复制粘贴