请教用VBA产生随机数的问题！

最新推荐文章于 2024-07-17 16:05:21 发布
最新推荐文章于 2024-07-17 16:05:21 发布
阅读量2.6k 收藏
点赞数
文章标签： vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/snowslove/article/details/599422
版权

背景：

用PPT做一个选号的界面，按开始便不断地产生随机数（1-24），按停止则显示一个随机数。

条件：

1、24个数字分为6组
第一组：1，2，3，4
第二组：5，6，7，8
第三组：9，10，11，12
第四组：13，14，15，16
第五组：17，18，19，20
第六组：21，22，23，24

2、每次产生一个随机数，但要产生多次（最终可产生1-6个随机数）。

3、在每一轮的选号中产生的任意两个随机数不能是同一组的。也就是说产生一个随机数后，下一个随机数不可以在同一组产生。

哪位高手帮帮我！！谢。。。。。。。。。。。。。。。

snowslove
关注
VBA产生随机数的函数
jinggangshi的专栏
03-23 1万+
'Dim min As Integer '定义随机数的最小值 'Dim max As Integer '定义随机数的最大值 '限制只产生500个，VBA的速度问题 Public Function CreateRND(ByVal min As Integer, _
vba随机化数组函数
RosickyNewBee的专栏
09-27 1312
Function randomizeArray(vector As Variant) As Variant    Dim l As Integer    Dim u As Integer    Dim i As Integer    Dim rndPosition As Integer    Dim temp As Variant    l = LBound(vector)    u = UBou
VBA的随机数生成：整数范围内随机（更好些），小数范围内随机
热门推荐
奔跑的犀牛先生
09-18 2万+
用EXCEL生成随机数 用VNA生成随机数 生成1-10的随机数 p1 = Int(1 + 10* Rnd()) ---这里正确，刚好10=10-1+1 p1 = Int(1 + (10-1+1) * Rnd()) --总是正确 如果生成 2-9之间的随机数 p2 = Int( 2 + 9* Rnd() ) --错误的 p2 = Int(2 + (9-2+1) * Rnd()) ----正确 ...
VBA 生成不重复的随机数
最新发布
记录
07-17 442
VBA 生成不重复的随机数
【VBA】随机数
weixin_30583563的博客
07-24 428
【说明】 随机数。生成2个随机数m、n，取值范围为1~R、1~C Randomize m = Int((Rnd * (R - 1)) + 1) ' 1~R Random Int Randomize n = Int((Rnd * (C - 1)) + 1) ' 1~C Random Int 转载于:https://www.cnblogs.com/dlsunf/p/...
【VBA】生成m到n之间的随机整数
QQ114152850的博客
11-05 1312
'生成m到n之间的随机整数 Function RandBetween_VBA(ByVal m As Long, ByVal n As Long) Randomize RandBetween_VBA = Int(Rnd * (n - m + 1) + m) End Function
恕我直言，你的实验结论可能严重依赖随机数种子！ .rar
10-18
然而，一个经常被忽视的因素是随机数种子的选择，它可能会对实验结论产生显著影响。标题“恕我直言，你的实验结论可能严重依赖随机数种子！”揭示了一个常见但重要的问题，即许多算法和模型在训练过程中依赖于随机性...
恕我直言，你的实验结论可能严重依赖随机数种子！ .pdf
08-12
为了解决这个问题，Google 开源了 MultiBERTs，一个包含 25 个不同随机数种子下 BERT 预训练结果的集合。同时，Google 提出了 Multi-Bootstrap 方法，利用不同种子下的 BERT 预训练结果，检测实验结论是否源于预训练...
使用tcl脚本产生随机数
11-13
使用tcl脚本产生随机数
VBA生成不重复的随机数源码.txt
04-13
VBA生成不重复的随机数源码.txt
VBA生成互不相同的随机数
11-17
生成互不相同的随机数，随机数可以选择范围。
VBA测试-随机生成数据-达到条件即停止计算.xlsm
04-03
VBA测试-随机生成数据-达到条件即停止计算
VBA18随机函数RND例子(抽奖、指定几率、随机凑数)
q14091355的博客
05-06 5034
VBA随机函数RND函数说明，实例应用、简单抽奖程序抽取不重复思路创建，指定几率随便抽取，限定次数抽取、利用RND随机凑数量金额。分配单量、金额匹配。
VBA的 随机数 rnd 和 randomize 如何配合使用？ 伪随机数带来的问题，根据需要产生不同的随机数！
奔跑的犀牛先生
01-29 1万+
Sub t1111() Debug.Print Rnd End Sub Rnd函数在产生随机数的时候，并不bai是真正的随机，而是通过一定的公式计算产生的随机，现在我们把那个计算产生随机数的公式叫做f(x)，第一个x取值为1 那么便会产生第一个随机数f(1)，第2个随机数是在第一个随机数的基础上产生的即f(f(1))，依次类推，第3个随机数是f(f(f(1))) 不难发现，第一个数1，对于产生的一系列随机数是非常重要的，这个1，我们称之为种子数，一个种子数就对应一系列的随...
随机函数Randomize
12-14 978
Technorati 标签: Randomize,vba,随机数The Randomize statement initializes the random number generator. The instruction Int((maxNum – minNum + 1) * Rnd + minNum) uses the Rnd function to generate a random
VBA学习笔记之随机数&数组redim
aiyin1399的博客
08-08 2380
发现更简单的： a=Application.RandBetween(-10, 10) 直接生成-10到10之间的随机整数 关于二维数组Redim Preserve： 如果使用了Preserve关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。 具体参考 1 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的...
编程实现让计算机生成指定范围内的随机数,VBA生成特定范围内的随机数| VBA示例教程...
weixin_33918358的博客
07-21 3781
在我们的工作中，有时会遇到一些随机问题，例如随机排序，随机抽样等. 在Excel VBA中解决这些问题的基础是首先生成一系列随机数. 今天，我们将了解如何使用VBA生成满足我们需求的随机数. 在Excel中生成随机数的函数是Rnd，在VBA中，随机函数也是Rnd. Rnd函数生成的随机数范围是[0,1)，包括0但不包括1，然后通过对该范围进行操作，您可以获得符合我们要求的范围. 让我们看一下如何...
VBA基础知识整理（随机数）
weixin_42578747的博客
05-13 4824
Sub 随机挑选演示程序1() Dim arr Dim x As Integer, num As Integer, k As Integer Range("c1:c10") = "" Range("a1:a10") = Application.Transpose(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")) ...
VBA产生随机数并填充到矩阵
06-01
VBA可以使用Rnd函数产生随机数，可以通过使用循环语句将随机数填充到矩阵中。具体实现方法如下： 1. 首先，在Excel中打开Visual Basic Editor，在模块中编写以下代码： ``` Sub FillRandom() Dim matrix(1 To 5, 1...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值