قم بتمكين وظيفة التراجع باستخدام VBA للإكمال التلقائي عند الكتابة في القائمة المنسدلة

أنا أستخدم كود VBA التالي للسماح بالإكمال التلقائي عند الكتابة في القائمة المنسدلة باستخدام مربع التحرير والسرد.

يعمل هذا الرمز على تعطيل وظيفتي "التراجع" و"الإعادة" على الأوراق التي يتم تطبيق رمز VBA عليها. هل يمكن تعديل كود VBA للسماح بهذه الوظائف؟

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
'تحديث بواسطة Extendoffice: 2018 / 9 / 21
خافت xCombox كـ OLEObject
خافت xStr كسلسلة
خافت xWs كورقة عمل
خافت xArr

تعيين xWs = Application.ActiveSheet
على خطأ استئناف التالي
تعيين xCombox = xWs.OLEObjects ("TempCombo")
مع xCombox
.ListFillRange = ""
.LinkedCell = ""
.مرئي = خطأ
انتهت ب
إذا كان الهدف .Validation.Type = 3 ثم
Target.Validation.InCellDropdown = خطأ
إلغاء = صحيح
xStr = الهدف.التحقق من الصحة.Formula1
xStr = يمين (xStr ، Len (xStr) - 1)
إذا كان xStr = "" ثم اخرج من Sub
مع xCombox
. المرئي = صحيح
. اليسار = الهدف. اليسار
.Top = الهدف
. العرض = الهدف. العرض + 5
. الارتفاع = الهدف. الارتفاع + 5
.ListFillRange = xStr
إذا .ListFillRange = "" إذًا
xArr = انقسام (xStr، "،")
Me.TempCombo.List = xArr
إنهاء حالة
.LinkedCell = الهدف. العنوان
انتهت ب
xCombox. تنشيط
Me.TempCombo.DropDown
إنهاء حالة
نهاية الفرعية
فرعي خاص TempCombo_KeyDown (رمز ByVal مثل MSForms.ReturnInteger ، ByVal Shift As Integer)
حدد Case KeyCode
حالة 9
Application.ActiveCell.Offset (0، 1) .Activate
حالة 13
Application.ActiveCell.Offset (1، 0) .Activate
إنهاء اختر
نهاية الفرعية