deaktivieren Sie die Formatierung beim kopieren und einfügen-Vorgang in excel

Ich bin gekommen, um mit dem folgenden code zu deaktivieren, um die Formatierung während Zelle kopieren-einfügen-Vorgang-

Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = False
        myValue = Target.Formula
        .Undo
        Target.Formula = myValue
        .EnableEvents = True
    End With
End If
    Application.CutCopyMode = False
End Sub

Code funktioniert perfekt, aber es stecken viele andere Fragen, die in dem Blatt.

  1. Nicht in der Lage, verwenden Sie die undo/redo-Funktionalität
  2. Nicht in der Lage, um den Fokus zu ändern von Zelle in einzigen Mausklick.

Jede Idee wäre willkommen.

InformationsquelleAutor Amit | 2012-09-21
  1. 0

    Im wesentlichen wollen Sie verbieten, ein standard einfügen und eventuell ersetzen Sie es durch ein Inhalte einfügen /Werte

    Könnten Sie Falle, die die Paste-Funktion und weisen Sie eine Nachricht, die Benutzer zur Verwendung von Inhalte Einfügen /Werte, wie in

    ....
' place this in any suitable event trigger like 
Application.CommandBars("Edit").Controls("Paste").OnAction = "TrappedPaste"
....

Sub TrappedPaste()
    MsgBox "Your Paste is performed as PasteSpecialValues", vbOKOnly, "Paste"

    ' ok, now silently do a PasteSpecial/Values
    On Error GoTo TryExcel
    ' try to paste text
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
    Exit Sub
TryExcel:
    On Error GoTo DoesntWork
     Selection.PasteSpecial xlPasteValues
     Exit Sub
DoesntWork:
    MsgBox "Sorry - wrong format for pasting", vbExclamation + vbOKOnly, "Paste Problem"
 End Sub

    Vorsichtig ... das funktioniert nicht in allen Sprachen, so dass für internationale Anmeldungen, die wir brauchen, um mehr subtil und

    If ExistControl("Edit", 22) Then Application.CommandBars("Edit").FindControl(ID:=22).OnAction = "TrappedPaste"

    Und es gibt noch mehr Orte in der Applikation, wo der Anwender konnte eine "Paste" aus, die Sie benötigen, um Sie zu fangen alle.

    Kann ich das näher auszuführen, wenn Sie wie der Ansatz.

    InformationsquelleAutor MikeD
Schreibe einen Kommentar