Come spingere un'operazione sulla pila di annullamento di Excel?

Question

Sto costruendo un componente aggiuntivo di Excel VSTO che manipola i valori di più celle. Vorrei consentire all'utente di annullare e ripetere le modifiche create dal componente aggiuntivo tramite le funzionalità standard di Excel. Preferisco evitare l'uso di VBA.

È possibile? Se é cosi, come?

Un'altra domanda: è possibile esaminare lo stack di annullamento/ripetizione esistente?

Answer 1

La soluzione Io sono andato con era la seguente:

• Salva una copia dello stato appunti
• cancellare gli Appunti
• generare i dati che voglio in una scheda/nuova riga delimitato formato, spingerlo negli Appunti
• Simulare un'operazione Ctrl + V in Excel
• Cancellare gli appunti
• ripristinare lo stato originale appunti

Ovviamente questo è localizzato a manipolazioni cellulari, quindi non si può spingere operazioni arbitrarie/callback alla stack di annullamento. Inoltre, sto chiaramente violando i principi relativi all'uso di appunti in Windows, ma se Microsoft ha esposto una migliore API per tali cose (suggerimento), non avrei dovuto.

Inoltre, non ho seguito la soluzione che ho descritto nel primo commento sulla risposta di David Zemens perché ho riscontrato alcune violazioni della sicurezza nel nostro ambiente (ad esempio, l'inserimento del codice VBA in una cartella di lavoro è un no-no).

Comunque, grazie a tutti!

Answer 2

È possibile aggiungere operazioni allo stack utilizzando:

Application.OnUndo text, procedureName 

Dove Testo è il testo che appare con il (menu Modifica) comando Annulla e ProcedureName è un nome di uno dei tuoi subs . È inoltre possibile annullare le operazioni in modo programmatico utilizzando:

Application.Undo 

Non penso sia possibile accedere alle operazioni di annullamento esistenti; almeno non ne ho mai sentito parlare. Potrebbe esserci una libreria alla quale è possibile accedere online per consentire ciò.

Spero che questo aiuti.

Answer 3

non siete riusciti a parlare di quale versione di Excel/NET/VSTO runtime che si desidera utilizzare, ma in realtà non importa:]
personalizzato Undo solo non può essere fatto senza l'iniezione di VBA, in cui si avrebbe bisogno di impostare un annullare il metodo per il rollback delle azioni, utilizzando la compensazione (ossia le operazioni inverse) o ripristinando uno stato salvato.

Answer 4

So che vuoi evitare VBA ma, come altri hanno già detto, non è possibile ottenere lo Undo.

Ecco un esempio VBA che conserva la selezione esistente come tipo di dati personalizzato in modo che possa essere annullata in un secondo momento.

Option Explicit 
'Stores info about current selection' 
Public OldWorkbook As Workbook 
Public OldSheet As Worksheet 
Public OldSelection() As SaveRange 

'Custom data type for undoing' 
Type SaveRange 
    Value As Variant 
    Address As String 
End Type 

Public Sub YourSubRoutine() 
    'A simple subroutine that acts on a Range selection' 
    Dim UserRange As Range 

    Set UserRange = Selection 


    If UserRange Is Nothing Then 
     Exit Sub 
    End If 

'## The next block of statements ' 
'## Save the current values for undoing ' 
    Set OldWorkbook = ActiveWorkbook 
    Set OldSheet = ActiveSheet 

    Application.ScreenUpdating = False 

    '## Code to manipulate the Selection range ' 
    '## Code to manipulate the Selection range ' 
    '## Code to manipulate the Selection range ' 

    '## Specify the Undo Sub ' 
    Application.OnUndo "Undo the YourSubRoutine macro", "UndoYourSubRoutine" 

End Sub 
Public Sub UndoYourSubRoutine() 

Dim i As Integer 

' Undoes the effect of the YourSubRoutine ' 

' Tell user if a problem occurs ' 
    On Error GoTo Problem 

    Application.ScreenUpdating = False 

'## Make sure the correct workbook and sheet are active ' 
    OldWorkbook.Activate 
    OldSheet.Activate 

'## Restore the saved information ' 
    For i = 1 To UBound(OldSelection) 
     Range(OldSelection(i).Address).Value = OldSelection(i).Value 
    Next i 
    Exit Sub 

' Error handler' 
Problem: 
    MsgBox "Can't undo" 

End Sub