在标签

Question

我需要在其上创建一个带有SpinButton的UserForm。用户选择一个值，完成后单击“确定”（将所选值传递给另一个过程）。

这就是它的样子：

现在，如何在Label上显示SpinButton 中的选定值或显示用户选择了哪个值的其他内容？

Answer 1

您需要在UserForm_Initialize中定义您的SpinButton，并在SpinButton_Change中添加一行来更新标签：

Private Sub UserForm_Initialize()
    With SpinButton1
        .Min = 0 'Min Value
        .Max = 100 'Max Value

        'Specify the value of the change when the spin button is clicked
        .SmallChange = 5 '(Default = 1)
    End With
End Sub


Private Sub SpinButton1_Change()
    Label1.Caption = SpinButton1.Value
End Sub 

Answer 2

只需使用SpinButton1_Change事件即可。当您单击旋转按钮向上/向下箭头时，这将实时更新标签。

在userform代码区域中，只需粘贴此代码

即可

Private Sub SpinButton1_Change()
    Label1.Caption = SpinButton1.Value
End Sub