上一章给大家分享了什么是过程,以及VBA的过程保存在哪里面,怎么取声明一个Sub过程等,今天就给大家继续分享关于过程的知识,怎么执行过程,有什么注意的地方。
之前我们讲过编写一个Sub过程,然后直接执行就可以,下面我们一起看一下先编写一个Sub过程,然后在另外一个Sub过程中执行另外一个Sub。
废话不多说先编写一个过程一起看看。
接下来要使用到的数据表格
我们一起写一个过程就是只输出该数据表格的奇数行数
下面再解释一下代码:
注意:你们数据表有多少行数据,控制输出的就是最外层的for循环,往数组内存值和取值都是内层的2个for循环(特别注意:数组的大小要根据表格的列数来确定)。
代码1:
Sub s()
Dim arr(1 To 7) As Variant
Dim i As Integer, j As Integer, k As Integer, h As Integer, m As Integer
m = 1
For h = 1 To 10
If m Mod 2 = 0 Then
For i = 1 To 7
arr(i) = Worksheets("sheet37").Cells(h, i)
Next
For k = 1 To 7
Worksheets("sheet40").Cells(h, k) = arr(k)
Next
End If
m = m + 1
Next
End Sub
下面我们看一下怎么在另外的一个过程中调用这个过程?
常用方法有三种:
1. 过程名称[参数1,参数2,参数3…]
2. Call 过程名称[(参数1,参数2…..)]
3. 利用Application对象来调取Run的方法实现运行s过程
Application.Run 表示过程的名称 [参数1,参数2…..]
注意:这里面的过程名称一定要加双引号,不然会报错。
今天就先分享到这里,喜欢的请关注我,谢谢!
明天继续给大家分享。
页面更新:2024-03-03
本站资料均由网友自行发布提供,仅用于学习交流。如有版权问题,请与我联系,QQ:4156828
© CopyRight 2008-2024 All Rights Reserved. Powered By bs178.com 闽ICP备11008920号-3
闽公网安备35020302034844号