时间戳

首页 > 解决方案 > 热门解决：VBA Copy Values only 1004 Error？

excel - 热门解决：VBA Copy Values only 1004 Error？

问题描述

我有一个被多个用户使用的受 excel 保护的工作表，我发现他们有时会从阻止粘贴的单元格的不同应用程序复制和粘贴信息（同时也更改其他格式）。

我找到的解决方案是在 ThisWorkbook 中使用一个宏来强制复制为值。由于我在 VBA 方面没有太多经验，因此我决定使用互联网上的一些可用代码。问题是marco在我的Excel中工作得很好，但在旧版本的Excel中却不行（我需要它工作......）。

我收到 1004 错误。从我目前阅读的内容来看，我相信这是因为当我运行宏时剪贴板中的信息消失了。有谁知道如何解决这个问题？

下面是我正在使用的代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim UndoString As String, srce As Range
    On Error GoTo err_handler    
    UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(UndoString, 5) <> "Paste" And UndoString <> "Auto Fill" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Undo
    If UndoString = "Auto Fill" Then
        Set srce = Selection
        srce.Copy
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.SendKeys "{ESC}"
        Union(Target, srce).Select
    Else
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
err_handler:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

标签： excelvbaruntime-error

解决方案

试试这个，已经插入了两行

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim UndoString As String, srce As Range
    On Error GoTo err_handler    
    UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(UndoString, 5) <> "Paste" And UndoString <> "Auto Fill" Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Undo
    If UndoString = "Auto Fill" Then
        Set srce = Selection
        srce.Copy
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.SendKeys "{ESC}"
        Union(Target, srce).Select
    Else
        Selection.Copy 'This line has been inserted
        Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False 'This line has been inserted
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
err_handler:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

看起来这部分代码（Else等）仅适用于他们使用粘贴而不是自动填充的情况。

我看不出使用该If块来区分UndoString = "Auto Fill"和任何其他结果的优点，基于较早的If块只能包括最后一个可撤消的操作名称以 (或曾经) 开头的情况Paste。你不想对 和 做同样的事情Auto Fill吗Paste？

推荐阅读