Excel VBA:更改按钮将取消复制

My SelectionChange事件调用启用或禁用某些屏幕按钮的宏

当然，当我想将某个内容从一个单元格复制到另一个单元格时，会触发SelectionChange。但是，启用和禁用按钮（“.enable=True”或“.enable=False”）的命令会取消正在进行的复制。（单元格周围的动画边框消失了，就像我按下了Escape键一样，当我“粘贴”时，什么也没有发生。）

有办法解决这个问题吗

--肖恩

好的，给你：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim lboTemp As OLEObject
Dim ws As Worksheet
Dim Field As Range, FieldLabel As Range, Tbl As Range
Dim r, ob


If Application.Intersect(Target, Me.Range("D:D")) Is Nothing Then
    ' Disable buttons
    With Me.btnZoom
        .Enabled = False  ' **This cause "marching ants" to stop
        .Visible = True
        .Top = [Attr1].Top
        .Caption = "Zoom"
    End With

    With Me.btnAddToList
        .Enabled = False  ' **So does this (if I bypass the previous one)
        .Visible = True
        .Top = Me.btnZoom.Top + Me.btnZoom.Height + 5
        .Caption = "Add to List"
    End With
Else
   ' Enable buttons
    Call MoveZoomButtons  '**This macro enables the buttons, and likewise cancels the Copy
End If
         'More code
End Sub

---

我有一个想法，但我需要看看你的代码，以检查这是否会有帮助。。。可能会对您有所帮助，但如果您不发布任何代码，则很难说：-（@KazJaw我发布了代码。它有帮助吗？四天后，当我第一次看到你的问题时，我无法想起最初的想法。今天的想法-你真的需要使用

SelectionChange event

进行对象操作吗？这真的很低效。当你可以设置按钮属性时，想想不同的事件（激活？打开？），我会朝这个方向走。