无法激活特定工作表，但我可以激活其他工作表：S

Question

在这里遇到了一些困难.. 对编码和 VBA 很陌生，使用 2013 编写了一个代码，却没有意识到我在向后运行 2010 版本时会遇到问题... Derp..

我遇到了一个奇怪的问题。

我正在使用 worksheets("...").Activate 在工作表之间移动（这样做是为了在我的代码的每一行之前减少 "worksheets("...")." 的数量）。

无论如何，宏激活除一张之外的所有工作表都没有问题。有问题的工作表是原始按钮运行代码的位置。我似乎也无法使用 activex 命令按钮（这可能是我的问题的根源）。

注意：我已经尝试过由 Windows 更新引起的“删除 x 文件”——这不是问题的根源，我仍然可以添加新的 activex 控件等

编辑：我通过从 ActiveX 控件更改为调用调用用户窗体的宏的按钮解决了这个问题。似乎与该工作表上的 ActiveX 控件有关，阻止了它通过模块激活。有人对此有解释吗？

Answer 1

对于您无法激活工作表的原因，我没有任何答案，并且认为我无法在没有看到相关工作簿的情况下回答它。但是，我可以帮助您避免首先使用 activate ;)

根据您的描述，听起来您正在使用Worksheet(index).Activate，因此您可以使用ActiveSheet.SomeMember 来处理工作表对象。

如果是这样，您可以通过使用with block 来节省自己的时间并使您的程序更有效率。

例如：

With Worksheets("...")
    Debug.Print "working with """ & .Name & """."
    Debug.Print "which belongs to """ & .Parent.Name &  """."
End With

如果您需要在多个地方引用它，我建议将对象分配给一个变量。

例如：

Dim MySheet as Worksheet 
Set MySheet = Worksheets("...")

With MySheet
    'Do something 
End With

MySheet.range("A:A").Copy Destination:= WorkSheets("Someothersheet").Range("B:B")