Question

非常奇怪的发生。我在下面的代码中有一个工作簿。然后在一个单独的工作簿中，当我注意到以下代码被调用时，我正在调试代码？！？！代码驻留在第一本书的thisworkbook模块中，因此应仅包含在该书中。第二本书甚至是如何看到＆＃34;它???

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

If Sh.Name = "Checks" Then

    If Abs(Sh.Range("R25").Value) > 1 Then
        ActiveSheet.Tab.Color = RGB(255, 10, 10)
    Else
        ActiveSheet.Tab.ColorIndex = xlColorIndexNone
    End If

End If

End Sub

编辑：驻留在模块中的第二本书中的代码：

Sub UpdateWorkbook()

ActiveWorkbook.ActiveSheet.Select
ActiveWorkbook.ActiveSheet.Copy After:=Sheets(1)

End Sub

Answer 1

当你计算一个Excel工作簿时，我相信它会重新计算所有打开的工作簿 - 因为你的模块在重新计算时运行，它不会从活动工作簿中打开，因为带有代码的工作簿实际上会在其上重新计算只要有任何工作簿重新计算，就拥有自己。

解决方案是在不使用时保持工作簿关闭，或者创建一个通用的If语句循环，检查活动工作簿是否是您希望代码运行的工作簿。

一个工作簿可以访问另一个工作簿的模块

1 个答案: