Jeg bruger følgende VBA-kode for at tillade autofuldførelse, når jeg skriver i rullelisten ved at bruge en kombinationsboks.

Denne kode deaktiverer funktionerne "Fortryd" og "Gentag" på de ark, som VBA-koden anvendes på. Kan VBA-koden ændres til at tillade disse funktioner?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Opdater af Extendoffice: 2018 / 9 / 21
Dim xCombox Som OLEObject
Dim xStr As String
Dim xWs Som arbejdsark
Dim xArr

Indstil xWs = Application.ActiveSheet
On Error Resume Next
Indstil xCombox = xWs.OLEObjects("TempCombo")
Med xCombox
.ListFillRange = ""
.LinkedCell = ""
.Synlig = Falsk
Slut med
Hvis Target.Validation.Type = 3 Så
Target.Validation.InCellDropdown = Falsk
Annuller = Sandt
xStr = Target.Validation.Formula1
xStr = Højre(xStr, Len(xStr) - 1)
Hvis xStr = "" Afslut Sub
Med xCombox
.Synlig = Sand
.Venstre = Mål.Venstre
.Top = Mål.Top
.Width = Target.Width + 5
.Højde = Målhøjde + 5
.ListFillRange = xStr
Hvis .ListFillRange = "" Så
xArr = Split(xStr, ","")
Me.TempCombo.List = xArr
End If
.LinkedCell = Måladresse
Slut med
xCombox.Aktiver
Me.TempCombo.DropDown
End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Vælg Sagsnøglekode
Sag 9
Application.ActiveCell.Offset(0, 1).Aktiver
Sag 13
Application.ActiveCell.Offset(1, 0).Aktiver
Afslut Vælg
End Sub