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、将随意输入的十个字符串按长度从大到小排等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)