[已解决]请教如何编写这样的事件程序

Saint_Zuo

假如一个工作簿中有一个工作表名为sheet1，请教如何编写事件程序当只要以下三个条件有一个满足时便重算sheet1所在工作簿中所有工作表中的公式。

1、当清除sheet1的a列中的内容（全部或部分单元格）。

2、修改sheet1的a列中的某个单元格内容。

3、对sheet1的a列执行粘贴操作，即先复制其他工作表中某一列的内容，然后选中sheet1的a列，再执行粘贴操作。

最佳答案

月排行榜 / 总排行榜

amulee

2010-12-13 10:49

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        ActiveSheet.Calculate
    End If
End Sub

跳转到最佳答案楼层

amulee

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        ActiveSheet.Calculate
    End If
End Sub

Saint_Zuo

QUOTE:

以下是引用amulee在2010-12-13 10:49:00的发言：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A:A"), Target) Is Nothing Then
        ActiveSheet.Calculate
    End If
End Sub

多谢了，amulee老师您太厉害了。我顺便想请教一下有没有什么vba语句可以重算本工作簿中所有公式的，我实验了一下Activeworkbook.Calculate语句出错。

simonguo

学习

Saint_Zuo

不好意思，忘记设置最佳答案了。