之前我们讲过编写一个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…..] 注意:这里面的过程名称一定要加双引号,不然会报错。 |
|