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

加载项SelectChange（）事件

1 个答案: