Private Sub Worksheet_Activate() '工作表激活事件
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean) '工作表双击事件
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean) '工作表右击事件
End Sub
Private Sub Worksheet_Calculate() '工作表计算事件
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) '工作变化事件 发生变化时候执行代码
End Sub
Private Sub Worksheet_Deactivate() '工作表从活动状态改变成非活动状态触发事件
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) '工作表超链接事件
End Sub
Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable,ByVal TargetRange As Range)'透视表发生后事件
End Sub
Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long,Cancel As Boolean '透视表发生前事件
可能最后2个透视表事件解释的不对 没怎么用过
这些代码意思就是
比如第一个激活事件就是当工作表处于当前操作界面时 执行代码 当然你问题里面没有代码 只是示范
双击事件 比如
你双击单元格了那么就执行代码
双击事件我早上刚写了一个你参考这个回答 看看
其他事件都差不多 就是进行某某操作时候 触发代码的意思 还有里面的参数不是一句话说的完的
你可以每个每个事件百度的到的~
好像数据透视表事件是在10里面才有的 我还用的03版的呢
英语翻译
英语翻译
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable,ByVal TargetRange As Range)
End Sub
Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long,Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long,Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long)
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)
End Sub
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
End Sub
Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable,ByVal TargetRange As Range)
End Sub
Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long,Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long,Cancel As Boolean)
End Sub
Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable,ByVal ValueChangeStart As Long,ByVal ValueChangeEnd As Long)
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
其他人气:895 ℃时间:2020-06-19 01:51:39
优质解答
我来回答
类似推荐
猜你喜欢
- 1make sure you lock the door when you leave.翻译成中文
- 2粗糙的A、B长方体木块叠在一起,放在水平桌面上,B木块受到一个水平方向牵引仍保持静止.
- 3读书笔记要300字左右
- 4你的爱好是什么?我喜欢集邮.What's your hobby?I lake collecting stamps.怎么读.
- 5小圆的直径是5cm,大圆的半径是5cm,大圆和小圆的周长比是( ),面积比是( )
- 6i'm thinking______at the meeting.
- 7also-rans的意思是?
- 8某车间有工人26人,生产甲、乙两种零件,每人每天可生产甲种零件15个或生产乙种零件10个.某种仪器每套需
- 9一又二分之一*九分之四 一分钟
- 10仰首审视,见口中含肉,肉钩刺狼腭,如鱼吞饵.翻译