如何解决Excel UserForms-更改带有单元格范围的命令按钮标题
首先,谢谢您的关注。
我第一次构建Userform工作表,并想添加我在另一工作表上看到的新功能,但不确定如何执行它。
我在工作表上有一个值列表。该列表最多增加了99个,每个单元格增加了.125。
D1-90 D2-90.125 D3-90.25 D4-90.375 D5-90.5
现在我想要的是一排5个按钮,每端是一个>(向上移动范围),因此该范围可以移动3或4个单元格,从而改变字幕的值。因此,我可以拥有3个或4个按钮,而不必为所有值使用70+个按钮,但标题会在>单击上更新。
下一部分是,如果我单击其中一个按钮,例如它的值为91.5,它将把该值写入另一个工作表上的单元格中。
到目前为止我有什么
我知道打开用户窗体时,它将显示该值,因此它们将是默认值。
Private Sub Userform_Initialize()
Me.CommandButton98.Caption = Sheets("Structures").Range("D2").Value
End Sub
现在,下面的内容将仅更改D1的值,并且Commandbutton98字幕每次减小1。我明白为什么。我只是想不出如何使值列表更小而不重写D1的值。
Private Sub CommandButton99_Click()
Dim n As Integer
n = Sheets("Structures").Range("D1") > 1 Then
Sheets("Structures").Range("D1") = n - 1
Call Update
Else
MsgBox ("No More Strikes")
End If
End Sub
Sub Update()
CommandButton98.Caption = Sheets("Structures").Range("D1")
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。