怎样使用VBA改变事件的运用？ - 经验大全

随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用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单元格，选择“向下滚动”，工作表立即向下滚动，每秒钟向下滚动一行，直至最后一行滚动至顶端

END

注意事项

智能手机助理给我们的生活带来了极大的便利！

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。

作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。

展开阅读全部

文章评论