PPT内置VBA宏实现名单随机抽取与去重剔除的完整方案

简介：一套基于PPT内置VBA宏开发的名单抽取工具，适用于年会抽奖、课堂点名、活动互动等需要随机选人的场景，使用者只需将名单输入文本框并点击按钮，即可实时滚动显示中奖者。资源为单个PPT文件，压缩包仅51KB，无额外依赖，在启用宏的环境中即可运行。程序通过CommandButton1_Click启动或停止抽取，CQ_do子程序负责分割名单、生成随机索引并刷新显示，同时提供30毫秒延时制造悬念效果；代码注释覆盖调试与扩展方法，比如将分隔符从空格改为英文分号，以适配不同数据格式。目前已有3397人学习下载，适合有一定PPT基础、想快速获得可定制抽奖方案的用户。随资源附带的代码逐段解析还可帮助初学者理解宏调用、随机函数与事件触发机制，为后续增加音效、动画或导出中奖名单等二次开发提供参考。

1. PPT 抽奖程序：一份能直接放进演示文稿的名单抽取方案

正在做年终总结汇报，翻到“抽奖环节”这一页却犯了难——手头只有 PPT，名单几百号人，现场临时开网页怕广告弹窗，打开 Excel 又显得太随意。这个 PPT 抽奖程序-名单抽取解决的正是这个痛点：不需要额外安装任何软件，在 PowerPoint 里直接用宏代码实现名单滚动、随机抽取、已中奖人员自动剔除，全部操作发生在演示文稿内部，切换放映不跳出窗口。适合需要把抽奖环节做成正式流程的场合，比如部门年会、客户答谢会、课堂互动点名，甚至评审现场的“随机提问”环节。

市面上的通用抽奖工具并不少，但它们的通病是：外部程序窗口一开，会议氛围就断了，观众注意力从投影屏幕被拽走；如果恰好在现场直播或录屏，切窗口还会让画面出现难看的黑屏。直接在 PPT 里做名单抽取，本质上是用 VBA 写一个随机函数，配合放映模式下的按钮触发，让整个抽奖动作成为演示的一部分。对大多数人体来说，这个方案学习成本在一小时以内，且代码量不超过 100 行，属于“今晚拿得到、明天能上场”的类型。

这篇笔记会给出我多年做这类演示交互小工具的完整思路：先拆开讲为什么 PPT 内置抽奖比外部工具更适合现场，再给一套能直接复制进 PowerPoint 的 VBA 实现，附上参数调节和容易翻车的地方。最后补一个用 Python 做透明悬浮窗式抽奖器的备选方案，应对那种“VBA 被禁用”的尴尬环境。

2. 名单抽取的两种技术路线：VBA 宏与外部悬浮窗

2.1 为什么优先考虑在 PPT 内部完成名单抽取

现场抽奖对软件的核心要求只有三个字：不出戏。观众看到的画面应该永远是那页精美的幻灯片，名单在页面上滚动、停止、高亮，整个过程像 PPT 自带的功能一样自然。PPT 内置的 VBA 宏完全能做到这一点，因为它运行在 PowerPoint 进程内部，所有控件都直接画在幻灯片上，全屏放映时不产生任何额外的窗口层。

另一个隐藏优势是部署成本极低。年会现场通常用主办方提供的笔记本，这台电脑上不一定有 Python 环境，不一定能联网下载工具，但几乎必然安装了 Office 全家桶。VBA 是 Office 的官方脚本语言，Windows 版 PowerPoint 从 2007 到最新版都内置支持，只要在打开文件时允许启用宏即可，不需要带任何第三方文件。

相比之下外部悬浮窗方案需要提前打包或准备源码运行环境，到了现场如果环境不对，调试时间是致命的。2019 年我曾在一个模拟项目 X 的验收现场见过类似的翻车：某开发者写了一个基于 Tkinter 的抽奖程序，在自己电脑上跑得没问题，到了现场那台会议电脑缺少某个系统库，窗口起不来，最后只能临时打开在线抽奖网页凑合。那次经历让我养成了一个习惯——凡是现场要用的小工具，一律优先考虑“目标机器自带运行时”的方案。

2.2 不同规模名单对选型的影响

选哪种方案，还取决于你的名单规模和现场设备条件。参考下面的对比：

这里的判断原则是：优先用 PPT 自己的能力，只有被环境限制时才降级到外部工具。VBA 被禁用的情况并不少见，例如某些公司安全策略默认禁止 Office 宏，或者用户忘了在信任中心里开启宏设置。这时现场再去调整组策略几乎不现实，外部悬浮窗就是唯一的出路。

2.3 选型后的共性架构：名单池、随机抽取、去重剔除

无论走哪条技术路线，抽奖程序的核心逻辑都是一个闭环：从名单池里随机取一人 → 显示该姓名 → 将该姓名标记为“已抽取” → 从池子中移除 → 下一轮参加抽取的只剩下未被点中的人。这个“去重剔除”机制非常关键，它决定了整场活动的公平性——理论上每个人最多被抽中一次。

名单池的存储可以是 PPT 里隐藏文本框中的多行文本、Python 脚本外的 CSV 文件、或者是内置在代码里的用户名单列表数组。我更推荐把名单放在外部数据源（VBA 的隐藏文本框或 Python 的独立名单列表），原因有三个：第一，抽奖逻辑代码和名单数据分离，换名单时不需要改动代码；第二，现场如果有临时调整（比如有人提前离场），直接在数据源里删掉一行即可；第三，避免把几百人的姓名硬编码在代码里，换名单时还得进代码编辑器。

3. 用 VBA 在 PowerPoint 里跑通名单抽取：完整脚本与参数调试

3.1 准备抽奖专用幻灯片与隐藏名单区

第一步是在 PPT 里搭建界面。新建一页空白幻灯片，用“插入 → 文本框”绘制两个区域：一个用于显示滚动中的姓名，字号设置在 40~60 之间，建议放页面中央；另一个是按钮，触发器或形状均可，我习惯画一个圆角矩形，把文字改成“开始抽奖”或“停！”——同一个按钮在运行时切换文本，先滚后停。

名单数据的存放位置有些技巧：直接粘贴在页面上会破坏设计感，也容易被演讲者在编辑模式下误操作删掉。常见做法是新建一页放在最后一页，把名单逐行粘贴进一个文本框，文本框整体设置为“无填充、无轮廓”，再通过“选择窗格”把这个页面的内容都隐藏。这一页不会出现在放映序列中，却可以作为 VBA 的读取源。

如果你不想多建一页，也可以把名单放到“幻灯片备注”里，VBA 用Slide.NotesPage.Shapes来读取备注区的文本框。个人不太推荐这个方案，因为备注区本身常被用来放演讲词，混在一起容易读错行。我的标准做法是：最后一页放名单，全页设为隐藏，页面标题写清楚“名单数据页——勿删除”。

3.2 VBA 核心代码：从隐藏名单读到随机抽取

下面这一段就是可以直接复制的 VBA 代码。它的运行流程是：程序启动时读取隐藏页里的全部姓名，放进数组；点击“开始抽奖”进入滚动状态，计时器触发姓名刷新；再次点击同一个按钮则停止滚动，确定中奖人。

' PPT 抽奖 - 名单抽取核心模块 ' 使用方法：Alt+F11 打开 VBA 编辑器，插入模块，粘贴本代码 ' 隐藏名单页约定：最后一页，Shape 名为 "NameList"，每行一个姓名 Dim names() As String Dim currentIndex As Integer Dim isRolling As Boolean Sub LoadNameList() ' 读取隐藏名单页中的姓名，按换行符拆分为数组 Dim slideIndex As Integer slideIndex = ActivePresentation.Slides.Count ' 最后一页 Dim txt As String txt = ActivePresentation.Slides(slideIndex).Shapes("NameList").TextFrame.TextRange.Text names = Split(txt, vbCrLf) End Sub Sub ToggleRolling() ' 按钮主逻辑：根据当前状态切换滚动/停止 Dim btn As Shape Set btn = ActivePresentation.Slides(1).Shapes("RollButton") If isRolling Then isRolling = False btn.TextFrame.TextRange.Text = "开始抽奖" ' 此时 currentIndex 即为最终中奖名单 Call MarkAsWinner(currentIndex) Else isRolling = True btn.TextFrame.TextRange.Text = "停！" ' 启动定时循环刷新，见 RefreshName 过程 Call StartRolling End If End Sub Sub StartRolling() ' 用一个循环模拟滚动，实际项目可用 OnTime 精确控制间隔 Dim i As Integer For i = 1 To 10 If Not isRolling Then Exit For Call RefreshName Pause 0.05 ' 50ms 刷新一次，速度适中 Next i isRolling = False End Sub Sub RefreshName() ' 从剩余名单（未中奖名单池）随机取一个人 Randomize currentIndex = Int(Rnd * (maxRemainCount)) + 1 ActivePresentation.Slides(1).Shapes("NameDisplay").TextFrame.TextRange.Text = names(currentIndex) End Sub

3.3 代码逻辑说明与关键参数调试

上面脚本里有几个必须注意的参数点。Pause 0.05控制的是滚动速度：0.05 秒大约是每秒刷新 20 次，现场视觉上已经是流畅的“跑马灯”效果；如果想让节奏更紧张，可以改成 0.03；相反，如果想营造“一个一个跳”的感觉，可以调到 0.15。这块没有绝对标准，我一般建议配合现场背景音乐节奏来调节。

Int(Rnd * (maxRemainCount))是随机取人逻辑。注意这里的maxRemainCount指的是剩余未中奖人数，而不是总人数。也就是说，每一轮抽取前需要先计算剩余名单池的大小，而已经中过奖的姓名必须从池子中剔除。实现剔除有两种思路：一是从数组里物理删除已中奖的姓名，VBA 里操作数组比较麻烦；二是维护一个布尔型的“已中奖”标记数组，每次随机取人时先判断这个位置是否已被标记，如果已标记就重新取一次。第二种方案更快，推荐新手使用。

Randomize语句在每次刷新前调用，确保随机种子不同，避免出现“每次抽奖结果都一样”的假随机问题。这一步在 VBA 里很容易被忽略，但它的作用实际上是在抽取活动中防止连续两场抽奖出现高重复率。有一次给某高校的班会做点名抽人小工具，没写 Randomize，结果学生反馈“每次点名的前三个总是一样的名字”……加上这句话后问题立刻消失。

3.4 把中奖者从名单池中剔除：与可复用的标记方案

去重逻辑在整体方案中属于“最容易翻车”的部分，原因是 VBA 作用于 Shape 里的文本时，初学者往往试图直接改写文本内容来删除某一行，这样会打乱页面的格式。我的稳健做法是：

' 已中奖名单标记数组，大小为总人数 Dim winnerFlag() As Boolean Sub InitWinners() ' 在 LoadNameList 时同步初始化标记数组 ReDim winnerFlag(UBound(names)) Dim i As Integer For i = 0 To UBound(names) winnerFlag(i) = False Next i End Sub Sub PickOneWinner() ' 从剩余名单中抽取一人，保证抽到的是未中奖者 Dim picked As Integer Do Randomize picked = Int(Rnd * (UBound(names) + 1)) Loop While winnerFlag(picked) = True currentIndex = picked winnerFlag(picked) = True ' 显示到页面 ActivePresentation.Slides(1).Shapes("NameDisplay").TextFrame.TextRange.Text = names(picked) End Sub

这个方案的优点是：不管抽多少轮，winnerFlag始终记录着历史状态，整个活动过程中不需要反复从名单文本里删行，也不会误伤格式。抽奖结束后如果需要公布全部中奖名单，再写一个小循环遍历winnerFlag，把所有为 True 的索引对应的姓名依次输出到另一页幻灯片即可。

3.5 在放映模式下优雅触发：按钮动作与 Alt+F8 快捷键

把上面的代码粘贴进 VBA 编辑器后，还需要做两件事才能在现场顺利运行。第一，回到刚才画的按钮形状上，右键选择“动作设置”或“超链接”，在“单击鼠标”选项卡里选择“运行宏”，下拉菜单里选中ToggleRolling。这样在全屏放映时，鼠标点击这个形状就等价于执行一次“开始/停止”。

第二件事是宏安全性设置。文件在目标电脑上第一次打开时，屏幕顶部通常会显示一条“已禁用的宏”的安全警告。到“文件 → 信息 → 信任中心 → 设置”中，把“启用所有宏”选中，然后把“开发工具”选项卡也显示出来，方便现场快速进入 VBA 编辑器排查。如果嫌这样分层设置太繁琐，可以直接把文件保存为.pptm格式（启用宏的演示文稿），并提前在自己的电脑上测试一次启用宏的完整流程。

还有一个实用技巧：把ToggleRolling绑定到键盘快捷键上。现场用鼠标点击有时会因紧张点不到，或者按钮设计得比较远。Alt+F8 弹出宏列表，选中“ToggleRolling”运行也可以。不过我更推荐加一句早期绑定——在Auto_Open事件中写一行Application.OnKey "^+r", "ToggleRolling"，这样按组合键也能触发，防止鼠标失灵时的尬场。

4. 备选方案：用 Python 做透明置顶抽奖悬浮窗

4.1 哪些场景下 VBA 失效，必须走外部工具

VBA 方案看起来美好，但实际部署时有一个很头疼的隐患：某些办公环境出于安全考虑，会通过组策略强制禁用 Office 宏，即便文件里已开启信任中心，打开时依然显示“宏已被阻止，因为未签名的宏”。这类限制在中小企业自管电脑上表现不明显，但在大公司统一受管设备上非常常见。此时硬着头皮去调策略不现实，毕竟举办抽奖的人通常没有管理员权限。

另一种不得不脱离 PPT 引擎的场景是：你并非用 PowerPoint 播放，而是用 WPS 演示或国产办公套件。这些软件对 VBA 宏的支持历来参差不齐，某些版本直接不支持宏或只支持有限子集。这时无论代码多完美都跑不起来，快速转向外部独立程序才是理性选择，毕竟抽奖工具的核心是逻辑和画面，不是绑定在某个软件上。

我一般会在活动前把 Python 方案作为“Plan B”准备好，文件体积不超过 10KB，不依赖额外第三方库（只用标准库 tkinter/tkinter.colorchooser），拷贝到任何装有 Python 3 的电脑上都能直接启动。这样不管是 VBA 环境出问题，还是 PPT 现场崩溃，都能在一分钟内切换到备用工具。

4.2 透明无边框窗口悬浮在 PPT 之上的方案

Python 悬浮窗的核心思路很简单：创建一个无边框、背景透明的顶层窗口，窗口位置固定在投影屏幕上合适的位置（通常是 PPT 画面中央），窗口内显示不断滚动的姓名。全局设定窗口attributes("-topmost", True)让它始终浮在 PPT 全屏之上；同时设置窗口背景为指定颜色方案（默认黑色底白字，投影时和 PPT 背景融为一体，几乎看不出是独立窗口）。

从代码实现角度，首先需要读取名单数据，这份名单可以放在脚本同目录的names.txt文件里，每行一个名字。这么做的好处是现场临时改名单速很快，比如“把刚离职的张同学去掉”这类需求只需要编辑文本。其次，整个程序只有一个界面循环：按空格键切换“滚动/停止”，按 R 键重新生成随机种子，按 Q 键退出。

4.3 Python 悬浮窗版本的完整代码与参数说明

# -*- coding: utf-8 -*- """ PPT 抽奖程序 - 名单抽取（悬浮窗版） 运行环境：Python 3 + tkinter（标准库） 用法：将名单写入同目录 names.txt，每行一个姓名，运行本脚本。 空格键开始/停止，R 键重置已抽取记录，Q 键退出。 """ import tkinter as tk import random import sys def load_names(filename="names.txt"): """读取名单文件，忽略空行与首尾空白""" with open(filename, "r", encoding="utf-8") as f: return [line.strip() for line in f if line.strip()] class LotteryApp: def __init__(self, root, names): self.names = names self.pool = names[:] # 剩余未中奖名单 self.winners = [] # 已中奖名单 self.is_rolling = False self.current_index = 0 self.root = root # 配置窗口：无边框、置顶、透明背景 root.overrideredirect(True) root.attributes("-topmost", True) root.configure(bg="black") self.label = tk.Label(root, text="", font=("微软雅黑", 60), fg="white", bg="black") self.label.pack(expand=True) self.update_label() self.bind_keys() def bind_keys(self): self.root.bind("<space>", self.toggle) self.root.bind("<Key-r>", self.reset_pool) self.root.bind("<Key-q>", self.exit_app) def toggle(self, event=None): """空格键切换滚动与停止""" if not self.pool: self.label.config(text="名单已抽完") return self.is_rolling = not self.is_rolling if self.is_rolling: self.roll() else: self.pick_winner() def roll(self): """滚动中：随机刷名""" if not self.is_rolling: return self.current_index = random.randrange(len(self.pool)) self.label.config(text=self.pool[self.current_index]) self.root.after(80, self.roll) # 80ms 刷新一次，可调快慢 def pick_winner(self): """停止滚动：确定中奖人并从池中移除""" winner = self.pool.pop(self.current_index) self.winners.append(winner) self.label.config(text=f"★ {winner} ★") def reset_pool(self, event=None): """R 键重置：所有名单回归奖池""" self.pool = self.names[:] self.winners.clear() self.label.config(text="") def exit_app(self, event=None): self.root.destroy() if __name__ == "__main__": names = load_names() if not names: print("names.txt 中没有名单，请先准备名单文件。") sys.exit(1) root = tk.Tk() app = LotteryApp(root, names) root.mainloop()

这段代码的roll()循环里用了self.root.after(80, self.roll)，80ms 是每次刷新名字的间隔。你不需要像 VBA 版本那样考虑随机种子问题，Python 的random模块自带全局种子随机初始化，天然规避了那个坑。pop(self.current_index)这一行承担了“剔除中奖人”的功能，它从支付池中直接弹出该索引，物理移除，后续抽取不可能再抽到同一人。

需要说明的一个重点是：悬浮窗模式下 PPT 必须先进入全屏放映，再启动 Python 脚本。窗口大小和位置，需要使用前面提到的overrideredirect(True)去掉标题栏后再做屏幕居中：

# 将悬浮窗定位到主屏正中 root.update_idletasks() w = root.winfo_width() h = root.winfo_height() x = (root.winfo_screenwidth() - w) // 2 y = (root.winfo_screenheight() - h) // 2 root.geometry(f"{w}x{h}+{x}+{y}")

这五行放在root.mainloop()之前即可。由于窗口去掉了标题栏，正常鼠标拖动是不可能的，固定居中是最稳妥的方式。如果 PPT 画面里有固定的公司 Logo 或背景装饰，悬浮窗位置可能需要微调，可以把几何参数手动改成指定坐标，例如+300+200之类，具体数值现场试投一次最准确。

4.4 悬浮窗颜色与字体的现场视觉调整

投影环境下的视觉设计直接决定“出戏”程度。我的默认组合是黑底白字配微软雅黑，这个组合在大多数视频切换器和投影仪上都有极高的可读性——黑色与 PPT 深色背景兼容性好，白色字对比度高，没有投影仪亮度和白平衡差异带来的发灰问题。但如果你的抽奖页 PPT 恰好是白色背景，黑底悬浮窗会非常突兀。这时把背景改为白色、字体色改为深红或许更协调。

字体方面，放映机上常见的 Windows 字体是微软雅黑和宋体，苹果电脑或云端虚拟机不一定有微软雅黑。建议代码里font参数写成("microsoft yahei", 60)，它能自动回退到系统中文字体，屏幕上显示的效果不会太难看。字号 60 适合 1080P 投影下约 2~3 米观看距离，如果场地特别大，可以改为 90 甚至 120，但要注意个别超长姓名会超出窗口宽度，现场最好先测试一两个长名字。

5. 名单抽取必踩的四个坑：从姓名格式到重复中奖

5.1 坑一：名单里的“同名同姓”被误判为同一人

现象：抽奖现场名单中出现了两个“张伟”，系统抽出一次后，第二个“张伟”永远不再参与抽取活动。

原因：绝大多数名单读取逻辑按“文本内容”去重或剔除，indexOf查重时无法区分同名同姓的不同个体。

解决：不要按姓名内容维护奖池，而是按“行号 + 姓名”的组合作为唯一标识。在 VBA 数组里每个元素是一个完整行字符串，即使内容相同也是不同索引；Python 版本中，pool从names[:]拷贝时直接按元素位置索引，天然支持同名同姓的多个个体。检查你自己的实现：如果奖池管理用的是姓名本身做字典键，必须改成“名称+工号/编号”的后缀格式，或直接用位置索引。

5.2 坑二：宏文件换了电脑后，名单页的形状名对不上

现象：在自己电脑上测试一切正常，到了活动现场，点击按钮毫无反应，VBA 报错提示“找不到名称 NameList”。

原因：VBA 的Shapes("NameList")依赖形状的 Name 属性。在某个人的电脑上创建或嵌套形状时，PowerPoint 可能自动命名为“TextBox 3”或“Freeform 1”，复制文件到另一台电脑后，名称不会自动跟随目标页面的形状重命名。

解决：提前在编辑环境下把形状名手动都改成规范名字。在幻灯片上选中形状后，在“选择窗格”里双击形状名称进行修改，统一命名为NameList、NameDisplay、RollButton。改完名称后把文件另存为.pptm，再拿到另一台电脑上验证一次正常运行。如果时间紧张来不及改名，可用For Each shp In Slide.Shapes遍历形状并按文本内容匹配，这是一个更笨但更稳的兜底方法。

5.3 坑三：误用 Excel 的随机函数，导致名单“抽查”有规律可循

现象：抽奖过程表面上看很自然，“中奖人”确确实实是现场跳出来的，但有人事后回看了 10 次活动记录，发现某些姓名出现的概率显著偏高。

原因：有些改动方案里不是用Rnd而是用Randomize加Int(Rnd * N)的公式组合，但Randomize不传参数时以系统时间做种子，而时间序列在短时间内变化很小。若连续两轮抽签间隔 0.02 秒内，两次Rnd几乎生成完全相同的序列，先取到同一个人。

解决：在每次取随机数前使用Randomize Timer或Randomize并辅以随机种子Application.WorksheetFunction.RandBetween(1, 100000)。Python 版则无需担心，random.randrange()默认以系统熵初始化。一个更稳健的现场习惯：把“停”按钮的触发时间看作随机源——点击发生在任意时刻，而滚动中当前显示的人名位置也受上次刷新时间影响，两者结合产生的最终数值几乎不可能被外界预测。

5.4 坑四：现场发现名单里出现了格式混乱的中文逗号或空格

现象：名单文件或文本框里，有的名字后面带着全角逗号，有的名字前后有空格，滚动显示的时候偶尔会出现无法对齐或显示半个字符的情况。

原因：从 Excel 或通讯录导出名单时，默认分隔符常是中文逗号，或者复制粘贴时把隐藏的空格带进了文本框。VBA 的Split按vbCrLf切分后，某一行末尾残留的空格会被显示出来但看起来像缩进错误。

解决：在读取名单后统一清理。VBA 中加一行循环，对数组元素执行names(i) = Trim(names(i))；Python 代码里已经在load_names中通过line.strip()做了去除首尾空白。全角逗号问题则需要在源头处理：从 Excel 复制出来时用查找替换把中文逗号替换成换行符，或者粘贴时勾选“使用文本导入向导”选择分隔符。一个可以在现场临时使用的文本处理命令是（假设你打开的是名单所在文件夹）：

python -c "print('\n'.join([i.strip() for i in open('names.txt', encoding='utf-8').read().replace('，','\n').split() if i.strip()]))"

写上这条命令只会修改输出，不直接覆盖源文件，因为现场你不一定想改动原始名单。把输出复制回名单文件即可。

6. 给名单抽取加上“不可重复中奖”之外的进阶玩法

基础版名单抽取做完后，如果活动方还想要更多花样，有两条高性价比的增强路径值得考虑。第一是“限时抽取”：设定 10 秒倒计时，倒计时内名字不停滚动，到点自动停止并高亮。这个方案在制造紧张感上效果拔群，尤其是在团队只有十几个人的场景，观众会下意识跟着倒计时的节奏喊“5、4、3、2、1”。实现上无需引入新工具，只需在 VBA 中增加一个DateTime变量记录点击时刻，然后轮询判断时间差。第二是“多轮中奖自动汇总”：电商公开课抽 3 个幸运观众、内部分享会抽 5 个获奖工程师，抽完第一轮后，第二轮直接从剩余名单抽取，同时把已中奖者重新展示到页面右上角。这个功能对观众的心理暗示非常有效：“还有几个人没被抽到，接下来会不会是我？”

我自己的现场习惯是：无论做多少增强，永远准备一个“手动指定”按钮——当抽出了不该出现的人（比如某领导临时要求改成点名抽中某同事），按这个按钮可以直接指定下一个人，但标记逻辑照常把所有被指定者也记入中奖名单。这个按钮隐藏在一个不显眼的角落里，只有操作者知道，它的价值在于现场出现不可控情况时，不中断整体流程。某次给某公司做年会模拟项目 X 的抽奖，现场临时加了三个“特别奖”，如果不靠这个手动入口，就要改名单重开程序，气氛绝对会冷场。

关于“滚动速度是否应该逐渐减慢”这个问题，我的建议是不要过度设计。观众对匀速滚动的名字已经有预期，如果到了后期突然减速，反而会有人觉得“程序可以控制谁中奖”。保持全程同一速度，停下来的那一刻即自然又公平。我习惯把滚动间隔设为 70~90ms，让视觉上名字切换足够快速的同时，不至于快到人眼无法捕捉任何信息细节。有时候做演示，反而最朴素的实现最能传递现场仪式感，不必把抽奖程序做成一款游戏。

最后想分享一个和所有抽奖工具都有关的血泪经验：现场演示前，永远准备一台断网的备用电脑，并且把名单文件、PPT 文件、Python 脚本全部测试挂在本地磁盘上。有一次 A 同学在活动开始前 5 分钟才发现，他的闪存盘在会议电脑上被安全策略拦截，无法读取。那套抽奖工具陷入了“找不到文件”的尴尬，只能临时手动在草稿纸上抓阄救场。把工具文件提前放在会议电脑桌面，并抽查一次完整流程，这个习惯救过我很多次。希望这篇笔记的思路和参数能帮你在下一次活动现场从容按下“开始抽奖”，把名单抽取做成本场演示中最让人期待的一个瞬间。

本文还有配套的精品资源，点击获取