一张Excle表帮你解决选择困难症，只要有excle就能做出来

吾日三省吾身，早上吃啥？中午吃啥？晚上吃啥？

在公司附近有这么多吃的，今天该去那一家吃吃什么，每天在这个问题上都是让人值得深思的。

这两天琢磨Excel的时候发现了一个完美结局的方法，适合所有电脑上有Excel的人使用。

我们先在Excel中填一点数据，如图：

然后选择文件——选项——自定义功能区——主选项卡——开发工具——添加

选择开发工具-VisualBasic，然后什么都不管，直接粘贴代码，然后保存。

Sub 随机()

Dim x As Integer

Dim y As Integer

a = 0

Randomize '初始化

reselect:

x = Rnd() * (3 - 1) + 1 '生成2至7的随机数，代表列数

y = Rnd() * (4 - 1) + 1 '生成2至6的随机数，代表行数

Range("a1:d3").Interior.ColorIndex = xlNone '去掉填充色

Cells(x, y).Interior.ColorIndex = 3 '填充为红色

a = a + 1

If a = 300 Then Exit Sub

GoTo reselect

End Sub

随后选择开发工具——插入——表单控件——按钮——选择我们刚刚设定的函数

一个听天由命的吃饭表就这么建立了

好了，现在让我们看看效果吧，无良今天的午饭就由他决定了。

同理我们可以将食物名换成其他的名字，比如放假去哪玩？放假和谁出去？放假干嘛？

---

欢迎关注微信公众号众致科技（zzkj1888）

微博众和联致科技股份有限公司

运营人员：无良