📄 sheet3.frm
字号:
End Sub
Private Sub menu_set_youxiujige_Click()
On Error GoTo ErrHandler
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
Label_lie.Caption = grid.TextMatrix(0, grid.ColSel)
Text_jige.Text = col_jige(grid.ColSel)
Text_youxiu.Text = col_youxiu(grid.ColSel)
Frame_jigeyouxiu.Visible = True
Else
MsgBox "请先选择一个列！"
End If
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "")
End Sub
Private Sub menU_work_table_class_Click()
sheet1.Show
sheet1.Caption = App.Title + " 班级工作表"
End Sub
Private Sub menu_work_table_course_Click()
sheet2.Show
sheet2.Caption = App.Title + " 学科工作表"
End Sub
Private Sub menu_work_table_grade_Click()
sheet3.Show
sheet3.Caption = App.Title + " 年级工作表"
End Sub
Private Sub menu_youxiuli_Click()
Dim i, j, send, ps, ps2, findd As Integer
Dim c_youxiu, youxiuli As Double
Dim sno, c_youxiusmmmm As Integer
On Error GoTo ErrHandler
Dim colseled As Boolean
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
colseled = True
End If
findd = 0
For i = 0 To 10
If Check(i).Value = 1 Then
findd = 1
End If
Next i
If findd = 0 And colseled = False Then
MsgBox "先选择计算项目！"
Exit Sub
End If
send = 0
For i = 1 To Crow_max
If grid.TextMatrix(i, 0) = "*********" Then
send = i - 1
'MsgBox send
Exit For
End If
Next
If send = 0 Then
Call MsgBox("在所有学号结束后必需有一个结束标志" + vbCrLf + "*********" + vbCrLf + "解决办法：在此位置点击 编辑/插入行记录结束标志", vbCritical)
Exit Sub
End If
For i = send + 1 To Crow_max
If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "优秀率" Then
ps = i
Exit For
End If
Next
grid.TextMatrix(ps, 0) = "优秀率"
For i = send + 1 To Crow_max
If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "优秀人数" Then
ps2 = i
Exit For
End If
Next
grid.TextMatrix(ps2, 0) = "优秀人数"
For i = 0 To 10
If Check(i).Value = 1 Then
'MsgBox i
c_youxiu = col_youxiu(i)
c_youxiusmmmm = 0
sno = 0
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
If CInt(grid.TextMatrix(j, i)) >= c_youxiu Then
c_youxiusmmmm = c_youxiusmmmm + 1
End If
sno = sno + 1
End If
Next j
If sno > 0 Then
youxiuli = Int((c_youxiusmmmm / sno) * 10000) / 10000
grid.TextMatrix(ps, i) = youxiuli
grid.TextMatrix(ps2, i) = c_youxiusmmmm
End If
End If
Next i
If colseled = True Then
' MsgBox c_youxiu
i = grid.ColSel
c_youxiu = col_youxiu(i)
c_youxiusmmmm = 0
sno = 0
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
If CInt(grid.TextMatrix(j, i)) >= c_youxiu Then
c_youxiusmmmm = c_youxiusmmmm + 1
End If
sno = sno + 1
End If
Next j
If sno > 0 Then
youxiuli = Int((c_youxiusmmmm / sno) * 10000) / 10000
grid.TextMatrix(ps, i) = youxiuli
grid.TextMatrix(ps2, i) = c_youxiusmmmm
End If
End If
Text1.Visible = False
'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算")
End Sub
Private Sub menu_zongfen_Click()
Dim i, j, send, ps, findd As Integer
Dim ssum As Single
Dim colseled As Boolean
On Error GoTo ErrHandler
'Dim colseled As Boolean
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
colseled = True
End If
findd = 0
For i = 0 To 10
If Check(i).Value = 1 Then
findd = 1
End If
Next i
If findd = 0 And colseled = False Then
MsgBox "先选择计算项目！"
Exit Sub
End If
send = 0
For i = 1 To Crow_max
If grid.TextMatrix(i, 0) = "*********" Then
send = i - 1
'MsgBox send
Exit For
End If
Next
If send = 0 Then
Call MsgBox("在所有学号结束后必需有一个结束标志" + vbCrLf + "*********" + vbCrLf + "解决办法：在此位置点击 编辑/插入行记录结束标志", vbCritical)
Exit Sub
End If
For i = send + 1 To Crow_max
If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "总分" Then
ps = i
Exit For
End If
Next
grid.TextMatrix(ps, 0) = "总分"
For i = 0 To 10
If Check(i).Value = 1 Then
'MsgBox i
ssum = 0
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
ssum = ssum + CSng(grid.TextMatrix(j, i))
End If
Next j
grid.TextMatrix(ps, i) = ssum
End If
Next i
If colseled = True Then
i = grid.ColSel
ssum = 0
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
ssum = ssum + CSng(grid.TextMatrix(j, i))
End If
Next j
grid.TextMatrix(ps, i) = ssum
End If
Text1.Visible = False
'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算")
End Sub
Private Sub menu_zongpingjun_Click()
Dim i, j, send, ps, findd As Integer
Dim ssum As Double
Dim sno As Integer
Dim PJ As Single
Dim colseled As Boolean
On Error GoTo ErrHandler
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
colseled = True
End If
findd = 0
For i = 0 To 10
If Check(i).Value = 1 Then
findd = 1
End If
Next i
If findd = 0 And colseled = False Then
MsgBox "先选择计算列项目！"
Exit Sub
End If
send = 0
For i = 1 To Crow_max
If grid.TextMatrix(i, 0) = "*********" Then
send = i - 1
'MsgBox send
Exit For
End If
Next
If send = 0 Then
Call MsgBox("在所有学号结束后必需有一个结束标志" + vbCrLf + "*********" + vbCrLf + "解决办法：在此位置点击 编辑/插入行记录结束标志", vbCritical)
Exit Sub
End If
For i = send + 1 To Crow_max
If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "平均分" Then
ps = i
Exit For
End If
Next
grid.TextMatrix(ps, 0) = "平均分"
For i = 0 To 10
If Check(i).Value = 1 Then
'MsgBox i
ssum = 0#
sno = 0
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
ssum = ssum + CDbl(grid.TextMatrix(j, i))
sno = sno + 1
End If
Next j
PJ = Int((ssum / sno) * 10000) / 10000
grid.TextMatrix(ps, i) = PJ
End If
Next i
If colseled = True Then
ssum = 0#
sno = 0
i = grid.ColSel
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
ssum = ssum + CDbl(grid.TextMatrix(j, i))
sno = sno + 1
End If
Next j
PJ = Int((ssum / sno) * 10000) / 10000
grid.TextMatrix(ps, i) = PJ
End If
Text1.Visible = False
'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算！！！")
End Sub
Private Sub menu_zuidifen_Click()
Dim i, j, send, ps, findd As Integer
Dim smin As Single
On Error GoTo ErrHandler
Dim colseled As Boolean
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
colseled = True
End If
findd = 0
For i = 0 To 10
If Check(i).Value = 1 Then
findd = 1
End If
Next i
If findd = 0 And colseled = False Then
MsgBox "先选择计算项目！"
Exit Sub
End If
send = 0
For i = 1 To Crow_max
If grid.TextMatrix(i, 0) = "*********" Then
send = i - 1
'MsgBox send
Exit For
End If
Next
If send = 0 Then
Call MsgBox("在所有学号结束后必需有一个结束标志" + vbCrLf + "*********" + vbCrLf + "解决办法：在此位置点击 编辑/插入行记录结束标志", vbCritical)
Exit Sub
End If
For i = send + 1 To Crow_max
If grid.TextMatrix(i, 0) = "" Or grid.TextMatrix(i, 0) = "最低分" Then
ps = i
Exit For
End If
Next
grid.TextMatrix(ps, 0) = "最低分"
For i = 0 To 10
If Check(i).Value = 1 Then
'MsgBox i
smin = 10000
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
If CSng(grid.TextMatrix(j, i)) < smin Then
smin = CSng(grid.TextMatrix(j, i))
End If
End If
Next j
grid.TextMatrix(ps, i) = smin
End If
Next i
If colseled = True Then
i = grid.ColSel
smin = 10000
For j = 1 To send
If grid.TextMatrix(j, i) <> "" Then
'MsgBox grid.TextMatrix(j, i)
If CSng(grid.TextMatrix(j, i)) < smin Then
smin = CSng(grid.TextMatrix(j, i))
End If
End If
Next j
grid.TextMatrix(ps, i) = smin
End If
Text1.Visible = False
'On Error GoTo ErrHandler
Exit Sub
ErrHandler:
Call net_ERR_center(1, Err.Number, Err.Description, "先选择计算列项目！或你选定的列不可计算")
End Sub
Private Sub menu_zuigaofen_Click()
Dim i, j, send, ps, findd As Integer
Dim smax As Single
On Error GoTo ErrHandler
Dim colseled As Boolean
If grid.ColSel > 0 And grid.RowSel = Crow_max Then
colseled = True
End If
findd = 0
For i = 0 To 10
If Check(i).Value = 1 Then
findd = 1
End If
Next i
If findd = 0 And colseled = False Then
MsgBox "先选择计算项目！"
Exit Sub
End If
send = 0
For i = 1 To Crow_max
If grid.TextMatrix(i, 0) = "*********" Then
send = i - 1
'MsgBox send
Exit For
End If
Next
If send = 0 Then
Call MsgBox("在所有学号结束后必需有一个结束⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -