Sheets("平均分").Select
Fori=1To4
Forj=1To6
ActiveSheet.Cells(i 2,j 1)=pjf3(i,j)
Nextj
Nexti
注释：写入全校各科平均分
i=7
Forj=1To6
ActiveSheet.Cells(i,j 1)=qxpjf(j)
Nextj
EndSub
⑷分数段
Sub分数段()
Constmax=600
Constmin=390
Conststudentno=190
Constbjnum=4
Constfsdnum=22
Dimbjfsd(bjnum,fsdnum),zf(studentno,2)
Sheets("高三理").Select
Fori=1Tostudentno
zf(i,1)=ActiveSheet.Cells(i 1,1)注释：存放班级
zf(i,2)=ActiveSheet.Cells(i 1,11)注释：存放总分
Nexti
Fori=1Tostudentno
Forj=1To4注释：3---6班共4个班级
Ifzf(i,1)=j 2Then
Fork=maxTominStep-10
low=Int((max 10-k)/10)
Ifzf(i,2)>kThenbjfsd(j,low)=bjfsd(j,low) 1
Nextk
EndIf
Nextj
Nexti
Sheets("sheet3").Select
Fori=3To6
Fork=1Tofsdnum
ActiveSheet.Cells(i,k 1)=bjfsd(i-2,k)
Nextk
Nexti
Range("M3:W6").Select
Selection.Cut
ActiveWindow.LargeScrollToRight:=-1
Range("B8").Select
ActiveSheet.Paste
EndSub
⑸删除
Sub删除()
Sheets("33").Select
ActiveWindow.SelectedSheets.Delete
Sheets("34").Select
ActiveWindow.SelectedSheets.Delete
Sheets("35").Select
ActiveWindow.SelectedSheets.Delete
Sheets("36").Select
ActiveWindow.SelectedSheets.Delete
EndSub
->
如果您对本文有任何疑问或者建议，请到讨论区发表您的意见:
>>
论坛入口 <<
上一篇：
VB中调用WindowsAPI的注意事项 下一篇：
利用VB设计打印复杂报表
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【我要投稿】 【论坛讨论】
