大家好，如果您还对人名随机抽签器不太了解，没有关系，今天就由本站为大家分享人名随机抽签器的知识，包括怎样用excel随机抽取人名的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！
如何在PPT里做一个随机抽取人名的东西
1、首先，我们在单词上编辑我们的名字。
2、如何使用PPT进行随机名称*然后在我们的办公室打开它。打开我们的word文件，自动将我们的人员输入我们的ppt。
3、然后选择视图主文件，将文本框居中，并调整文本大小和字体。关闭后，我们可以根据需要调整副本。
4、选择主控后，我们在动画中将显示时间设置为0。从点击开关上取下挂钩。并适用所有。
5、然后输入我们的节目设置并单击设置中的循环节目。确定。
6、之后，我们可以开始随机随机抽签，按S暂停。
如何让随即抽签中的人名动起来(VB语言)
新建一个工程，添加一个timer控件，1个text控件，1个command控件。将下面的程序*过去就可以了
Private
Sub
Command1_Click()
If
Command1.Caption
=
"开始"
Then
Timer1.Enabled
=
True
Command1.Caption
=
"结束"
Else
Timer1.Enabled
=
False
Command1.Caption
=
"开始"
End
If
End
Sub
Private
Sub
Form_Load()
Timer1.Interval
=
10
Timer1.Enabled
=
False
Text1.FontSize
=
20
End
Sub
Private
Sub
Timer1_Timer()
Dim
r
As
Integer
r
=
Int(51
*
Rnd
+
1)
If
r
=
1
Then
k
=
"揣露露"
If
r
=
2
Then
k
=
"黄德青"
If
r
=
3
Then
k
=
"王慧"
If
r
=
4
Then
k
=
"张义"
If
r
=
5
Then
k
=
"井仁仁"
If
r
=
6
Then
k
=
"*娜"
If
r
=
7
Then
k
=
"晋兰兰"
If
r
=
8
Then
k
=
"孙秉玺"
If
r
=
9
Then
k
=
"毛金枫"
If
r
=
10
Then
k
=
"李晓明"
If
r
=
11
Then
k
=
"崔怡春"
If
r
=
12
Then
k
=
"曹露露"
If
r
=
13
Then
k
=
"刘明锦"
If
r
=
14
Then
k
=
"张书萍"
If
r
=
15
Then
k
=
"陈亚丽"
If
r
=
16
Then
k
=
"戚苗苗"
If
r
=
17
Then
k
=
"赵明明"
If
r
=
18
Then
k
=
"刘明飞"
If
r
=
19
Then
k
=
"张彬"
If
r
=
20
Then
k
=
"刘文恒"
If
r
=
21
Then
k
=
"黄飞燕"
If
r
=
22
Then
k
=
"王良"
If
r
=
23
Then
k
=
"常洪宽"
If
r
=
24
Then
k
=
"何艳伟"
If
r
=
25
Then
k
=
"杨鹏飞"
If
r
=
26
Then
k
=
"陈登"
If
r
=
27
Then
k
=
"刁飞翔"
If
r
=
28
Then
k
=
"黄雪伟"
If
r
=
29
Then
k
=
"陈永杰"
If
r
=
30
Then
k
=
"刘博文"
If
r
=
31
Then
k
=
"王梓"
If
r
=
32
Then
k
=
"张亚威"
If
r
=
33
Then
k
=
"席博帅"
If
r
=
34
Then
k
=
"李岩"
If
r
=
35
Then
k
=
"李才龙"
If
r
=
36
Then
k
=
"夏扬征"
If
r
=
37
Then
k
=
"张自阳"
If
r
=
38
Then
k
=
"齐梦飞"
If
r
=
39
Then
k
=
"张强"
If
r
=
40
Then
k
=
"李浩强"
If
r
=
41
Then
k
=
"郭孝峰"
If
r
=
42
Then
k
=
"王巍博"
If
r
=
43
Then
k
=
"汪恒"
If
r
=
44
Then
k
=
"毕夏男"
If
r
=
45
Then
k
=
"孟杨锐"
If
r
=
46
Then
k
=
"郭君鹏"
If
r
=
47
Then
k
=
"马石林"
If
r
=
48
Then
k
=
"侯彪"
If
r
=
49
Then
k
=
"朱磊"
If
r
=
50
Then
k
=
"张禹"
If
r
=
51
Then
k
=
"常小宇"
Text1.Text
=
k
End
Sub
VB做抽签程序的代码
PublicjAsInteger
DimA()AsString
DimtemAsString
PrivateSubCMD1_Click()'注意这里如果没有exitsub，责会出现captio不会变的，其实已经变过了
IfCMD1.Caption="开始"Then
CMD1.Caption="停止"
Timer1.Enabled=True
ExitSub
EndIf
IfCMD1.Caption="停止"Then
CMD1.Caption="开始"
Timer1.Enabled=False
Iftem<>""Then
Text1.Text=tem
EndIf
EndIf
EndSub
PrivateSubCMD2_Click()
Frame1.Visible=True
Text2.Visible=True
CMD3.Visible=True
CMD4.Visible=True
EndSub
PrivateSubCMD3_Click()
Text2.Visible=False
CMD3.Visible=False
CMD4.Visible=False
tem=Text2.Text
EndSub
PrivateSubCMD4_Click()
Text2.Text=""
Text2.Visible=False
CMD3.Visible=False
CMD4.Visible=False
EndSub
PrivateSubform_load()
Frame1.Visible=False
Text2.Visible=False
CMD3.Visible=False
CMD4.Visible=False
Timer1.Enabled=False
Timer1.Interval=300
Open"C:\DocumentsandSettings\Administrator\桌面\新建文本文档.txt"ForInputAs1
DoUntilEOF(1)
ReDimPreserveA(0ToI)
Input#1,A(I)
I=I+1
Loop
Close#1
EndSub
PrivateSubTimer1_Timer()
Text1.Text=A(j)
j=j+1
Ifj=UBound(A)Then
j=0
EndIf
EndSub
已经运行通过，不过事先你得在桌面建立一个文本文件，用来存储数据，呵呵
怎样用excel随机抽取人名
1、首先打开要进行随机抽查的人员表。
2、然后打开*函数对话框，类别中选择【全部】。
3、然后找到【RANDBETWEEN】，点击。
4、然后设置数字的zui低值，还有zui高值。
5、接着在抽查人员框中输入【=VLOOKUP(D2,A2:B11,2,FALSE)】。
6、zui后即可看到抽查号码和对应的抽查人员。
END，本文到此结束，如果可以帮助到大家，还望关注本站哦！
本文来自艳巧投稿，不代表侠客易学立场，如若转载，请注明出处：http://www.skyjtgw.com/183739.html
微信扫一扫 
