Question

我在2010年广泛使用的excel宏上收到错误。在Excel 2013中，每次运行宏时都会收到438错误（对象不支持此属性或方法）。

如果我在“WITH”语句处停止代码，然后第二次手动强制执行SELECT语句，我没有收到错误。

有没有人知道可能导致这种情况的原因？

   ActiveSheet.Shapes("Drop Down 28").Select
   With Selection
       .ListFillRange = "Constants!$J$2:$J$13"
       .LinkedCell = "$E$2"
       .DropDownLines = 12
       .Display3DShading = False
   End With

提前感谢任何想法。

Answer 1

With ActiveSheet.DropDowns("Drop Down 28")
        .ListFillRange = "A1:A10"
        .LinkedCell = "A12"
        .DropDownLines = 10
        .Display3DShading = False
End With

间歇性excel 2013 vba错误438

1 个答案: