加载项SelectChange()事件

我创build了一个具有用户表单的加载项。 所以在这个用户窗体中我有select的单元格显示信息,所以当我添加SelectChange()事件时,它的工作,但是当我创build外接程序版本不工作,因为添加“有自己的工作簿” ,所以select更改是在加载项文件中工作,而不是在活动工作簿或工作表中…所以,我是对的吗? 有没有办法在一个读取活动工作表中的信息的加载项中使用SelectChange()事件?

这样的事情,没有完全testing

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