VBA｜使用窗体控件11调整规定范围数值的旋转按钮

1、VBA |使用窗体控件11 :调整规定范 围数值的旋转按钮旋转按钮控件主要用来输入一定范围内的整数值， 一般将旋转按钮与文字框结合 起来使用。单击旋转按钮只会更改旋转按钮的值， 还需要编写代码修改与之结合 的文字框的值。下面以一个“用旋转按钮修改日期和时间的值”的实例来说明选项按钮的使用。1新建窗体并插入如下控件：控件对象名称窗体frmDate文字框1txtYear文字框2txtMonth文字框3txtDay文字框4txtHour文字框 5txtMinute文字框 6txtSecond旋转按钮1spbYear旋转按钮2spbMonth旋转按钮3spbDay旋转按钮4spbHour旋转按钮5sp

2、bMinuteMaxLengthMinMax42222219002500112131023059旋转按钮6spbSecond59修改日期和时间日期:飞年L3月厂3日:n ，！ .一 , ，一 a a时间：-1 三时厂3.分上1秒2编写调用窗体过程Sub修改日期和时间（）frmDate.ShowEnd Sub3编写窗体代码Private Sub UserForm_Initialize()txtYear.Value = Year(Date) '获取当前日期的年月日txtMonth.Value = Month(Date)txtDay.Value = Day(Date)获取当前时间的时分秒tx

3、tHour.Value = Hour(Time)txtSecond.Value = Second(Time)spbYear.Value = txtYear.Value '为旋转按钮赋值spbMonth.Value = txtMonth.ValuespbDay.Value = txtDay.ValuespbHour.Value = txtHour.ValuespbMinute.Value = txtMinute.ValuespbSecond.Value = txtSecond.ValueEnd SubPrivate Sub cmdClose_Click()Unload MeEnd Sub

4、Private Sub cmdSet_Click()Dim dTemp, dTimedTemp = DateSerial(txtYear.Value, txtMonth.Value, txtDay.Value)'生成日期dTime = TimeSerial(txtHour.Value, txtMinute.Value, txtSecond.Value)'生成时间Date = dTemp'设置日期dTime = dTime '设置时间End SubPrivate Sub spbDay_Change()End SubPrivate Sub spbHour_Chang

5、e()txtHour.Value = spbHour.ValueEnd SubPrivate Sub spbMinute_Change()txtMinute.Value = spbMinute.ValueEnd SubPrivate Sub spbMonth_Change()txtMonth.Value = spbMonth.ValueEnd SubPrivate Sub spbSecond_Change()txtSecond.Value = spbSecond.ValueEnd SubPrivate Sub spbYear_Change()txtYear.Value = spbYear.ValueEnd SubPrivate Sub txtMonth_Change()Dim dTemp As DatedTemp = DateSerial(txtYear.