第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直接就是显示整数的。