Χρησιμοποιώ τον ακόλουθο κώδικα 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