如何利用excel制作抽取人员名单，抽取的结果要包括 随机号码及姓名！_百度知道
如何利用excel制作抽取人员名单，抽取的结果要包括 随机号码及姓名！
提问者采纳
比如=RANDBETWEEN(1,100)可以得到1到100的数字将人员按顺序编好，比如编号从1到100然后用randbetween产生编号范围内的数字
我试试吧~朋友 谢谢了~
提问者评价
其他类似问题
您可能关注的推广
excel的相关知识
其他1条回答
就是先做一张有编号的人员名单表，然后抽取随机号码~
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 1006|回复: 17
沃家庭微笑之星投票活动随机抽取手机号码充值20元话费公布名单！
在线时间 小时
管理板块： &
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本帖最后由 论坛轩轩 于
22:40 编辑
微笑之星活动只要投票的手机号码即有机会获得20元话费，感谢大家的支持和关注！
现公开名单~排名不分先后！
，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，
话费啦！！！
在线时间 小时
在线时间 小时
在线时间 小时
在线时间 小时
云石 发表于
话费和手机不能兼得
在线时间 小时
&&我那么漂亮的大号&&。么有啊。
在线时间 小时
浅墨 发表于
我那么漂亮的大号&&。么有啊。
你给361度打广告呢。。
在线时间 小时
梅茜 发表于
话费和手机不能兼得
嗯，我知道了
在线时间 小时
云石 发表于
你给361度打广告呢。。
在线时间 小时
云石 发表于
嗯，我知道了
知道了把手机给我，我给你50话费。。。
在线时间 小时
梅茜 发表于
知道了把手机给我，我给你50话费。。。
你是坏银。。
在线时间 小时
云石 发表于
你是坏银。。
。。。。。。
在线时间 小时
管理板块： &
在线时间 小时
这些号码 买个 信息公司能卖好多钱~~嗯 对 好多好多~~[em08]
在线时间 小时
人生第一次中奖，中了20块！
在线时间 小时
UltimateStorm 发表于
人生第一次中奖，中了20块！
你才看见？？
在线时间 小时
在线时间 小时
发了这么多，还是没有我啊............
站长推荐 /1
Powered bydelphi设计随机抽取手机号码_百度知道
delphi设计随机抽取手机号码
程序应该怎么写比如说，来不断循环的滚动，当按下另一个键时就停止，非常感谢大家的帮助谢谢，当点击Button时，DBEdit（已经跟access库相连）组建调用access数据库里的号码
提问者采纳
cb_Cj: TGroupBox: TOpenDprocedure TForm1.Append(memo1:== memo1:=memo1！' then
showmessage('beginz.L&#47:= cj: TGroupB'
procedure FormClick(Sender.Color :integer.R &#47:=0 to memo1;implementation{$R *.E
showmessage(&#39:= true.Enabled : TBitBtn.Strings[k]);
Memo1.Color .Delete(i).Suspend:=/
bitbtn2: TTimer.Lines.Lines.Count -1 do begin
if memo1.Lines:boolean.Create(true);
procedure ShouD memo1;&#47: TObject).C
{ Private declarations }
z.Strings [i]=tmp then memo1;&#47:=&#39.Timer2Timer(Svar
i.S;请选择参与用户文件: TObject).FileName).Cbegin
end: TObject): TObject);保存完毕;&#47.Lvari: TObject);end.k; if(y & memo1;end:begin
if bitbtn2.L
procedure GroupBox2DblClick(Sbeginif (bz=true) and (bitbtn2.Strings[k];procedure TForm1;)这里有个类似的 你看看有帮助没
end.Panels[2]; edit2.Text = '开始抽奖&#39:= DispCJ;开始抽奖'
Edit2.Lines: TMbeginmemo3;
memo2:= memo1:= self,ExtCtrls.Strings[k]: TbsBusinessSkinF) thenbeginprocedure TForm1;
end.Lend.Lines.Caption &lt:= true:integer: TL
Memo3！'/ cj:= cj,y, Fend: TbsResourceStrData: edit2:= 0 to memo1,TChou.L edit2, Gbegin
if k = 0 then
k :=0 to memo1;procedure TForm1: TCheckBox, BusinessSkinF
bsSkinData1.L&#47.Lines: TObject).k.Delete(i);
ComboBox1.Delete(i);inc(y);procedure TForm1;
edit1.Text)*1000.Lines.Caption ='请选择奖项设置:=1.Text) = '
Label4:=true:=true:string:=strtoint(edit3;
&#47: TLabel, Variants: TE选择奖项设置' end.I
if combobox1;/
Timer2.L then
if trim(edit1;
bz .L获取抽奖结果'
procedure TimeEvent(): TObject); then
if trim(edit1;
boBox1Change(S
procedure Timer2Timer(S'&#47.Interval .Create(true): TObject): TObject)！&#39.R) thenbegin
procedure Edit3Change(Sender.Strings [i]=tmp then memo1;
end:= cj.Count do
if bz=true then
if i &gt: TbsSkinD
end.Execute then
procedure BitBtn2Click(S
bz , Classes.Strings[k]: TSaveD
procedure ComboBox1Change(Sender.Timer1: TObject):=
/procedure TForm1;
procedure BitBtn1Click(S),
ComCtrls, StdC
SaveDialog1: TObject).text);); &#47.Lbegin
if bitbtn2, Cmemo1: inc(y): TObject).Lines.Delete(k).Color.C
BitBtn3:=false: TEdit:= clMedGray.Append(memo1; then
showmessage(&#39.dfm}procedure TForm1;procedure TForm1;抽奖完成.L获取抽奖结果
bz .Caption = &#39.BitBtn1Click(Sender.Count thenend,l;end.TimeEvent();begin
if opendialog1:= true:=true.Execute then begin
end.BitBtn3Click(Sender.Text)*1000;procedure TForm1.Resume.Text .L
GroupBox2;选择奖项设置' cj: TObject);procedure TForm1:= &#39.Enabled :integer:= clMedGray: TT
Timer1.Terminate.Text = &#39.L /
}请选择奖项设置;);
procedure BitBtn3Click(Sender:=0.BitBtn2Click(Sender: TMemo.Count -1 do begin
if memo1:=strtoint(edit3;
Dialogs.FormClick(Sender.Count - 1;抽奖完成;}
timer1.Caption = &#39: TObject),);
ZiDong.ZiD
Label2.Strings[k]);
&#47.k: TLabel: TObject).Strings [i]=tmp then memo1.Lbegin if savedialog1;
bsResourceStrData1.Lines[i]);cj！'
end！&#39！'
showmessage(' end else begin
showmessage(&#39！'
showmessage('
{ Public declarations }procedure TForm1;
StatusBar1;);开始抽奖'
bsBusinessSkinForm1;
bitbtn2;procedure TForm1.Rif(bz=true) and (bitbtn2;cj:= 0.ShouD'
timer1; bitbtn2.SaveToFile(savedialog1.L
cj.Append(memo1:= DispCJ.C
Edit1.Delete(k):= false: TLbegin statusbar1, B
end:=dispcj, SysU请输入获取的此奖的名额.TimeEvent.Color .Edit3Change(Svar/(strtoint(edit1;请输入获取的此奖的名额:=datetimetostr(now); edit2.SetFocus.GroupBox2DblClick(Sender.Strings[k]);)！'&#47.Caption : TObject).Enabled : TForm1.Append(memo1.FileName);
tmp:=0 to memo1.R
tmp:DispCJ; type
TForm1 = class(TForm)
GroupBox1;: I
if(bz=false) then
break.Text))) then begin bz:= clMedG
OpenDialog1;
bsCompressedStoredSkin1: TM
timer1;begin bz.Lines.Timer1;;
cj.Enabled :=false:= &#39.Create(true);开始抽奖&#39:=clWhite.L
bz.Text) = '
inc(k).C).SetFtimer1;
{ bitbtn2;
&#47, j: TGroupB tmp: TBitBtn.Delete(k);var获取抽奖结果'获取抽奖结果'
Edit3:=memo1;/ then
showmessage(&#39: &#47: TObject): TBitBtn.Lines.S
procedure ZiDvar
Form1;/&gt, bsSkinData, M
GroupBox3;
showmessage(&#39: TStatusBar.Count -1 do
end.Checked =false) then
ShouDong else begin
y:=memo1;:=false.Append(combobox1:= '
if k &gt.k:=clW memo3: TbsCompressedStoredSkin: TObject);
cj .Timer1Timer(Sender: TComboB
procedure Timer1Timer(S
if combobox1: TE获取抽奖结果' memo3;
edit2;k;= k then
end.LoadFromFile(opendialog1;begin if(Cb_Cj.Lines.Create(true);/
edit1;interfaceuses
提问者评价
其他类似问题
随机抽取的相关知识
其他1条回答
否则结束。按下另一个按键把全局布尔值设为False，然后计算出数据库中有多少条记录，一次判断全局布尔值是否为True，按下一个按键开始循环，是就取出一条记录先设置一个全局布尔值，初始为True
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁荣耀畅玩4X怎么买？华为荣耀畅玩4X预约购买流程图解
荣耀畅玩4X是10月底华为旗下字品牌荣耀推出的一款千元左右的高性价比智能手机，相信很多都已经知道，华为荣耀将在在12月16日举行新品发布会，除了推出荣耀6 plus之外，还将推出新版的荣耀畅玩4X，其最大的变化在于最新荣耀畅玩4X将搭载华为64位麒麟海思620八核这次新推出的荣耀畅玩4X更值得我们去购买。那么荣耀畅玩4X怎么买？下面网管之家小编为大家详细介绍下华为荣耀畅玩4X预约购买攻略，供大家参考。
荣耀畅玩4X怎么买 荣耀畅玩4X预约购买攻略
荣耀畅玩4X怎么买？
新版荣耀畅玩4X作为一款千元高性价比手机，初期购买的用户会非常多，因此华为商城采用预约抢购的方式开放购买。在发稿之前小编发现目前预约荣耀畅玩4X人数达到了50万人次，数量惊人啊。下面是华为公布这次新版的荣耀畅玩4X预约与开放购买相关信息。
预约时间：日10:08-12月16日18:00
开售时间：日10:08（仅限提前预约用户抢购）
值得笔者提醒的是，虽然新版荣耀畅玩4X的具体价格没有明确公布，但是&？99&的预约价也坐实了此前售价不过千元的消息，性价比依然很出色。
相关阅读：荣耀畅玩4X怎么样 荣耀畅玩4X详细评测
荣耀畅玩4X预约购买攻略
购买华为荣耀畅玩4X，须提前预约，然后再抢购购买，从12月9日（今天）开始，荣耀畅玩4X已经华为官方商城开始接受预约，预约成功用户，即可在12月17日10:08分进行首批发售抢购。以下小编给大家带来详细的荣耀畅玩4X的预约购买攻略流程。
1、首先登录华为官方商城，点击进入，进入华为官网商城之后，我们恨容易找到荣耀畅玩4X预约购买页面，如下图所示：
2、进入预约界面后，我们即可找到预约入口了，由于笔者编辑的时间早就到了预约时间，发现目前预约人数了达到了50万，是一个不小的数字哦，预约用户需要登录华为商城，如果之前已经有注册账号，那么请直接登录完成预约即可，如果还没有华为商城账号，那么注册一个，完成预约即可。
3、预约成功后，即可在12月17日10:08分进行购买，由于预定的用户可能很多，加之初期荣耀畅玩4X供货有数量限制，因此建议大家提前登陆华为商城官网，登陆好自己的账号准时抢购购买。
预约活动规则介绍:
1.本轮预约时间：12月9日10:08-12月16日18:00；
2.预约用户购买：12月17日10:08开抢，仅限本轮预约用户参与，请使用预约手机号码登录购买，每款商品限购1台，数量有限先到先得；
3.奖品设置：一等奖 荣耀畅玩4X全网通金色版手机共10台；二等奖 荣耀畅玩4X移动版手机共30台；三等奖 荣耀引擎耳机共200个；
4.活动期间参与荣耀畅玩4X首发预约，即有机会赢取荣耀畅玩4X全网通金色版手机、 荣耀畅玩4X移动版手机、 荣耀引擎耳机；中奖名单将在活动结束后5个工作日内由系统随机抽取并在华为商城公告公布；请中奖用户在12月25日前前往&个人中心-收货信息&填写默认地址，逾期视为自动放弃获奖资格，实物奖品将于活动结束后15个工作日内根据默认收货地址寄出；
5.根据预约协议，如您的手机号码未注册过华为帐号，该手机号码将自动成为华为帐号，初始密码请留意短信通知，短信可能会延时，请耐心等待；
6.为保护用户的利益，打击黄牛，华为商城将保留取消恶意预约的权利；
7.主办方在法律允许范围内保留对本次活动的解释权。
最新版荣耀畅玩4X依然采用5.5英寸720P显示屏，配备1300万像素主摄像头和500万像素前置摄像头，运行最新Emotion UI 3.0，网络是全网通，支持双卡双待，配3000mAh电池。配置基本上一致。
据笔者了解，即将发布的荣耀畅玩4X依然分为移动/联通低配和高配版本，其中低配版内置1GB RAM、高配版内置2GB RAM，而且有金色可选，具备非常不错的性价比。
顶一下(0) 踩一下(0)
热门标签：做一个真正的随机抽取程序
在用excel时，为了提问方便，制作了一个小程序（宏）来随机抽取学员的名字，第一次用时还可以，第二及以后的试用中可麻烦了，因为每次打开excel后，运行这个程式，竟然抽取出来的学员名单是一样，总是这么几个学员，后来其他学员一见我要提问，就知道下一个是谁了，我气呀，这个破微软，弄的什么随机函数呀。
通过网络查找，终于找到了原因。
在程序中的Rnd都不是真的“随机数”，而是术语称为“伪随机数”。就是说这是一个函数，每次执行时根据前一次的结果生成一个新数，两个数之间又没有明显的联系（当然是一定有联系的）。
首先，计算机是很难产生随机数的，因为自计算机产生就以“精确”为宗旨。计算机是精确型计算，而人脑是模糊型计算。这样计算机在学术计算方面较人脑优秀，但是如果用来分析比如两张照片是不是一个人、这个人算不算胖等的问题，还有随机数的问题，就体现出缺点了。所以，在这个随机数的问题上，我们用“伪随机数”来代替真随机数。如前所述，Rnd函数需要一个数作为基础才能产生下一个数，然后它可以用那个数再产生下下个数，无穷无尽。但这第一个数是什么？那就是“随机数种子”。如果给定相同的种子，则会产生相同的伪随机数列。这个“种子”的产生就在Randomize（你的拼错了）。这条语句以系统毫秒数经过计算形成第一个伪随机数，以后通过Rnd算法生成其他随机数。
由于每次调用Randomize都会生成新的种子，所以如果希望调用上一次生成的随机数列，不能使用Randomize重新初始化随机数列，而应该用负值调用Rnd函数。这样将产生和上次Randomize后完全相同的随机数列。
所以你不调用Randomize生成新的种子，rnd就会以默认的种子，产生序列，而这个默认的种子是相同，因此产生的随机数列也是一样。
知道了这个原因，问题的解决就简单多了，只要在rnd语句前面，加上Randomize就行了，其他什么也不需要。看来很多东西还是要好好学习学习的。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。