如何计算9个TextBox控件中5个最大值的总和？

你的原代码存在两个核心错误，导致无法实现需求：

1. 错误构造数据源：你用+把所有TextBox的值直接相加成一个单一数值，传给Large函数——但Large需要的是一组数值（数组），而非单个求和结果。
2. 错误的参数格式：Large的第二个参数不能传字符串" 1, 2, 3, 4, 5"，需要传入表示位次的数组或多个单独的位次参数。

正确实现代码 #

方法1：显式构造数组（可读性高） #

Sub CalculateTop5Sum()
    ' 定义数组存储9个TextBox的数值
    Dim inputValues(1 To 9) As Double
    
    ' 逐个读取TextBox的值并填充数组
    inputValues(1) = Val(TextBox2.Text)
    inputValues(2) = Val(TextBox3.Text)
    inputValues(3) = Val(TextBox4.Text)
    inputValues(4) = Val(TextBox5.Text)
    inputValues(5) = Val(TextBox6.Text)
    inputValues(6) = Val(TextBox7.Text)
    inputValues(7) = Val(TextBox8.Text)
    inputValues(8) = Val(TextBox9.Text)
    inputValues(9) = Val(TextBox10.Text)
    
    ' 计算前5个最大值的和，赋值给TextBox11
    TextBox11.Text = WorksheetFunction.Sum(WorksheetFunction.Large(inputValues, Array(1, 2, 3, 4, 5)))
End Sub

方法2：简化数组构造（代码更紧凑） #

Sub CalculateTop5Sum_Compact()
    Dim txtValues As Variant
    ' 直接用Array函数构造包含所有TextBox值的数组
    txtValues = Array(Val(TextBox2.Text), Val(TextBox3.Text), Val(TextBox4.Text), _
                      Val(TextBox5.Text), Val(TextBox6.Text), Val(TextBox7.Text), _
                      Val(TextBox8.Text), Val(TextBox9.Text), Val(TextBox10.Text))
    
    TextBox11.Text = WorksheetFunction.Sum(WorksheetFunction.Large(txtValues, Array(1, 2, 3, 4, 5)))
End Sub

额外提示 #

• Val函数会将空文本、非数字内容转为0，如果需要排除空值/无效值，可以在填充数组时添加判断逻辑，比如：

  inputValues(1) = IIf(TextBox2.Text = "", 0, Val(TextBox2.Text))
  

  或者过滤掉0值后再计算（根据实际需求调整）。

内容的提问来源于stack exchange，提问作者Advance Excel VBA With Hridaan