Cofanie makra
Generalnie wykonanie makra nie umożliwia jego cofnięcia - nie można skorzystać z przycisku 'cofnij'.
Jednakże, odpowiednie napisanie kodu może nam umożliwić cofanie makra.
Poniższy kod jest tylko przykładem z założenia możliwie najprostszym - cofamy tutaj makro zmieniające format liczbowy aktywnej komórki. Działanie na zakresach wielokomórkowych będzie wymagało skorzystania z tablic.
Private oldformat As String
Sub Format()'zapamiętuje jaki był poprzedni format liczbowyoldformat = ActiveCell.NumberFormat'zamienia format liczbowyActiveCell.NumberFormat = "#,##0.00"'przysuje metodzie undo makro przywracające stary formatApplication.OnUndo "Cofnij formatowanie", "UndoFormat"End Sub
Sub UndoFormat()'wstawia stary format liczbowyActiveCell.NumberFormat = oldformatEnd Sub
bolo882