无聊的时候用Excel抽个签，手感完全不同

无聊的时候自己搞一个小程序抽签，试试手气如何

我曾在重庆磁器口古镇花了一元钱进行抽签玩玩而已，这个设计的人挺聪明，无人值守，自己扫码付款一元，随机抽签，这相当于一个微型印钞机呀，老板估计财务自由了。

其实这个也可以用Excel来编一个，不过没有抽签的那种手感，电子版的完全不一样。

我在A列和B列编写如下内容。

绘制一个按钮，如下效果

当你无聊的时候，就可以随机抽签，试试手气，抽奖也是类似这样做出来的。

按钮里的代码如下：

每次点击一下，随机抽签。

代码解释一下：

Dim 语句为声明数据类型

Randomize 语句确保每次打开文件随机产生，没有这一句，每次打开文件点击第一次出现的都是相同的。

INT(最大-最小)*rnd+1)固定语句，可以获取最小到最大随机数。这里最大为第16行，最小为第1行，所以16-1 。

Cells(myrow,1)为第1列随机行，cells(myrow,2)第2列随机行。

Vbcrlf 换行显示。中间用&拼结一下。

显示如下效果

至此解释完毕。