VBA 窗体上10个连续的文本框，求极差（最大值-最小值）

zglibk

如题，如果像下面这样写，肯定是不行的

TextBox11 = Format(WorksheetFunction.Max(Val(TextBox1.Text), Val(TextBox2.Text), Val(TextBox3.Text),... Val(TextBox10.Text))) - WorksheetFunction.Min(Val(TextBox1.Text), Val(TextBox2.Text), Val(TextBox3.Text)),...Val(TextBox10.Text)), "0.000")


请教老师们，正确的写法是怎样的？

砂海

假设 窗体名称叫做   UserForm1


    Dim i, 最大值, 最小值
    最大值 = Val(UserForm1("TextBox1").Value)
    最小值 = Val(UserForm1("TextBox1").Value)

For i = 2 To 10 '循环
    If 最大值 < Val(UserForm1("TextBox" & i).Value) Then 最大值 = Val(UserForm1("TextBox" & i).Value)
    If 最小值 > Val(UserForm1("TextBox" & i).Value) Then 最小值 = Val(UserForm1("TextBox" & i).Value)
Next i

    UserForm1.TextBox11.Value = 最大值 - 最小值

zglibk

砂海 发表于 2020-2-29 18:31
假设 窗体名称叫做   UserForm1

谢谢，学习了！