在Excel中如何创建一个简单的骰子游戏表？

excel表格中怎么制作骰子游戏？

附件是最简单的

用VBA做

代码

Sub 掷骰子()Dim xx = Int((6 * Rnd) + 1)msg = MsgBox("骰子的点数为" & x, vbOKOnly, "掷骰结果")End Sub