求一个最简易的抽奖程序，只要能随机抽一个名字即可

hades048 · 发表于 2013-1-17 20:41

每次随机在一串名单里抽一个
可以一直抽，抽过的也可以再抽
无需设置任何奖项，只要点一次能出来随机一个名字即可

跪谢！

liuxuwentiger · 发表于 2013-1-17 21:25

Sub test()
On Error Resume Next
s = Int(Rnd() * 255) '255换成你源数据的最大列号
t = Int(Rnd() * 65536) '65536换成你源数据的最大行号
If Cells(s, 1) <> "" Then
msg = MsgBox(Cells(t, s))
End If

End Sub

hades048 · 发表于 2013-1-17 23:21

liuxuwentiger 发表于 2013-1-17 21:25
Sub test()
On Error Resume Next
s = Int(Rnd() * 255) '255换成你源数据的最大列号

貌似不会来，我其实是把这个放到一个按钮里，点一下出来一个随机数据

aricen · 发表于 2013-1-17 23:26

试试这个，把PPT内数字改一下即可，每个名字之间一个空格

hades048 · 发表于 2013-1-18 10:07

aricen 发表于 2013-1-17 23:26
试试这个，把PPT内数字改一下即可，每个名字之间一个空格

这个非常赞，非常感谢

@＾＿＾@ · 发表于 2013-1-18 11:20

aricen 发表于 2013-1-17 23:26
试试这个，把PPT内数字改一下即可，每个名字之间一个空格

下载了，但是没有看懂，不会修改

superscorpius · 发表于 2019-12-30 01:11

为什么我打开点击开始没反应？？

hacker85 · 发表于 2020-9-28 16:45

这个PPT的宏怎么就一直是禁止，“选项”中已经打开了宏安全最低，结果还是提示。

		自动登录	找回密码
密码			免费注册

[求助] 求一个最简易的抽奖程序，只要能随机抽一个名字即可

最新热点 /1