[已解决]怎么把这个程序改成自定义函数

markang

各位老师,同学

有没有可能把附件的随机程序改成函数?目前的程序只是在range("c4")中显示处理结果,能够改成函数然后通过单元格简单的拖拉动作使程序反复执行,即使range("c5"),range("c6"),range("c7")......range("cn")都有一样的效果?

怎么把这个vba程序改成自定义函数.rar (13.68 KB, 下载次数: 7)

2015-10-8 17:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-10-8 18:41

在你的附件中，随便找个单元格输入 =XXX(C3)  就是把C3重新乱序排列。你试试

1. Function XXX(Rng)
   
2. Application.Volatile
   
3. Dim arr(), Ln&, i&, r&, Tmp
   
4. Ln = Len(Rng)
   
5. ReDim arr(1 To Ln)
   
6. For i = 1 To Ln
   
7.      arr(i) = Mid(Rng, i, 1)
   
8. Next
   
9. Randomize
   
10. For i = 1 To Ln
    
11.     r = Int(Rnd * Ln + 1)
    
12.     Tmp = arr(i):  arr(i) = arr(r):  arr(r) = Tmp
    
13. Next
    
14. XXX = Join(arr, "")
    
15. End Function

复制代码

跳转到最佳答案楼层

gufengaoyue

在你的附件中，随便找个单元格输入 =XXX(C3)  就是把C3重新乱序排列。你试试

1. Function XXX(Rng)
   
2. Application.Volatile
   
3. Dim arr(), Ln&, i&, r&, Tmp
   
4. Ln = Len(Rng)
   
5. ReDim arr(1 To Ln)
   
6. For i = 1 To Ln
   
7.      arr(i) = Mid(Rng, i, 1)
   
8. Next
   
9. Randomize
   
10. For i = 1 To Ln
    
11.     r = Int(Rnd * Ln + 1)
    
12.     Tmp = arr(i):  arr(i) = arr(r):  arr(r) = Tmp
    
13. Next
    
14. XXX = Join(arr, "")
    
15. End Function

复制代码

markang

amazing answer