菜鸟自动分配问题，请大家帮忙，谢谢

zaq123 · 发表于 2011-7-22 16:44

本帖最后由 zaq123 于 2011-7-25 16:42 编辑

请大家帮忙，谢谢，描述的可能不是很好，费心

兰色幻想 · 发表于 2011-7-24 11:50

以下问题看不明白：
随机分配，怎么随机法，有没有规则？是全部分配还是部分分配
分配比率不能相同，是谁和谁不能相同，后三行每一列不能有相同的？但你不说<1000的都是固定的分配比率？
<1000不参与分配，怎么还有分配比率？
当前J列数值较大可多分配，分配后J列不能小于0 ，这句话也不明白，多分配是怎么样的概念，分配后不能小于0，J列哪个单元格不能小于0？

zaq123 · 发表于 2011-7-25 07:58

辛苦兰版，还是我描述的不好。

随机分配，参照当前J列数值（不再考虑<1000）进行随机分配，因为比率需要体现，所以单列，需满足后三列每列中均不存在相同数值比率。分配后的数据J列不能小于0。

兰色幻想 · 发表于 2011-7-25 11:18

本帖最后由兰色幻想于 2011-7-25 11:18 编辑

J列不是含数据的列吗？怎么会小于0

zaq123 · 发表于 2011-7-25 11:20

当按K、L、M的比率分配数据进B、C、D列就可能会产生负数。

zaq123 · 发表于 2011-7-26 07:39

J列最终不能小于0且不能大于1000000。
效验行数据绝对=0.0000

兰色幻想 · 发表于 2011-7-25 13:38

你做一个结果的样式表吧，看看生成的结果是怎么样的

zaq123 · 发表于 2011-7-25 16:38

已修改相关附件，

兰色幻想 · 发表于 2011-7-25 21:42

现在你需要的就是生成最后三列的比率
1、不能重复
2、J列不能等于0

还有其他的吗？

兰色幻想 · 发表于 2011-7-26 08:31

Sub 分配()
Range("l2:n62") = ""
Dim d As New Dictionary
Dim rg As Range
Dim x, K1, K2, K3
For x = 2 To 61
100:
  K1 = Rnd() * 0.03
If d.Exists(K1) Then GoTo 100
Cells(x, "l") = K1

200:
   K2 = Rnd() * 0.03
If d.Exists(K2) Then GoTo 200
   Cells(x, "m") = K2

300:
K3 = Rnd() * 0.03
If d.Exists(K3) Then GoTo 300
Cells(x, "n") = K3

  If Cells(x, "k") < 0 Or Cells(x, "k") > 1000000 Then GoTo 100
Next x
Range("l62") = -[l64]
Range("M62") = -[M64]
Range("N62") = -[N64]
End Sub

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