[求助]循环调用过程，这样不可以？

qiziqiao

我想按条件循环调用过程，这样不可以？ 请各位给个提示或帮改改，先谢过 sub test() dim i,j,r,s,t for i=1 to 3 j="test" & i call j '提示少子过程？ next end sub sub test1() debug.print date end sub sub test2 debug.print time end sub sub test3 debug.print time & date end sub

[此贴子已经被作者于2006-4-15 15:58:46编辑过]

konggs

试试这个。

'我想按条件循环调用过程，这样不可以？
'请各位给个提示或帮改改，先谢过
Sub test()
Dim i, j, r, s, t
For i = 1 To 3
j = "test" & i
g (j) '提示少子过程？
Next
End Sub
Function g(j)
If j = "test1" Then
Debug.Print Date
ElseIf j = "test2" Then
Debug.Print Timer
ElseIf j = "test3" Then
Debug.Print Timer & Date
End If
End Function

守柔

也可以这样：

Sub Example()
Dim i, j, r, s, t
For i = 1 To 3
Test (i)
Next
End Sub
Sub Test(A As Byte)
Select Case A
Case 1
Debug.Print Date
Case 2
Debug.Print Time
Case 3
Debug.Print Time & Date
End Select
End Sub

qiziqiao

可以解决我的问题了，多谢