如何产生固定的随机数(VBA)
来源:互联网 发布:网页游戏源码论坛 编辑:程序博客网 时间:2024/04/28 02:06
陈希章
原文地址:http://www.cnblogs.com/chenxizhang/archive/2008/08/17/1269673.html原文标题:如何产生固定的随机数(VBA)
原文发表:2008/8/17 3:30:00
乍一看,这个题目是有些矛盾的,既然是随机数 ,怎么又是固定的呢?
实际上,是很多使用Excel 的朋友有这样的需求,希望能产生一些随机数,大家知道可以用Rand函数来产生它,但是这个函数是易失的,就是说会不断地计算。朋友们可能希望第一次让它随机产生,而后就固定了。所以,这就姑且称为"固定的随机数"吧
但是,如果直接用Rand函数,就没法避免这个问题,所以我给出这样的一个解决方案。见附件
核心代码如下
作者:陈希章Private Function GenerateRandNumbers(strPreString As String, intLBound As Integer, _
intUBound As Integer, rngTarget As Range) As Boolean
'******************************************************************************************
'作用:根据用户设置的几个参数自动产生一系列的随机数,并填充到工作表的指定位置
'作者:陈希章
'参数:
' strPreString:这个作为最后产生的字符串的前缀
' intLBound:这个是随机数的最小可能值
' intUBound:这个是随机数的最大可能值
' rngTarget:你可以选择一个目的位置,存放这些随机数
'适用Excel 97或者更高的版本
'******************************************************************************************
On Error GoTo Errhandler
Dim rng As Range
For Each rng In rngTarget
rng.Value = CStr(strPreString & format(Int((intUBound - intLBound) * Rnd() + intLBound), String(Len(CStr(intUBound)), "0")))
Next
GenerateRandNumbers = True
Exit FunctionErrhandler:
GenerateRandNumbers = False
MsgBox Err.Description, vbCritical, "错误"
Err.Clear
Exit FunctionEnd Function
出处:http://blog.csdn.net/chen_xizhang
本文版权归作者所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。
- 如何产生固定的随机数(VBA)
- VBA产生随机数的函数
- 产生固定格式的随机数
- 请教用VBA产生随机数的问题!
- 固定长度随机数产生
- 如何产生不相等的随机数
- 如何产生正态分布的随机数?
- 如何产生6+1的随机数
- VC++如何产生真正的随机数
- Java如何产生指定范围内的随机数
- vc如何产生有效的随机数
- C++中如何产生均匀分布的随机数
- 如何产生一个不重复的随机数
- 如何产生不重复的随机数
- 【Unity&C#&随机数】如何产生连续不重复的随机数
- 猜数字小游戏(如何产生随机数)
- 【VBA研究】VBA编程产生不重复随机数
- [C]如何产生随机数~
- 仓库映射图
- 优化HTML代码
- 自定义标识,身份主体
- 根据角色决定是否显示或者启用控件
- Excel文件减肥和加速
- 如何产生固定的随机数(VBA)
- 索引的填充因子
- SQL Server中的日期类型
- 走近SQL Server的游标
- UNIQUE约束和主键
- 存储过程编写和优化的经验
- SSIS的一个问题
- 图形验证码的实现【转载】
- ASP.NET中自定义控件无法响应事件的问题