找回密码
 立即注册

QQ登录

只需一步,快速开始

教程经验总索引TVMW5/小日本5 索引【视频转换】小日本4/TE4XP 索引【视频转换】TAW4 / TDA3 索引【DVD打包软件】
Nero 索引DVD-Lab 索引【DVD打包软件】编解码器 索引 【必读】固顶帖011号
查看: 844|回复: 1

[Office办公] PPT实现一个随机抽取单个名字的功能

[复制链接]

9328

威望

244

金钱

1万

贡献

管理员

自由的灵魂

积分
99815
主题
5263
回帖
26212
注册时间
2003-4-10
最后登录
2024-3-29
发表于 2019-10-23 09:53:48 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×

以PowerPoint 2007为例(2010及以上类似,2003直接“视图→工具栏→控件工具箱”即可)

打开PowerPoint,将文件保存为*.pptm格式(包含宏代码的演示文稿
若没有“开发工具”选项卡,请打开

通过“开发工具”选项卡,插入一个文本框控件,和两个命令按钮控件

文本框控件:命名为“TextBox1”(选中控件,更改“属性”当中的“(名称)”)(IsaacZ注:好像这就是默认的名称)
命令按钮控件:一个命名为“开始”,另一个命名为“清除”(选中控件,更改“属性”当中的“Caption”)

可根据自己的需要,更改“文本框”以及“命令按钮”字体、字号等属性(IsaacZ注:右边的三个点按钮)

编写程序(示例)双击“开始”按钮,弹出程序编写框,在中间空白处输入以下内容:
  1. <blockquote>Dim a As Integer
复制代码

可将“s = "后的内容改为自己需要的名字,注意三个字的不加空格,两个字的后面要加一空格

双击“结束”按钮,在中间空白处输入:
  1. TextBox1.Text = ""
复制代码

这样便可以实现随机抽取姓名的功能。


IsaacZ注:有可能会抽取到之前已经抽到的名字。
IsaacZ的发言中如果提到任何字母缩写或专有名词,在本论坛中一般都能搜索到。点此立即搜索点拨论坛。如有搜索不到的,请尝试搜索百度百科,或者跟帖提问。
发帖前请注意看置顶帖。如果你发现自己的问题没有得到回答,说明你的问题提错了地方或者提问前未先阅读本版规则固顶帖011号

0

威望

1355

金钱

3

贡献

初级会员

积分
1397
主题
4
回帖
138
注册时间
2019-8-26
最后登录
2024-3-25
发表于 2019-10-23 14:22:51 | 显示全部楼层
可能用不到,先收了,藏起来。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|点拨论坛

GMT+8, 2024-3-29 20:04 , Processed in 0.142970 second(s), 5 queries , Redis On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表