卡在 Excel 单元格中的下拉框

Question

我有一个通过列表下拉单元格进行许多数据验证的表单。 他们每隔一段时间就会“卡住”，唯一的解决方案是删除单元格并重新创建。 卡住时； 未选择单元格时显示下拉箭头，单击时显示空白列表。

似乎Excel在选择单元格时绘制了一个模糊的下拉形状； 单击此形状时，将绘制一个实心下拉形状和列表。 在列表中进行选择时，值进入单元格并删除下拉形状。 只是有时不是。

是否有编程解决方案，或者是手动修复任何“卡住”下拉实例的唯一方法？

Answer 1

我找到的解决方案是选择一个没有下拉菜单的单元格并删除所有名称为“下拉菜单”的可见形状。 也可能有不可见的，删除其中任何一个都会破坏工作表上的所有下拉菜单。

Private Sub Worksheet_Activate()
 Call KillStuckDropdown(Me.Name)
End Sub

并在模块中；

Sub KillStuckDropdown(wsName)
Dim ws As Worksheet
Dim sh As Shape

Application.ScreenUpdating = False

Set ws = Sheets(wsName)
ws.Range("AM1").Select
For Each sh In ws.Shapes
    If InStr(1, sh.Name, "Drop") > 0 And sh.Visible Then
'            Debug.Print sh.Name
        sh.Delete
    End If
Next sh

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.ScreenUpdating = True

End Sub