2
3
4
5 2. 在B1至B5输入五个人的名字 3. 在C1至C5均输入公式=RAND( ) 4. 在D1输入公式=RANK(C1
$C$1:$C$5)，然后复制至D2至D5 5. 在E1输入公式=VLOOKUP(D1
$A$1:$B$5
2)，然后复制至E2至E3 6. 用滑鼠选一个空白的储存格(例如：A7) 7. 按著 Del 键一会，E1至E3的人名便不住跳动，放手不按Del键便会停下来。 8. 将栏A至栏D隐藏，并放大栏E以突显效果。 各函数的解释 RAND - 出乱数 RANK-出名次 (在这里是乱数的名次) VLOOKUP-按名次搜寻相关的人名。 2008-04-16 14:13:05 补充： 如果我要一个..是否不用在E1复制在其他两格呢.... ＞＞无错。 另做好了点样可以保护储存格呀..我怕按DEL会按错左...会否有掣用 ＞＞暂时找不到。因为要修改储存格的内容，才会重新计算。 ＞＞不用客气。
不管在公司里面还是在其他场合，为了公平起见都会选择随机抽的形式确定人选！这样既不会偏袒任何一人！
以前我们随机抽是用几张小字条写上所有的名字，然后随机抓，简直太过于老套了现在我在这里教大家一个比较好的方法，只需一个函数即可在Excel当中制作出来！只需简单两步即可完成！
效果图：
1、 设置函数
首先需要在抽奖结果显示处输入函数：【=INDEX(A:A,RANDBETWEEN(2,15))】
2、 设置选中人名颜色
将Excel中奖所有的人名全部选中，然后鼠标点击菜单栏"开始"里面的【条件格式】，在突出显示单元格规则中选中【等于】，在坐标栏中设置【显示结果人名单元格坐标】即可！
设置完毕后我们只需要按住快捷键：【F9】不放即可开始抽取人名，是不是非常简单，制作起来也非常的便捷！有需要制作这个随机抽取的表格可以跟着步骤 *** 作！
<!DOCTYPE PUBLIC "-W3CDTD XHTML 1.0 TritionalEN" "w3/TR/x1/DTD/x1-tritional.dtd"><xmlns="w3/1999/x"><head><meta -equiv="Content-Type" content="text/charset=gb2312" /><title>random_chooser</title><script>var ivar counter=0var real_valueslotitem = new Array('David''Mary'
'Leon'
'Martin'
'Ada'
'Sunny'
'Jacky'
'Paul'
'Peter'
'Sam')这个是基于javascript的网页
只要将所有code copy去记事本之后另贮新档在文件类型那行选所有档案
用法如下只要将 *** 的人名转做自己想要的
如果想增加人名照格式加就可以
如果你想用中文名要在head行边那行的charset=gb2312转做Big5
不过最保障做法是用中文名. function spinem1() { turns1=Math.floor(Math.random()* slotitem.length)real_value=slotitem[turns1]for(i=0i<turns1i++) { document.slots.slot1.value="the element no is "+slotitem[turns1] document.forms[0].mybutton.disabled=true} counter++if(counter<25) { setTimeout("spinem1()"
40)} else { counter = 0i=0document.slots.slot1.value="the element no is "+real_valueslotitem.splice(turns1
1)document.forms[0].mybutton.disabled=falseif(slotitem.length<=0) { alert("no more element")} } } </script></head><body><form name=slots><input type=text name=slot1 size=40><br><input type=button name=mybutton value="spin" onclick="spinem1()"></form></body></>
我对你个programe 有兴趣
可以再uplad 一次个file 吗?
我有click你的link
download完开唔到... anyway
都好多谢你既回复~
简单做了一个
请开启以下连结试用 先将宾客姓名/或抽奖劵号码在Sheet2输入 然后在Sheet1进行抽奖 有关排版/视觉/音效/速度...等等
各人要求不同
但希望你有用 如Sheet2输入 1~49
更可作为六合彩选号 FunP.Net/958343 2009-11-26 10:09:42 补充： 文件是须要解压的
可能你的电脑尚未安装解压软件
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）