每次抽一個人名,
已抽過的自動篩走, 不再出現,
直到抽哂完部人名為止.....
(for xmas party 抽禮物時用)
之前已有參考類似題目的"yahoo知識",
但做出黎總係有d會重複...
各位高手請賜教~~
不重複的隨機抽人名的程式(用excel)
2009-11-25 8:32 pm
回答 (4)
2009-11-26 8:56 am
✔ 最佳答案
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>random_chooser</title>
<script>
var i;
var counter=0;
var real_value;
slotitem = 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=0;i<turns1;i++)
{
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 = 0;
i=0;
document.slots.slot1.value="the element no is "+real_value;
slotitem.splice(turns1,1);
document.forms[0].mybutton.disabled=false;
if(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>
</html>
2012-08-15 6:05 am
我對你個programe 有興趣,可以再uplad 一次個file 嗎?
2009-11-26 8:26 am
我有click你的link, download完開唔到... anyway, 都好多謝你既回覆~
2009-11-26 6:52 am
簡單做了一個, 請開啟以下連結試用
先將賓客姓名/或抽獎劵號碼在Sheet2輸入
然後在Sheet1進行抽獎
有關排版/視覺/音效/速度...等等, 各人要求不同, 但希望你有用
如Sheet2輸入 1~49, 更可作為六合彩選號
http://www.FunP.Net/958343
2009-11-26 10:09:42 補充：
文件是須要解壓的, 可能你的電腦尚未安裝解壓軟件
先將賓客姓名/或抽獎劵號碼在Sheet2輸入
然後在Sheet1進行抽獎
有關排版/視覺/音效/速度...等等, 各人要求不同, 但希望你有用
如Sheet2輸入 1~49, 更可作為六合彩選號
http://www.FunP.Net/958343
2009-11-26 10:09:42 補充：
文件是須要解壓的, 可能你的電腦尚未安裝解壓軟件
收錄日期: 2021-04-19 20:43:23
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20091125000051KK00405