如何用excel做出以下东东:数字1-15循环播放,敲下回车时自动停止在某个数字上面,类似选号器,非常感谢!

如题所述

第1个回答  2011-09-30
用EXCEL里的VBA,如果你会用的话,用到的语句都很简单
工具——宏——Visual Basic编辑器
插入个用户窗体userform1,在窗体上插一个标签label1,一个旋转按钮spinbutton1
双击此用户窗体进入代码编写,将下面的代码覆盖进去:
Private Sub SpinButton1_Change()
x = Abs(Me.SpinButton1.Value) Mod 15
If x = 0 Then x = 15
Me.Label1 = x
End Sub

Private Sub UserForm_Initialize()
Me.Label1 = ""
Me.SpinButton1.Value = 0
Me.SpinButton1.Max = 99999
Me.SpinButton1.Min = -99999
End Sub

覆盖完成后在左侧的对象窗口VBAProject 内找到Thisworkbook,双击它,把下面的代码覆盖进去:
Private Sub Workbook_Open()
UserForm1.Show
End Sub

OK!!!保存退出。打开此表格就可以使用。鼠标按住上或下箭头按钮,数字就会在1 至 15间变动,鼠标放开按钮,数字停住!
希望我说的够详细,睡觉去了。。。

我看了一下2楼的答案,的确是个简单的好办法!不过产生的数字是有很多小数位的。将那个单元格格式设置成数值,小数位设为0就完美了!
或者直接将公式改成=INT(RAND()*15)+1直接就是显示整数的。
第2个回答  2011-09-27
在任意单元格输入:
=RAND()*14+1

在其它单元格按“Delete ”就产生1-15中的一个数
不是按“回车”,

江苏吴云超解答 供参考本回答被提问者采纳
第3个回答  2011-09-27
这个东西最好用VB做一个
第4个回答  2011-09-27
待我想想
相似回答