Aktivera Ångra funktion med VBA för autofullständig när du skriver i rullgardinsmenyn

Jag använder följande VBA-kod för att tillåta autokomplettering när jag skriver i rullgardinsmenyn genom att använda en kombinationsruta.

Denna kod inaktiverar funktionerna "Ångra" och "Gör om" på arken som VBA-koden tillämpas på. Kan VBA-koden modifieras för att tillåta dessa funktioner?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Uppdatera av Extendoffice: 2018 / 9 / 21
Dim xCombox Som OLEO-objekt
Dim xStr As String
Dim xWs Som arbetsblad
Dim xArr

Ställ in xWs = Application.ActiveSheet
On Error Resume Next
Ställ in xCombox = xWs.OLEObjects("TempCombo")
Med xCombox
.ListFillRange = ""
.LinkedCell = ""
.Synlig = Falskt
Sluta med
Om Target.Validation.Type = 3 Då
Target.Validation.InCellDropdown = Falskt
Avbryt = Sant
xStr = Target.Validation.Formula1
xStr = Höger(xStr, Len(xStr) - 1)
Om xStr = "" Avsluta Sub
Med xCombox
.Visible = True
.Vänster = Mål.Vänster
.Top = Target.Top
.Width = Target.Width + 5
.Höjd = Målhöjd + 5
.ListFillRange = xStr
Om .ListFillRange = "" Då
xArr = Split(xStr, ","")
Me.TempCombo.List = xArr
End If
.LinkedCell = Måladress
Sluta med
xCombox.Aktivera
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Välj Case KeyCode
fallet 9
Application.ActiveCell.Offset(0, 1).Aktivera
fallet 13
Application.ActiveCell.Offset(1, 0).Aktivera
Avsluta Välj
End Sub