怎样使用VBA改变事件的运用？

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

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

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

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

Dim a

Sub表格每秒滚动一行()
    Dim i As Integer, Time_one As Single, Time_two As Single
    Time_one=Timer: Time_two=Timer
      Do
      Time_one=Timer()
    Application.Wait (1)
    If (Abs(Time_two-Time_one) > 1) Then
        Time_two=Time_one
        ActiveWindow.SmallScroll DOWN:=a
        i=i+1
        End If
Loop Until i=Range("a10000").End(xlUp).Row-2
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$A$1" And Target.Text="向下滚动" Then
a=1
Call表格每秒滚动一行
End If
If Target.Address="$A$1" And Target.Text="向上滚动" Then
a=-1
表格每秒滚动一行
End If
End Sub

5、单击A1单元格，选择“向下滚动”，工作表立即向下滚动，每秒钟向下滚动一行，直至最后一行滚动至顶端