点击按钮，如何在指定单元格里产生随机数字

虔二

如题，类似抽签，抽数字大小。每位同事在单元格A4输入自己的名字，然后点击按钮，则B4单元格随机产生1-23之间的数值，数值位2位小数。
因为本人对控件类型是小白，所以在此求助、请教。请帮忙看看，谢谢！

taller

1-23之间的2位小数 - 这是什么？举个例子吧

虔二

不是整数，就22.45、13.49这类的。担心如有事整数会产生重复的数字

IVYQQQQQ

虔二 发表于 2020-3-6 14:54
不是整数，就22.45、13.49这类的。担心如有事整数会产生重复的数字

猜一下你的想法，是不是想实现23个人用数字1~23模拟抽签？

虔二

IVYQQQQQ 发表于 2020-3-6 14:59
猜一下你的想法，是不是想实现23个人用数字1~23模拟抽签？

就是这个意思。需要靠抽签来对员工排序。因为所有员工都不希望排在最前面，所以需要抽签

shenjianrong163

1. Sub test()
   
2.     Dim d, n, r, arr
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         If r < 4 Then Exit Sub
   
6.         arr = .Range("A4:B" & r)
   
7.         Set d = CreateObject("scripting.dictionary")
   
8.         Do
   
9.             n = Round(Rnd() * 22 + 1, 2)
   
10.             If Not d.Exists(n) Then d(n) = ""
    
11.         Loop Until d.Count = UBound(arr)
    
12.         [B4].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13.     End With
    
14. End Sub

复制代码

shenjianrong163

请参考附件：



人员名单 20200229 - 自己抽取排序码.rar (9.01 KB, 下载次数: 3)

2020-3-6 15:18 上传

点击文件名下载附件
1

虔二

IVYQQQQQ 发表于 2020-3-6 14:59
猜一下你的想法，是不是想实现23个人用数字1~23模拟抽签？

就是这个意思，模拟抽签排序。

虔二

shenjianrong163 发表于 2020-3-6 15:18
请参考附件：

感谢。我把你的代码，复制到你发的表格中。就可行了，太棒了。
你发的表格里没有宏，所以直接用了你的代码。可以了完美。十分感谢

虔二

shenjianrong163 发表于 2020-3-6 15:16

再咨询一下，如果要限制按钮的点击次数。比如只允许按钮被点击3次。这样的话，还需要怎么设置呢？