Aktifkan Fungsi Undo dengan VBA untuk pelengkapan otomatis saat mengetik di daftar drop-down

Saya menggunakan kode VBA berikut untuk memungkinkan pelengkapan otomatis saat mengetik di daftar drop-down dengan menggunakan kotak kombo.

Kode ini menonaktifkan fungsi "Batalkan" dan "Ulangi" pada lembar tempat kode VBA diterapkan. Bisakah kode VBA dimodifikasi untuk memungkinkan fungsi-fungsi ini?

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
'Perbarui oleh Extendoffice: 2018 / 9 / 21
Redupkan xCombox Sebagai OLEObject
Redupkan xStr Sebagai String
Redupkan xWs Sebagai Lembar Kerja
redup xArr

Setel xWs = Application.ActiveSheet
On Error Resume Next
Setel xCombox = xWs.OLEObjects("TempCombo")
Dengan xCombox
.ListFillRange = ""
.LinkedCell = ""
.Terlihat = Salah
Berakhir dengan
Jika Target.Validation.Type = 3 Kemudian
Target.Validation.InCellDropdown = Salah
Batal = Benar
xStr = Target.Validasi.Formula1
xStr = Kanan(xStr, Len(xStr) - 1)
Jika xStr = "" Kemudian Keluar Sub
Dengan xCombox
.Terlihat = Benar
.Kiri = Target.Kiri
.Atas = Target.Atas
.Lebar = Target.Lebar + 5
.Tinggi = Target. Tinggi + 5
.ListFillRange = xStr
Jika .ListFillRange = "" Maka
xArr = Pisahkan(xStr, ",")
Saya.TempCombo.List = xArr
End If
.LinkedCell = Target.Alamat
Berakhir dengan
xCombox.Aktifkan
Saya.TempCombo.DropDown
End If
End Sub
Sub TempCombo_KeyDown Pribadi (Kode Kunci ByVal Sebagai MSForms.ReturnInteger, ByVal Shift Sebagai Integer)
Pilih Kode Kunci Kasus
Kasus 9
Application.ActiveCell.Offset(0, 1).Aktifkan
Kasus 13
Application.ActiveCell.Offset(1, 0).Aktifkan
End Select
End Sub