EP资料 学生成绩分析模板

bulg

自己做的一个关于成绩分析的模板，把里面的学生名字改一下，就可以用。另外要把自己的学生数自己确定好，在相应的单元格中把公式改一下。<br/>

mazt-007

<p>还可以</p><p></p><p>还可以</p>

xiachunzhong

顶一下。还可以！

bulg

<p>自己顶一下！</p>[em07]

寒冰思雨

<p>适合初学者</p>

dlnjmyg

<p>适合初学者</p>

xue_3860622

<p>看看吧~~</p>

zhipinghks

<p>你把以下代码复制到“手动成绩排序”表的VBA编辑器中的代码窗口后存盘即可自动排序。</p><p>rivate Sub Worksheet_Activate()<br/>Application.ScreenUpdating = False<br/>&nbsp;&nbsp;&nbsp; Range("A2:D1150").Select<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1121<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1107<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1099<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1092<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1082<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1070<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1056<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1037<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1019<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 1001<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 982<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 966<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 943<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 925<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 907<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 888<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 870<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 852<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 833<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 817<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 799<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 780<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 762<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 739<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 717<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 695<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 672<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 650<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 627<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 609<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 591<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 568<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 550<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 527<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 511<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 491<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 474<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 456<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 442<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 427<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 415<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 405<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 395<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 384<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 374<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 364<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 354<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 344<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 338<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 336<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 327<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 317<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 307<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 297<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 289<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 280<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 270<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 260<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 250<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 236<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 223<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 209<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 195<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 180<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 172<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 158<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 144<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 132<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 121<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 111<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 107<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 97<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 89<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 83<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 74<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 68<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 60<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 56<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 52<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 44<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 36<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 25<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 11<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 3<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal<br/>&nbsp;&nbsp;&nbsp; Range("G2:J648").Select<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 619<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 615<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 612<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 610<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 604<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 598<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 593<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 589<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 583<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 573<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 563<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 550<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 534<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 521<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 505<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 491<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 477<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 464<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 451<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 439<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 424<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 409<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 394<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 380<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 365<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 350<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 338<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 325<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 308<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 290<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 271<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 253<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 238<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 222<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 206<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 191<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 177<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 160<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 149<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 136<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 125<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 112<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 104<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 98<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 92<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 87<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 83<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 79<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 75<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 71<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 67<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 63<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 59<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 55<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 51<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 49<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 44<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 41<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 36<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 32<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 28<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 25<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 17<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 12<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 10<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 9<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 6<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 5<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 4<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.ScrollRow = 3<br/>&nbsp;&nbsp;&nbsp; Selection.Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlGuess, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :=xlPinYin, DataOption1:=xlSortNormal<br/>&nbsp;&nbsp;&nbsp; Range("F1").Select<br/>&nbsp;&nbsp;&nbsp; ActiveWindow.SmallScroll Down:=-18<br/>&nbsp;&nbsp;&nbsp; Range("F1").Select<br/>&nbsp;&nbsp;&nbsp; ActiveCell.FormulaR1C1 = "已排序"<br/>&nbsp;&nbsp;&nbsp; Range("F1").Select<br/>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = True<br/>End Sub<br/></p><p></p>

kxpxd

顶一下

zsd5237

8楼不错！