怎样使用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单元格，选择“向下滚动”，工作表立即向下滚动，每秒钟向下滚动一行，直至最后一行滚动至顶端