Ενεργοποιήστε τη λειτουργία αναίρεσης με VBA για αυτόματη συμπλήρωση κατά την πληκτρολόγηση στην αναπτυσσόμενη λίστα

Χρησιμοποιώ τον ακόλουθο κώδικα VBA για να επιτρέψω την αυτόματη συμπλήρωση κατά την πληκτρολόγηση στην αναπτυσσόμενη λίστα χρησιμοποιώντας ένα σύνθετο πλαίσιο.

Αυτός ο κωδικός απενεργοποιεί τις λειτουργίες "Αναίρεση" και "Επανάληψη" στα φύλλα στα οποία εφαρμόζεται ο κωδικός VBA. Μπορεί να τροποποιηθεί ο κώδικας VBA για να επιτρέψει αυτές τις λειτουργίες;

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
«Ενημέρωση από Extendoffice: 2018 / 9 / 21
Dim xCombox ως OLEObject
Dim xStr ως συμβολοσειρά
Dim xWs ως φύλλο εργασίας
Dim xArr

Ορισμός xWs = Application.ActiveSheet
On Error Συνέχιση Επόμενη
Ορισμός xCombox = xWs.OLEObjects("TempCombo")
Με το xCombox
.ListFillRange = ""
.LinkedCell = ""
.Ορατό = Λάθος
Τέλος με
Εάν Target.Validation.Type = 3 Τότε
Target.Validation.InCellDropdown = False
Ακύρωση = Αληθινό
xStr = Target.Validation.Formula1
xStr = Right(xStr, Len(xStr) - 1)
Αν xStr = "" Τότε βγείτε από το Sub
Με το xCombox
.Ορατό = Αληθινό
.Αριστερά = Στόχος.Αριστερά
.Top = Target.Top
.Width = Target.Width + 5
.Ύψος = Στόχος.Ύψος + 5
.ListFillRange = xStr
Εάν .ListFillRange = "" Τότε
xArr = Split(xStr, ",")
Me.TempCombo.List = xArr
End If
.LinkedCell = Στόχος.Διεύθυνση
Τέλος με
xCombox.Ενεργοποίηση
Me.TempCombo.DropDown
End If
Sub End
Private Sub TempCombo_KeyDown (ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Επιλέξτε Κωδικός κλειδιού υπόθεσης
Υπόθεση 9
Application.ActiveCell.Offset(0, 1).Ενεργοποίηση
Υπόθεση 13
Application.ActiveCell.Offset(1, 0).Ενεργοποίηση
Επιλέξτε Τερματισμός
Sub End