【分享成果，随喜正能量】很多时候，人们都是在在意别人的态度、揣摩别人的想法，把注意力放在别人身上，也因此让自己产生了大量的失落、焦虑。获得幸福感和价值感最直接的途径就是“专注于自己”，我们最应该做的也应该是探索真正的自己，了解自己内心。你无需去追求任何方法与心法来让别人喜欢你，展现真实的自己、并且专注于自己，做“真正的你”,永远能让你魅力折服他人。
《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件（ActiveX Controls）”的第12节：数值调节按钮（Spin Button）控件
第十二节 数值调节按钮（Spin Button）
大家好，这讲讲解数值调节按钮，可使用数值调节按钮递增或者递减单元格中的数字。这个按钮在工作表中的应用也是非常少的，但我们还是以一个知识点的结构来介绍给大家。
1 在工作表中添加数值调节按钮
要在Excel VBA中创建数值调节按钮，请执行以下步骤：在“开发工具”选项卡上；单击“插入”；在ActiveX控件组中，单击数值调节按钮：
在工作表上拖动鼠标，就可以在工作表上添加数值调节按钮了，如下：
2 自定义数值调节按钮
在设计模式下，点击这个控件，右键，在弹出的窗口上选择“属性”：
这个时候会弹出属性窗口：
在这个窗口中，要注意上面的三个属性值，最大、最小、以及每次点击的后移动的值。当然，可以在这个界面设置，包括关联的单元格（用linkedCell属性设置），但在这讲中我们将利用代码来设置这些属性。
3 数值调节按钮的实际应用
下面的应用，虽然在实际的中比较少见，但是可以窥探其中的一些用法：
Private Sub SpinButton1_Change()
Range("g9").Value = SpinButton1.Value
End Sub
Private Sub Worksheet_Activate()
Range("g9").Value = SpinButton1.Value
SpinButton1.Max = 200
SpinButton1.Min = 0
SpinButton1.SmallChange = 2
End Sub
代码截图：
代码讲解：代码共有两个部分，
1）第一部分是工作表的Activate事件：
Private Sub Worksheet_Activate()
Range("g9").Value = SpinButton1.Value
SpinButton1.Max = 200
SpinButton1.Min = 0
SpinButton1.SmallChange = 2
End Sub
在这个事件中定义了当在工作表变成活动状态时令单元格G9的值等于数值调节按钮的值，同时要定义数值调节按钮的最大值为200，最小值为0，并定义每次点击这个按钮时数值的变化量。
2）第二部分是按钮的的Change事件：
这个事件中定义了每次点击后将数值调节按钮的值传递给单元格G9。
下面我们看一下代码的运行效果：
1）初始状态：
点击向下的钮：
点击向上按钮：
同时我们也会留心观察到，数值的变化是每次变化2.
今日内容回向：
1） 如何在工作表中添加数调节按钮？
2） 数值调节按钮在工作表中如何实现和工作表单元格值关联？
本讲内容参考程序文件：工作簿15.xlsm
分享成果，随喜正能量
VBA的学习教程（初级、中级、高级）