- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
¸Õ¬Ý¬Ý¤U±ªº¸Ñªk
Sub test()
i = 2
Do While Sheets("sheet1").Cells(i, 1) <> ""
Set A = Sheets("sheet1").Cells(i, 1)
With Sheets("sheet2").Cells(1, 1 + A.Value)
If A.Offset(0, 1).Value >= 60 Then
.Value = A.Value
.Offset(1, 0) = "¬O"
ElseIf A.Offset(1, 2).Value >= 60 Then
.Value = A.Value
.Offset(1, 0) = "§_"
.Offset(2, 0) = "¬O"
i = i + 1
ElseIf A.Offset(2, 3).Value >= 60 Then
.Value = A.Value
.Offset(1, 0) = "§_"
.Offset(2, 0) = "§_"
.Offset(3, 0) = "¬O"
i = i + 2
Else
.Value = A.Value
.Offset(1, 0) = "§_"
.Offset(2, 0) = "§_"
.Offset(3, 0) = "§_"
i = i + 2
End If
End With
i = i + 1
Loop
End Sub |
|