SHARE
TWEET

Untitled

a guest Mar 18th, 2017 235 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     Method DoUndo()
  2.     If undo[10000] > 0 Then 'Only undo if there is something to actually undo
  3.         ClickCell(undo[0], False)
  4.         undo[10000] = undo[10000] - 1 'Undo 10000 is used for storing how many undos have been done
  5.         For Local i = 0 To 9998
  6.             undo[i] = undo[i + 1]
  7.         Next
  8.     EndIf
  9.     End
  10.    
  11.     Method updateUndo(cellNumber)
  12.     Local backwards = 10000
  13.         For Local i = 1 To 9999
  14.             backwards = backwards - 1
  15.             undo[backwards] = undo[backwards - 1]
  16.         Next
  17.         undo[0] = cellNumber
  18.         undo[10000] = undo[10000]+1
  19.     End
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top