新手求教怎么用SpinButton切换MultiPage的页

首先在UserForm_Initialize中设置SpinButton的属性：
Private Sub UserForm_Initialize()
With SpinButton1
.Min = 0
.Max = MultiPage1.Pages.Count - 1
.SmallChange = 1
End With
End Sub
然后在form双击SpinButton写入代码：
Private Sub SpinButton1_Change()
MultiPage1.Value = SpinButton1.Value
End Sub
*控件名称根据实际情况修改即可

Private Sub SpinButton1_SpinDown()
If Me.MultiPage1.Value <> 0 Then Me.MultiPage1.Value = Me.MultiPage1.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
If Me.MultiPage1.Value < Me.MultiPage1.Pages.Count - 1 Then Me.MultiPage1.Value = Me.MultiPage1.Value + 1
End Sub