加载项SelectChange（）事件

Question

我创建了一个具有用户窗体的加载项。因此，在这个用户窗体中，我显示了来自所选单元格的信息，所以当我添加SelectChange（）事件时，它可以工作，但是当我创建插件版本时，它不起作用，因为添加“有自己的工作簿” ，所以选择更改在加载项文件中工作，而不是在活动工作簿或工作表中......所以，我是对的吗？有没有办法在加载项中使用SelectChange（）事件来读取活动工作表中的信息？

Answer 1

这样的事情，没有充分测试

Public WithEvents objEXCEL As Excel.Application 
Public WithEvents objWB As Excel.Workbook 

Private Sub Workbook_Open() 
    Set objEXCEL = Application 
    Set objWB = ActiveWorkbook 
End Sub 

Private Sub objEXCEL_NewWorkbook(ByVal Wb As Workbook) 
    Set objEXCEL = Application 
    Set objWB = Wb 
End Sub 

Private Sub objWS_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
    MsgBox Target.Address 
End Sub