Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A2:A10000", "O2:O10000")) Is Nothing Then Call
End Sub
1、Private Sub--表示私有程序,只能在本模块被调用
2、Worksheet_BeforeDoubleClick—双击动作执行后启动程序
3、As Range--表示定义其数据类型,其数据类型为对象型
4、ByVal Target As Range--当前操作的单元格Range对象传递到参数Target 中,通过对该参数进行判断,显示数据的更改。
5、Cancel As Boolean--指定用户或程序执行的返回值,Boolean是参数的类型,某个控件的返回值,取值是True和False
6、If Not Application.Intersect(Target, Range("A2:A10000", "O2:O10000")) Is Nothing--当前选中区域是否与 A2:O10000区域有交叉(也就是有共同的区域)
7、Then Call—满足条件后执行Sub