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

最新推荐文章于 2024-07-17 16:05:21 发布

snowslove

最新推荐文章于 2024-07-17 16:05:21 发布

阅读量2.6k

点赞数

文章标签： vba

本文链接：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、在每一轮的选号中产生的任意两个随机数不能是同一组的。也就是说产生一个随机数后，下一个随机数不可以在同一组产生。

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

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

snowslove

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

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

1318

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的随机数生成：整数范围内随机（更好些），小数范围内随机

最新发布

记录

07-17

512

VBA 生成不重复的随机数

【VBA】随机数

weixin_30583563的博客

07-24

435

【说明】随机数。生成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

1317

'生成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 预训练结果，检测实验结论是否源于预训练...

11-13

04-13

11-17

生成互不相同的随机数，随机数可以选择范围。

VBA测试-随机生成数据-达到条件即停止计算.xlsm

04-03

VBA测试-随机生成数据-达到条件即停止计算

VBA18随机函数RND例子(抽奖、指定几率、随机凑数)

q14091355的博客

05-06

5100

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

982

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

2383

发现更简单的： a=Application.RandBetween(-10, 10) 直接生成-10到10之间的随机整数关于二维数组Redim Preserve：如果使用了Preserve关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。具体参考 1 如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的...

编程实现让计算机生成指定范围内的随机数,VBA生成特定范围内的随机数| VBA示例教程...

weixin_33918358的博客

07-21

3798

在我们的工作中，有时会遇到一些随机问题，例如随机排序，随机抽样等. 在Excel VBA中解决这些问题的基础是首先生成一系列随机数. 今天，我们将了解如何使用VBA生成满足我们需求的随机数. 在Excel中生成随机数的函数是Rnd，在VBA中，随机函数也是Rnd. Rnd函数生成的随机数范围是[0,1)，包括0但不包括1，然后通过对该范围进行操作，您可以获得符合我们要求的范围. 让我们看一下如何...

VBA基础知识整理（随机数）

weixin_42578747的博客

05-13

4829

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 To 5) As Double Dim i As Integer, j As Integer Randomize For i = 1 To 5 For j = 1 To 5 matrix(i, j) = Rnd() Cells(i, j) = matrix(i, j) Next j Next i End Sub ``` 2. 上述代码中，我们定义了一个大小为5×5的矩阵，并使用Randomize函数初始化随机数生成器。然后，我们使用两个嵌套循环来遍历矩阵中的每一个元素，并使用Rnd函数生成随机数。最后，我们将生成的随机数填充到Excel表格中。 3. 运行上述代码后，Excel表格中将会出现一个大小为5×5的矩阵，并且其中每个元素都是一个随机数。