VBA程式設計，實現文字編輯撤消和重寫功能，你學會了嗎？

VBA提供了很多物件控制元件，其中一個文字框是我們經常用到的一個型別，可以實現簡單的文字輸入，編輯功能。

文字編輯過程當中有一個很實用的功能就是撤銷和重寫，這個功能就是讓我們在輸入錯誤的時候進行返回操作，同樣VBA也提供了這樣的一個函式，本文來介紹一下。

撤銷 UndoAction

解釋：取消支援撤消命令的最近一次操作

重寫 RedoAction

解釋：取消最近的“撤消”操作的效果

可以應用於窗體物件中，如Form1。UndoAction

並不是所有物件都支援此方法，可以利用屬性CanUndo和CanRedo來進行判斷是否可以進行撤消和重寫操作。

如：

if CanUndo=true then msgbox “可以撤銷”

if CanRedo=true then msgbox “可以重寫”

具體看一下程式碼實現方法

程式碼：

Private Sub 撤消（）

If Me。CanUndo = True Then

Me。UndoAction

Else

MsgBox “不能撤消”

End If

End Sub

Private Sub 重寫（）

If Me。CanRedo = True Then

Me。RedoAction

Else

MsgBox “不能重寫”

End If

End Sub

利用vba預置功能和方法來實現簡單操作，是十分方便的，問題是找到解決辦法，一切都會變得簡單了。

歡迎關注、收藏

——-END——-