VSTO外接程序中如何写工作表选择区域改变的SelectionChange代码(调用工作表事件）？

旭日升

研究了一天，在网上查到了这个：AppEvents_SheetSelectionChangeEventHandler ，但不知道怎么在VSTO外接程序中写代码。
举个例子，下面这段代码，在VSTO外接程序中的代码怎么写？
Sub WORKSHEET_SELECTIONCHANGE(ByVal TARGET As Range)
    MsgBox "改变"
End Sub

旭日升

受C#代码启发，自己研究出来了，这样就不用在每个工作表中写代码了，只写一段，所有工作簿通用：

1. Imports Microsoft.Office.Tools.Ribbon
   
2. Imports Microsoft.Office.Interop.Excel
   
3. Public Class ThisAddIn
   
4. 
   
5.     Private Sub ThisAddIn_Startup() Handles Me.Startup
   
6.         AddHandler Me.Application.SheetSelectionChange, AddressOf Application_SheetSelectionChange
   
7.         AddHandler Me.Application.SheetChange, AddressOf SHEETCH
   
8. 
   
9.     End Sub
   
10.     Private Sub Application_SheetSelectionChange(Sh As Object, Target As Range)
    
11.         MsgBox("选择区域发生改变")
    
12.     End Sub
    
13. 
    
14.     Private Sub SHEETCH(SH As Object, TARGET As Range)
    
15.         MsgBox("工作表发生改变")
    
16.     End Sub
    
17. 
    
18.     Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
    
19.         RemoveHandler Me.Application.SheetSelectionChange, AddressOf Application_SheetSelectionChange
    
20.         RemoveHandler Me.Application.SheetChange, AddressOf SHEETCH
    
21. 
    
22.     End Sub
    
23. 
    
24. End Class
    

复制代码

轩辕轼轲

不是很明白你的意思，这里不是有这个事件么？

旭日升

轩辕轼轲 发表于 2014-1-18 13:56
不是很明白你的意思，这里不是有这个事件么？

感谢你的回答，由于开始接触VSTO，所以很多东西不知道位置，或者代码怎么写。后面是用AddHandler语句实现的，主要实现点击一个开关，开启SelectionChange事件，开关关闭，SelectionChange事件也关闭（即不再起作用）。

jidiyihao

谢谢, 受你启发,我也解决一个问题. VSTO内的excel事件得用addhandler 关联一个sub, 就可以用了,hoho

konka--

轩辕轼轲 发表于 2014-1-18 13:56
不是很明白你的意思，这里不是有这个事件么？

大神，这个怎么写出来呢

tswing

旭日升 发表于 2013-12-11 23:14
受C#代码启发，自己研究出来了，这样就不用在每个工作表中写代码了，只写一段，所有工作簿通用：

不明白 AddHandler的用法，关联以后到底有什么用？
直接用 Application_SheetSelectionChange不行吗？