Lustre Chan:
1. 打开“控件工具箱”---“数值调节钮”;
2. 右击“数值调节钮”的“属性”,如设置linkedCell为A1;
3. 右击“数值调节钮”的“查看属性”,然后写下以下代码
Private Sub SpinButton1_Change()
SpinButton1.Min = Range("b1").Value
SpinButton1.Max = Range("b2").Value
End Sub
然后可以在B1单元格中写上你想要的最小值,在B2单元格中写上你想要的最大值;
4. 试试看,是不是OK了
窗体工具栏的滚动条不能这样设置,控件工具箱的滚动条通过VBA可以设置。
比如
Private Sub ScrollBar1_Change()
ScrollBar1.Min = [a1]
ScrollBar1.Max = [a2]
ScrollBar1.LinkedCell = "A3"
End Sub
滚动条的最大值与最小值在控制中只能输入整数或小数啊,不能输入其他的东东