使用旋转按钮调节小数数字

fanjy

发布于 2024-03-25 13:49:09

710

发布于 2024-03-25 13:49:09

文章被收录于专栏：完美Excel完美Excel

标签：VBA，用户窗体

在用户窗体中，旋转按钮控件通常只能调节整数，而本文给出的示例让旋转按钮可以调节小数数字，如下图1所示。

图1

可以看到，左侧的旋转按钮用来增加或减少整数数字，右侧的旋转按钮用来增加或减少小数数字。

实际上，该用户窗体中不只有这一个文本框、两个旋转按钮这三个控件，还“隐藏”着两个文本框控件，放在可以看到的窗体界面之外。

这个用户窗体代码如下：

Private Sub TextBox1_Change()
 TextBox4.Value = (CDec(SpinButton2.Value) / 10 + CDec(SpinButton1.Value))
 TextBox1.Text = Format(CDec(TextBox1.Text), "##.0")
End Sub

Private Sub TextBox2_Change()
 TextBox4.Value = (CDec(SpinButton2.Value) / 10 + CDec(SpinButton1.Value))
 TextBox2.Text = Format(CDec(TextBox2.Text), "##.0")
End Sub

Private Sub SpinButton2_Change()
 Me.TextBox2.Value = SpinButton2 / 10
End Sub

Private Sub SpinButton1_Change()
 Me.TextBox1.Value = SpinButton1.Value
End Sub

代码中，TextBox1和TextBox2就是隐藏的两个文本框控件，在它们中分别存放着相应的两个旋转按钮调节的值，然后将这些值格式化并相加后输入到TextBox4控件中，即窗体中显示的值。

有兴趣的朋友，可以在完美Excel微信公众号中发送消息：

小数旋转按钮

获取示例工作簿的下载链接。

或者，直接到知识星球App完美Excel社群中下载该示例工作簿。

本文参与腾讯云自媒体分享计划，分享自微信公众号。

原始发表：2024-03-18，如有侵权请联系 cloudcommunity@tencent.com 删除

excel