怎样使用VBA工作表激活事件的运用？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_Activate()

 

    Dim rng As Range

 

For Each rng In ActiveSheet.UsedRange

 

If Left(rng.Formula, 2)="='" Then MsgBox "本工作表存在外部数据引用！", 65,

 

  "提示": Exit Sub

 

Next

 

MsgBox "本工作表没有外部数据引用！", 65, "提示"

 

End Sub

5、选择“Sheet1”以外的工作表，然后再回到“Sheet1”，程序立即提示“本工作表存在外部数据引用！”，如图