2024年5月30日发(作者：)

EXCEL做随机抽奖摇奖器

来源:

百度经验

作者:

佚名

更新时间:

12-22

点击:

118次

当年终时，有些企业会组织职工联欢会，可能还会搞个抽奖的小节目增添乐趣，

下面就介绍一个用EXCEL做的简单的抽奖工具。 第一步：画表格 假设共有30

位职工，就需要30个号码，先按下图的样子把1至30个号码填列到一个工作表

中。 为了美观，可以把字体设成自己喜

当年终时，有些企业会组织职工联欢会，可能还会搞个抽奖的

小节目增添乐趣，下面就介绍一个用EXCEL做的简单的抽奖工具。

第一步：画表格

假设共有30位职工，就需要30个号码，先按下图的样子把1至30个号码填列

到一个工作表中。

为了美观，可以把字体设成自己喜欢的颜色，加上边框，再把号码以外的网格线

隐藏起来。

设置字体颜色：选中B2:F7区域，按“格式－单元格”，选“字体”选项卡，里

面可设置字体颜色（也可在上面工具栏中的“字体颜色”中设置）。

加边框：选中B2:F7区域，按“格式－单元格”，选“边框”选项卡，在“颜色”

中选“青色”，再从“线条样式”中选择双线，点“外边框”，设置外边框为青

色双线型；同样步骤，从“边框”选项卡的“颜色”中选“兰色”，再从“线条

样式”中选择细实线，点“内部”，设置单元格内部边框为兰色的细实线。本文

来自

隐藏网格线：按上面菜单栏上的“工具－选项”，在“视图”选项卡中，去掉“网

格线”前的勾即可。

第二步：编写代码

在工作表下面的标签上点鼠标右键，选“查看代码”，调出VBA窗口，把下面代

码复制进去就行了。

Dim a As Integer '定义公共变量

Sub 随机()

Dim x As Integer

Dim y As Integer