英语翻译Private Sub Worksheet_Activate()End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_Calc

英语翻译Private Sub Worksheet_Activate()End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_Calc
英语翻译
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 SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range,Cancel As Boolean)End SubPrivate Sub Worksheet_Calc
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版的呢