VBA 使用 UserForm 变量自定义滚动条

Question

作为 VBA 的新手，我正在尝试将自定义滚动条添加到我的工作表中。通过自定义，我的意思是我可以使用我询问想要的值的用户窗体来决定滚动条的最小值、最大值和小变化。到目前为止，我已将值存储在以下公共变量中： screen of the Userform

Option Explicit

Public A As Integer
Public B As Integer
Public C As Integer


Private Sub Valider_Click()

If IsNumeric(TextBox1.Value) Then
    A = TextBox1.Value
    Unload Me
Else
    MsgBox "Valeur mimimale incorrecte"
End If

If IsNumeric(TextBox2.Value) Then
    B = TextBox2.Value
    Unload Me
Else
    MsgBox "Valeur maximale incorrecte"
End If

If IsNumeric(TextBox3.Value) Then
    C = TextBox3.Value
    Unload Me
Else 
    MsgBox "Pas incorrect"
End If

MsgBox A & " " & B & " " & C

End Sub

我刚刚重新分配了“.Min”、“.Max”和“.SmallChange”的值。在 Excel 给出的默认滚动条代码中使用 A、B 和 C：

Sub curseur()

ActiveSheet.ScrollBars.Add(180, 45.75, 119.25, 13.5).Select
With Selection
    .Value = 0
    .Min = A
    .Max = B
    .SmallChange = C
    .LargeChange = 10
    .LinkedCell = "$G$4"
    .Display3DShading = True
End With
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[1]/100"
Range("G4").Select
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.149998474074526
    .PatternTintAndShade = 0
End With
With Selection.Font
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.149998474074526
End With
End Sub

所以我有 3 个文本框和一个命令按钮（“验证器”）。基本上我的想法是用预先确定的值（最小值、最大值、...）来完成这 3 个框，并将它们存储在公共变量中。目前我只是使用 F5 从开发者选项卡运行我的代码。

我首先运行用户窗体。完成文本框并按下 CommandButton 后，MessageBox 将返回包含在变量 A、B 和 C 中的值。 然后我想用它们来“定义”我的滚动条。当我按 F5 时，滚动条会自行显示（见屏幕截图），但如果我转到属性，所有值都设置为零。似乎我没有以正确的方式调用变量 A、B、C：scrollbar properties

提前感谢您的帮助。

Answer 1

问题是您的第二个子（curseur）不知道您从表单中分配了哪些值。在代码的最后一点结束后，变量被“销毁”。所以curcur()中的变量A、B、C没有价值。

如果您将过程调用添加到您的 valider_click 子程序的末尾，这应该可以解决您的问题。如果您的值不是数字，您应该先退出您的子：

Private Sub Valider_Click()

    If IsNumeric(TextBox1.Value) Then
        A = TextBox1.Value
    Else
        MsgBox "Valeur mimimale incorrecte"
        Exit Sub
    End If

    If IsNumeric(TextBox2.Value) Then
        B = TextBox2.Value
    Else
        MsgBox "Valeur maximale incorrecte"
        Exit Sub
    End If

    If IsNumeric(TextBox3.Value) Then
        C = TextBox3.Value
    Else
        MsgBox "Pas incorrect"
        Exit Sub
    End If

    MsgBox A & " " & B & " " & C
    Call curseur
    Unload Me

End Sub