用代码根据三项指标值的选出最优组和最劣组-改进

yinxingbaoshu · 发表于 2014-3-15 13:40

本帖最后由 yinxingbaoshu 于 2014-3-15 13:43 编辑

一共八个组，A、B、C三项指标值。
现在，希望根据这三项指标值选出最优组和最劣组。

最优组的条件：
1.A指标值大于等于1
2.在条件1基础上，C指标值最小
3.在条件1和条件2基础上，B指标值最小
4.如果有两个或两个以上组并列最优，则L2单元格显示：组名1*组名2*……

最劣组条件：
1.A指标值最小
2.在条件1基础上，B指标值最大
3.在条件1和条件2基础上，C指标值最大
4.如果有两个或两个以上组并列最劣，则L5单元格显示组名1*组名2*……

请帮忙设计下代码，谢谢

yjh_27 · 发表于 2014-3-15 14:34

没用代码供参考

yjh_27 · 发表于 2014-3-15 15:01

代码如下，指标>10,修改对应倍数

Sub aa()
arr = [f2:i9]
you = 100
lie = 0
For i = 1 To 8
you0 = arr(i, 4) * 10 + arr(i, 3)
If arr(i, 2) > 0 Then
If you > you0 Then
youi = arr(i, 1)
you = you0
ElseIf you = you0 Then
youi = youi & "*" & arr(i, 1)
End If
End If
lie0 = 1000 - arr(i, 2) * 100 + arr(i, 3) * 10 + arr(i, 4)
If lie < lie0 Then
liei = arr(i, 1)
lie = lie0
ElseIf lie = lie0 Then
liei = liei & "*" & arr(i, 1)
End If
Next
[l2] = youi
[l5] = liei
End Sub

复制代码

yinxingbaoshu · 发表于 2014-3-15 20:04

yjh_27 发表于 2014-3-15 15:01
代码如下，指标>10,修改对应倍数

指标很有可能大于10.
请问，哪里修改倍数？

yinxingbaoshu · 发表于 2014-3-15 20:19

yjh_27 发表于 2014-3-15 15:01
代码如下，指标>10,修改对应倍数

改进了一下，请再帮忙看看！

一共八个组，A、B、C三项指标值。
现在，希望根据这三项指标值选出最优组和最劣组。

最优组的条件：
1.A指标值大于等于1.如果所有A均为0，则取B大于等于1.
2.在条件1基础上，d指标值最小
3.在条件1和条件2基础上，c指标值最小
4.如果有两个或两个以上组并列最优，则L2单元格显示：组名1*组名2*……

最劣组条件：

1.A指标值最小。如A指标值相同，则取B指标值最小
2.在条件1基础上，d指标值最大
3.在条件1和条件2基础上，c指标值最大
4.如果有两个或两个以上组并列最劣，则L5单元格显示组名1*组名2*……

请帮忙设计下代码，谢谢！

yinxingbaoshu · 发表于 2014-3-16 10:24

顶起来！

yjh_27 · 发表于 2014-3-16 12:52

yinxingbaoshu 发表于 2014-3-15 20:04
指标很有可能大于10.
请问，哪里修改倍数？

代码中的 10 100 1000 分别为 10^1 10^2 10^3
如最大 30 则改为 30 30^2 30^3

yinxingbaoshu · 发表于 2014-3-16 17:21

yjh_27 发表于 2014-3-16 12:52
代码中的 10 100 1000 分别为 10^1 10^2 10^3
如最大 30 则改为 30 30^2 30^3

谢谢，请再帮忙看下这个改进版：
http://club.excelhome.net/forum. ... p;page=1#pid7514753

yjh_27 · 发表于 2014-3-16 18:36

yinxingbaoshu 发表于 2014-3-16 17:21
谢谢，请再帮忙看下这个改进版：
http://club.excelhome.net/forum.php?mod=viewthread&tid=1103500&pag ...

与5L同样要求吗？

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

[求助] 用代码根据三项指标值的选出最优组和最劣组-改进

评分