作者:curlt_357 | 来源:互联网 | 2023-05-23 14:09
两天前,当我打开文档时,用于填充Excel工作表中ActiveX组合框的代码停止运行。此后,我发现打开工作表时不再触发Worksheet_Activate()。
现在,即使我仅使用工作表1中的以下代码创建一个简单的工作簿,也不会在打开工作簿时触发。
Private Sub Worksheet_Activate()
MsgBox ("Worksheet has been activated")
End Sub
但是,如果我单击另一个选项卡,然后单击返回包含该代码的工作表,它将触发。
我尝试过添加Application.EnableEvents = True和Worksheets(“ Sheet1”)。激活到Workbook_Open(确实会触发),但还是没有运气。
我们正在运行Excel 2010,同事的计算机上也发生了相同的问题。有任何想法吗?
1> 小智..:
我知道这是一个较旧的问题,但是无需先激活另一个工作表,然后重新激活您想要的工作表:
Private Sub Workbook_Open()
' Bug in Excel:
' The Worksheet_Activate event does not fire for the sheet that is active
' when the workbook is opened, so call it explicitely. Make sure that
' Worksheet_Activate() is declared as Public.
' Ignore ActiveSheets without (Public) Worksheet_Activate()
On Error Resume Next
Call ActiveSheet.Worksheet_Activate
On Error GoTo 0
End Sub
像in中那样,通过Name引用工作表也不是一个好习惯Worksheets("Sheet1")
,除非您有充分的理由这样做。更好的方法是使用CodeName。有关详细信息,请参阅这篇文章。