如何制作一个在选定区域内产生一组不重复随机数的按钮？

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

楼主悟空师弟	Q：如何制作一个在选定区域内产生一组不重复随机数的按钮？ A：将附件加载宏不重复随机数.zip 代码： Sub AUTO_OPEN() With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True) .Caption = "产生不重复随机数" .OnAction = "myrand" .FaceId = 500 End With End Sub Sub myrand() On Error GoTo 1 y = InputBox("温馨提示：" & Chr(10) & Chr(10) & " 此操作将在选定区域内产生一组不重复数，且不能撤销到上一步，请慎用！" & Chr(10) & Chr(10) & "请在下面输入希望生成的最小随机数（默认是 1）", "产生随机数", 1) Dim arr, tmp, r Dim rg As Range Dim rng As Range Set rng = Selection cntnum = rng.Count ReDim arr(cntnum) For i = 1 To cntnum arr(i) = i + y - 1 Next For i = 1 To cntnum tmp = arr(i) r = Int(Rnd() * cntnum + 1) arr(i) = arr(r) arr(r) = tmp Next For Each rg In rng x = x + 1 rg = arr(x) Next 1 End Sub 效果：
2楼 liuguansky	不重复随机数居然不用字典。
3楼悟空师弟	悲哀中…… 不懂字典花花帮我写个字典来学习！

免责声明

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

评论列表

楼主悟空师弟	Q：如何制作一个在选定区域内产生一组不重复随机数的按钮？ A：将附件加载宏不重复随机数.zip 代码： Sub AUTO_OPEN() With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True) .Caption = "产生不重复随机数" .OnAction = "myrand" .FaceId = 500 End With End Sub Sub myrand() On Error GoTo 1 y = InputBox("温馨提示：" & Chr(10) & Chr(10) & " 此操作将在选定区域内产生一组不重复数，且不能撤销到上一步，请慎用！" & Chr(10) & Chr(10) & "请在下面输入希望生成的最小随机数（默认是 1）", "产生随机数", 1) Dim arr, tmp, r Dim rg As Range Dim rng As Range Set rng = Selection cntnum = rng.Count ReDim arr(cntnum) For i = 1 To cntnum arr(i) = i + y - 1 Next For i = 1 To cntnum tmp = arr(i) r = Int(Rnd() * cntnum + 1) arr(i) = arr(r) arr(r) = tmp Next For Each rg In rng x = x + 1 rg = arr(x) Next 1 End Sub 效果：
2楼 liuguansky	不重复随机数居然不用字典。
3楼悟空师弟	悲哀中…… 不懂字典花花帮我写个字典来学习！