[已解决]求：已知总分在指定范围内找到各项小分。见附件

gavincar · 发表于 2013-7-1 15:11

见附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-7-1 19:06

304161-VBA-自动求和.rar (10.01 KB, 下载次数: 8)

那么的帅 · 发表于 2013-7-1 19:06

304161-VBA-自动求和.rar (10.01 KB, 下载次数: 8)

gavincar · 发表于 2013-7-1 20:26

那么的帅发表于 2013-7-1 19:06

多谢那么的帅。
有个问题就是得到的红色区域，前四个数据不管怎么点，都不变。

gavincar · 发表于 2013-7-1 20:45

随便问一下，为什么下面程序一直运行，不停止呢？

Sub fen()
Dim i As Integer
Dim arr, s, isum
Dim h As Integer
arr = Range("a1:i11")
isum = Selection
Do While 1
      For i = 1 To 11
         h = Int((9 - 2 + 1) * Rnd + 2)
         arr(i, 1) = arr(i, h)
         s = s + arr(i, 1)
      Next
      If s = isum Then
         Exit Do
      Else
         s = 0
      End If
Loop
Range("a1:a11").ClearContents
Range("a1:a11") = Application.Index(arr, , 1)
End Sub

那么的帅 · 发表于 2013-7-1 21:06

gavincar 发表于 2013-7-1 20:26
多谢那么的帅。
有个问题就是得到的红色区域，前四个数据不管怎么点，都不变。

因为是按照顺序查找的，所以找到一个符合的，就不需要查找以后的了
A列前4个分别是 0 2 5 5 ，绿色区域都可以找到。所以也就不变了。

gavincar · 发表于 2013-7-1 21:20

能否随机变化

那么的帅 · 发表于 2013-7-1 21:30

gavincar 发表于 2013-7-1 21:20
能否随机变化

随机，时间无法保证
没必要
你要想随机，不如把某行只设置一个数

gavincar · 发表于 2013-7-1 21:37

那么的帅发表于 2013-7-1 21:30
随机，时间无法保证
没必要
你要想随机，不如把某行只设置一个数

老是提醒不良信息，只能用图片提交了。

那么的帅 · 发表于 2013-7-1 21:39

gavincar 发表于 2013-7-1 21:37
老是提醒不良信息，只能用图片提交了。

结合数据,F8 一步一步查看，自己分析代码对提高编程能力很有帮助

gavincar · 发表于 2013-7-1 22:31

那么的帅发表于 2013-7-1 21:39
结合数据,F8 一步一步查看，自己分析代码对提高编程能力很有帮助

谢谢，不过现在急用。能稍微点拨一下吗？

		自动登录	找回密码
密码			注册