Attribute VB_Name = "create"
Sub 生成()
Dim i As Integer
For i = 2 To 80
t = Sheets(1).Cells(i, 2).Value '取得成绩
If t Then
If t >= 90 Then
j = "优秀"
ElseIf t >= 80 Then
j = "良好"
ElseIf t >= 70 Then
j = "一般"
ElseIf t >= 60 Then
j = "及格"
Else
j = "不及格"
End If
Sheets(1).Cells(i, 3) = j
End If
Next
Sub 生成()
Dim i As Integer
For i = 2 To 80
t = Sheets(1).Cells(i, 2).Value '取得成绩
If t Then
If t >= 90 Then
j = "优秀"
ElseIf t >= 80 Then
j = "良好"
ElseIf t >= 70 Then
j = "一般"
ElseIf t >= 60 Then
j = "及格"
Else
j = "不及格"
End If
Sheets(1).Cells(i, 3) = j
End If
Next
End Sub
Attribute VB_Name = "delete"
Sub 删除()
Dim i As Integer
For i = 2 To 80
Sheets(1).Cells(i, 3) = Empty
Next
End Sub
https://wxpre.sncfc.com.cn/sncfc-cpf/wap/index/main.do?channelType=NFZkZDdEc3h6QUtxQmhpSjU3R2czZz09