求一个EXCEL VBA程序：数据：1，4，6，7，7，10，3，7，9，8。要求从最大的值开始进行SUM运算，直到SUM

Sub test()

x = Array(1, 4, 6, 7, 7, 10, 3, 7, 9, 8)

For i = 1 To UBound(x) + 1

y = y + ApplicationWorksheetFunctionLarge(x, i)

If y > 30 Then

MsgBox "用了 " & i & " 个数,最终结果是 " & y

Exit Sub

End If

Next

MsgBox "悲剧了,用完所有的数字也没有大于30"

End Sub

1，首先假设给出的100个数，应该满足你题目的要求：

可以对这100个数求和，除以10，看看是否小于50。

2，尝试这样的解决思路与步骤：

1）把这100个数，按照从小到大排列。

2）然后取序号：1-5，5个数和序号96-100，5个数，组成一组；

接下来取序号 6-10，与 序号 91-95，构成一组；

接下来取序号 11-15，与 序号 86-90，构成一组；

。。。。。

Sub T1()

Dim arr(1 To 10)

For i = 1 To 10

arr(i) = InputBox("输入任意长度只有字母的字符串:", "输入字符串")

Next

For i = 1 To 9

For ii = i + 1 To 10

If Len(arr(i)) > Len(arr(ii)) Then

temp = arr(i)

arr(i) = arr(ii)

arr(ii) = temp

End If

Next

Next

Sheet1Range("A1")Resize(10, 1) = WorksheetFunctionTranspose(arr)

MsgBox "字符串排序;" & Join(arr, " ") & vbCrLf & "字符串排序结果保存在,工作表sheet1的A列"

End Sub

Sub T2()

Dim arr(1 To 10), jg()

For i = 1 To 10

arr(i) = ApplicationInputBox("输入一个任意数:", "输入数字", Type:=1)

Next

For i = 1 To 10

If arr(i) Mod 2 = 0 Or arr(i) Mod 3 = 0 Then

n = n + 1

ReDim Preserve jg(1 To n)

jg(n) = arr(i)

End If

Next

hj = WorksheetFunctionSum(jg)

For i = 1 To UBound(jg) - 1

For ii = i + 1 To UBound(jg)

If jg(i) > jg(ii) Then

temp = jg(i)

jg(i) = jg(ii)

jg(ii) = temp

End If

Next

Next

n = n + 1

ReDim Preserve jg(1 To n)

jg(n) = "和:" & hj

Sheet1Range("B1")Resize(n, 1) = WorksheetFunctionTranspose(jg)

MsgBox "2或3的倍数排序及求和;" & Join(jg, " ") & vbCrLf & "2或3的倍数排序及求和保存在,工作表sheet1的B列"

End Sub

Sub 宏1()

    Dim i

    For i=1 to 100000

        Cells(i,1) = Rnd()

    Next i

End Sub

以上就是关于求一个EXCEL VBA程序：数据：1，4，6，7，7，10，3，7，9，8。要求从最大的值开始进行SUM运算，直到SUM全部的内容，包括:求一个EXCEL VBA程序：数据：1，4，6，7，7，10，3，7，9，8。要求从最大的值开始进行SUM运算，直到SUM、请问VBA 如果把100个数字,分成10组,每组的和小于50,如何编程、求大神回答VBA的题！~ 在线等啊！ 1、将随意输入的十个字符串按长度从大到小排等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！