เปิดใช้งานฟังก์ชันเลิกทำด้วย VBA สำหรับการเติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบหล่นลง

ฉันกำลังใช้รหัส VBA ต่อไปนี้เพื่ออนุญาตให้เติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการดรอปดาวน์โดยใช้กล่องคำสั่งผสม

รหัสนี้ปิดใช้งานฟังก์ชัน "เลิกทำ" และ "ทำซ้ำ" บนแผ่นงานที่ใช้รหัส VBA สามารถแก้ไขโค้ด VBA เพื่ออนุญาตให้ใช้ฟังก์ชันเหล่านี้ได้หรือไม่

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
'อัพเดทโดย Extendoffice: 2018 / 9 / 21
Dim xCombox เป็น OLEObject
Dim xStr เป็นสตริง
Dim xWs เป็นเวิร์กชีต
หรี่ xArr

ตั้งค่า xWs = Application.ActiveSheet
เกี่ยวกับข้อผิดพลาดต่อไป
ตั้งค่า xCombox = xWs.OLEObjects("TempCombo")
ด้วย xCombox
.ListFillRange = ""
.LinkedCell = ""
.Visible = เท็จ
จบด้วย
ถ้า Target.Validation.Type = 3 แล้ว
Target.Validation.InCellDropdown = เท็จ
ยกเลิก = จริง
xStr = Target.Validation.Formula1
xStr = ขวา(xStr, เลน(xStr) - 1)
ถ้า xStr = "" ให้ออกจาก Sub
ด้วย xCombox
.Visible = จริง
.ซ้าย = เป้าหมาย.ซ้าย
.ด้านบน = เป้าหมาย.ด้านบน
.Width = เป้าหมาย.Width + 5
.ความสูง = เป้าหมาย ความสูง + 5
.ListFillRange = xStr
ถ้า .ListFillRange = "" แล้ว
xArr = แยก (xStr, ",")
Me.TempCombo.List = xArr
End If
.LinkedCell = เป้าหมาย ที่อยู่
จบด้วย
xCombox.เปิดใช้งาน
Me.TempCombo.ดรอปดาวน์
End If
ย่อยสิ้นสุด
TempCombo_KeyDown ย่อยส่วนตัว (ByVal KeyCode เป็น MSForms.ReturnInteger, ByVal Shift เป็นจำนวนเต็ม)
เลือก Case KeyCode
9 กรณี
Application.ActiveCell.Offset(0, 1).เปิดใช้งาน
13 กรณี
Application.ActiveCell.Offset(1, 0).เปิดใช้งาน
สิ้นสุดการเลือก
ย่อยสิ้นสุด