Jak przenieść operację na stos cofania Excel?

Question

Buduję dodatek VSTO Excel, który manipuluje wartościami wielu komórek. Chciałbym umożliwić użytkownikowi cofanie i ponawianie zmian wprowadzonych przez dodatek za pomocą standardowych funkcji programu Excel. Wolę unikać VBA.

Czy to możliwe? Jeśli tak to jak?

Kolejne pytanie: czy możliwe jest sprawdzenie istniejącego stosu cofania/ponawiania?

Answer 1

Rozwiązanie I rzeczywiście udał się był następujący:

• Zapisz kopię stanu schowka
• Wyczyść schowek
• Generowanie danych chcę na karcie/nowa linia rozdzielany format, wciśnij go do schowka
• Symuluj operację Ctrl + V do Excela
• Wyczyść schowek
• przywrócić pierwotny stan schowka

Oczywiście to jest zlokalizowane na manipulacji komórek, więc nie można naciskać dowolne operacji/wywołania zwrotne do stosu cofania. Ponadto, w oczywisty sposób naruszam zasady dotyczące używania schowka w Windows, ale jeśli Microsoft ujawnił lepszy interfejs API dla takich rzeczy (podpowiedź), nie musiałbym.

Dodatkowo, nie poszedłem z rozwiązaniem, które opisałem w pierwszym komentarzu do odpowiedzi Davida Zemensa, ponieważ uderzyłem w niektóre naruszenia bezpieczeństwa w naszym środowisku (tj. Wstrzyknięcie kodu VBA do skoroszytu jest nie-nie).

W każdym razie, dziękuję wszystkim!

Answer 2

Możesz dodać operacje do komina za pomocą:

Application.OnUndo text, procedureName 

Gdzie Tekst jest tekst, który pojawia się z (menu Edycja) polecenia Cofnij i procedureName to nazwa jednego ze swoich subwooferów . Możesz także programowo cofać operacje, używając:

Application.Undo 

Nie sądzę, że można uzyskać dostęp do istniejących operacji cofania; przynajmniej nigdy o nich nie słyszałem. Może istnieć biblioteka, do której można uzyskać dostęp online, co na to pozwoli.

Mam nadzieję, że to pomoże.

Answer 3

można nie wspomnieć, która wersja programu Excel/.NET/VSTO wykonywania chcesz użyć, ale to naprawdę nie ma znaczenia:]
klienta Cofanie po prostu nie da się zrobić bez wstrzykiwania VBA, gdzie trzeba ustawić cofnij metodę cofania swoich działań, używając kompensacji (tj. operacji odwrotnych) lub przywracając zapisany stan.

Answer 4

Wiem, że chcesz uniknąć VBA, ale jak wspomnieli inni, nie jest możliwe uzyskanie Undo.

Oto przykład VBA, który zachowuje istniejący wybór jako niestandardowy typ danych, aby można go było później cofnąć.

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