Tag: 格式控制

VBA垂直滚动条拇指大小

我有一个窗体，dynamic创build控件，包含滚动条 Set theScroll = UserForm1.Controls.Add("Forms.ScrollBar.1", "sc1", True) 但我很难resize或更改除最小值以外的滚动条大小，它似乎没有resize的事件或function。 我也试过使用 Userform1.ScrollBars = fmScrollBarsVertical 但是我不能在表单的任何位置移动它，因为我需要将上述滚动条略微偏离表单的中心。

类似的多个对象的语法

我在我的用户表单上有多个旋钮，我想把相同的代码放在每一个上， Me.TextBox1.Value = Me.TextBox1.Value – 1 If Me.TextBox1.Value = 0 Then Me.TextBox1.Value = 12 End If If Me.TextBox1.Value < 10 Then Me.TextBox1.Value = "0" & Me.TextBox1.Value End If 但是有没有简单的方法，而不是把多个块放在多个旋钮上，并把它们全部组合在一起？