Excel能实现这样的分配么？

sevenstar · 发表于 2010-3-17 14:46

这个用公式很复杂，VBA做最简单，以下是代码，测试结果是5151.
Sub abc()
s = 0
For a = 0 To 100
For b = 0 To 100
For c = 0 To 100
If a + b + c = 100 Then
s = s + 1
Cells(s, 1).Value = a
Cells(s, 2).Value = b
Cells(s, 3).Value = c
Cells(s, 4).Value = a + b + c
Cells(1, 5).Value = s
End If
Next
Next
Next
End Sub

cherry84292 · 发表于 2010-3-18 23:12

厉害，学习了

livewire · 发表于 2010-3-19 00:10

把：
For a = 0 To 100
      For b = 0 To 100
            For c = 0 To 100
改为：
For a = 0 To 100
      For b = 0 To 100-a
            For c = 0 To 100-a-b
似乎快一些！

donghan · 发表于 2010-3-23 14:38

都很厉害呀。

mutou99 · 发表于 2010-3-23 14:51

SQL解题新思路。

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

[求助] Excel能实现这样的分配么？

回复 21楼 sevenstar 的帖子