如何实现程序的随机调用？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主
kevinchengcw

Q: 如何实现程序的随机调用？
A: 示例代码如下：

Sub test()
Dim Dic
Set Dic = CreateObject("scripting.dictionary") '创建字典项目
With Dic '添加各项结果对应的函数名
.Add "00", "AA"
.Add "01", "BB"
.Add "10", "CC"
.Add "11", "DD"
End With
Application.Run Dic(IIf(Rnd > 0.5, 1, 0) & IIf(Rnd > 0.5, 1, 0)) '随机生成结果并转化为对应的程序名供调用
Set Dic = Nothing '清空字典项目
End Sub
Sub AA()
Debug.Print "AA"
End Sub
Sub BB()
Debug.Print "BB"
End Sub
Sub CC()
Debug.Print "CC"
End Sub
Sub DD()
Debug.Print "DD"
End Sub

test程序运行后会随机调用一个子程序，以上示范一种随机调用的方法，供参考。

2楼
亡者天下

随机调用程序

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表