[已解决]for循环内的调用

f1red88

想通过function的过程，实现循环内的值传递，
Sub mai()
pt = cd(m)
r1 = Range("b65536").End(xlUp).Row
Cells(r1 + 1, 2) = m
End Sub
Function cd(ByRef mp)
For A = 1 To 5
mp = mp + A
Next
End Function

想实现的结果是：

1

3

6

10

15

但实际结果

15

再请问，cells（r1+1,2)=pt时，为何为空，
请大侠们帮忙。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-14 23:54

1. Sub FavoriteCities3()
   
2. 
   
3.     Dim arr(1 To 5, 1 To 1)
   
4.     arr(1, 1) = 1
   
5.     Hallo arr()
   
6.     Range("a1").Resize(5).Value = arr
   
7. End Sub
   
8. 
   
9. Sub Hallo(cities())
   
10.     Dim counter As Integer
    
11.     For counter = 2 To 5
    
12.         cities(counter, 1) = cities(counter - 1, 1) + counter
    
13.     Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个返回值又不是数组，function就是一个累加的代码。

hwc2ycy

1. Sub main()
   
2.     m = 0
   
3.     For a = 1 To 5
   
4.         Call cd(m, a)
   
5.         Cells(a, 1).Value = m
   
6.     Next
   
7. End Sub
   
8. 
   
9. Function cd(ByRef mp, i)
   
10.      mp = mp + i
    
11. End Function
    

复制代码

hwc2ycy

或者你用递归，但是不能用引用传递。

1. Sub main()
   
2.     Call cd(5)
   
3. End Sub
   
4. 
   
5. Function cd(mp)
   
6.      If mp > 1 Then
   
7.         cd = mp + cd(mp - 1)
   
8.     Else
   
9.         cd = 1
   
10.     End If
    
11.      Cells(mp, 1) = cd
    
12. End Function

复制代码

f1red88

hwc2ycy 发表于 2014-4-14 23:30
这个返回值又不是数组，function就是一个累加的代码。

Sub FavoriteCities3()

Dim cities(3) As String

cities(1) = "Baltimore"
cities(2) = "Atlanta"
cities(3) = "Boston"
Hallo cities()
End Sub
Sub Hallo(cities() As String)
Dim counter As Integer
For counter = 1 To 6
MsgBox "Hello " & cities(counter)
Next
End Sub

这个是从sub来传递，我想数组也这样返回，应怎样写，

f1red88

f1red88 发表于 2014-4-14 23:49
Sub FavoriteCities3()

Dim cities(3) As String

明白了，谢谢版主

hwc2ycy

1. Sub FavoriteCities3()
   
2. 
   
3.     Dim arr(1 To 5, 1 To 1)
   
4.     arr(1, 1) = 1
   
5.     Hallo arr()
   
6.     Range("a1").Resize(5).Value = arr
   
7. End Sub
   
8. 
   
9. Sub Hallo(cities())
   
10.     Dim counter As Integer
    
11.     For counter = 2 To 5
    
12.         cities(counter, 1) = cities(counter - 1, 1) + counter
    
13.     Next
    
14. End Sub

复制代码

不信这样还重名

hwc2ycy 发表于 2014-4-14 23:54

花亲，你这么晚还不睡，馅儿知道么？
以后你就只选择三段以上求助中不？给我们留点练手的题呀