|
本帖最后由 719404338 于 2019-5-13 22:13 编辑
写了项目一的,【s2】、【m2】为前掷实心球
- Sub t()
- Dim i, j, k, d, dd, w, m
- Set d = CreateObject("Scripting.Dictionary")
- Set dd = CreateObject("Scripting.Dictionary")
- Set w = CreateObject("Scripting.Dictionary")
- Set m = CreateObject("Scripting.Dictionary")
- For i = 3 To 8
- d(Left(Range("w" & i).Value, 1)) = Range("y" & i)
- dd(Left(Range("w" & i).Value, 1)) = Range("z" & i)
- Next
- For j = 12 To 15
- m(Cells(2, j).Value) = j
- w(Cells(2, j + 6).Value) = j + 6
- Next j
- For i = 2 To [a65536].End(3).Row
- If Range("a" & i) = "女" Then
- For j = 3 To 23
- k = w(d(Range("b" & i).Value))
- If Cells(3, k) < Range("f" & i) Then
- Range("g" & i) = 100: Exit For
- ElseIf Cells(j, k) = Range("f" & i) Then
- Range("g" & i) = Cells(j, 17): Exit For
- ElseIf Cells(j, k) > Range("f" & i) And Cells(j + 1, k) < Range("f" & i) Then
- Range("g" & i) = Cells(j + 1, 17): Exit For
- ElseIf Range("f" & i) = 0 Then
- Range("g" & i) = 0
- End If
- Next j
- Else
- For j = 3 To 23
- k = m(d(Range("b" & i).Value))
- If Cells(3, k) < Range("f" & i) Then
- Range("g" & i) = 100: Exit For
- ElseIf Cells(j, k) = Range("f" & i) Then
- Range("g" & i) = Cells(j, 17): Exit For
- ElseIf Cells(j, k) > Range("f" & i) And Cells(j + 1, k) < Range("f" & i) Then
- Range("g" & i) = Cells(j + 1, 11): Exit For
- ElseIf Range("f" & i) = 0 Then
- Range("g" & i) = 0
- End If
- Next j
- End If
- Next i
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|