按照条件赋分问题？谢谢！

wangweihebtu · 发表于 2018-7-23 10:57

本帖最后由 wangweihebtu 于 2018-7-23 11:13 编辑

单赋10分我会写，赋5分我也会，问题是10和7我不会区分赋分，求助？谢谢！

Private Sub CommandButton1_Click()
For i = 4 To 21
For K = 2 To 3
If Cells(K, 2) >= Cells(i, 2) Then
Cells(K, 3) = 10
ElseIf Cells(K, 2) < Cells(i, 2) Then
Cells(K, 3) = 5
End If
Next
Next
End Sub

microyip · 发表于 2018-7-23 11:38

要不要先描述清楚你想得到怎样的结果？我要吃羊肉，我会，我要吃猪肉，我也会，我要吃又是羊又是猪，我不会

wangweihebtu · 发表于 2018-7-23 15:04

microyip 发表于 2018-7-23 11:38
要不要先描述清楚你想得到怎样的结果？我要吃羊肉，我会，我要吃猪肉，我也会，我要吃又是羊又是猪，我不会 ...

我想给1组的两个值赋分，根据大小，第一赋10分，第二赋7分，但是一旦下边的任何一个值大于它，那就赋分为5，也就是说俩值都有可能赋分为5.

wangweihebtu · 发表于 2018-7-23 15:08

microyip 发表于 2018-7-23 11:38
要不要先描述清楚你想得到怎样的结果？我要吃羊肉，我会，我要吃猪肉，我也会，我要吃又是羊又是猪，我不会 ...

您看图谢谢

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

[求助] 按照条件赋分问题？谢谢！