kl800.com省心范文网

一键制作登分表


一键制作学校期中(期末)登分表
可在百度云盘:http://pan.baidu.com/share/link?shareid=344407&uk=2902695957 下载 在以期中或(期末)成绩按班名升序排列的成绩表基础上(见样表) 一键制作学校期中(期末)登分表。 点击“"1j 登分"按钮就可” Thisworkbook 代码: PrivateSubWorkbook_Open() menu EndSub PrivateSubWorkbook_BeforeClose(CancelAsBoolean) EndSub 模块 1 代码: Submenu() DimHqMenuAsCommandBarButton DimmycontrolAsCommandBarControl ForEachmycontrolInApplication.CommandBars("xel7000").Controls Ifmycontrol.Caption="1j 登分"Thenmycontrol.OnAction="一键制作登分表"'按下菜 单执行的命令,自行链接功能程序 Next EndSub Sub 一键制作登分表() DimlngMrowAsLong,iAsLong,intArr(1To8)AsInteger DimintBj,inttjAsInteger,strName,tj,currennameAsString DimdfnameAsWorkbook currenname=ActiveWorkbook.Name Setdfname=Workbooks.Add(Template:="E:\个人用\自动排版\xel7000 自动化办公 工具集成包\考试制表取巧法\登分表.xlt")’文件路径可修改 '分班并累加 1 Fori=1To8 intArr(i)=1 Nexti lngMrow=Workbooks(currenname).Sheets("Sheet1").Range("A"&Rows.Count).End( xlUp).Row Fori=3TolngMrow IfLen(Trim(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).Value))>0Then inttj=Mid(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).Value,1,1)' 取 得 年 级 号 intBj=Mid(Workbooks(currenname).Sheets("Sheet1").Cells(i,1).Value,2,1)' 取 得 班 级

号 strName=Workbooks(currenname).Sheets("Sheet1").Cells(i,2).Value Workbooks(dfname.Name).Sheets("Sheet1").Cells(intArr(intBj)+1,(intBj-1)*3+1).Val ue=inttj&intBj&Format(intArr(intBj),"00") Workbooks(dfname.Name).Sheets("Sheet1").Cells(intArr(intBj)+1,(intBj-1)*3+2).Val ue=strName intArr(intBj)=intArr(intBj)+1 EndIf Nexti If(inttj=1)Then tj="一" ElseIf(inttj=2)Then tj="二" Else tj="三" EndIf Workbooks(dfname.Name).SaveAsFilename:=Workbooks(currenname).Path&"\"&" 期初"&tj&"登分表.xls" EndSub


一键制作登分表.doc

一键制作登分表 - 一键制作学校期中(期末)登分表 可在百度云盘:http://

登分表模板.xls

登分表模板 - 1.1班登分表 科目: 姓名 边蒙 陈鹏 史贵志 刘佳怡 蒋宏伟

单科登分表模版.xls

单科登分表模版 - 临近期中,将各种各样的考试。特制作了一张通用登分表,只要输入

登分表多功能表格.xls

登分表多功能表格 - 成绩统计表 学校:阳光培英 原班 人数 语文 34 数学

各年级成绩登分表模版.xls

各年级成绩登分表模版 - 20 姓名 测验1 年 年级 测验4 班 科成绩登记表

登分表模板.xls

登分表模板 - 三(1)班登分表 序号 1 2 3 4 5 6 7 8 9 10

考试成绩登分表 (自动统计).xls

考试成绩登分表 (自动统计) - 考试成绩登分表 ,能自动统计人数、总分、平均分

登分表.xls

登分表 - 航南 中心校 第十六 小学 期末考试 学科2013-2014学年上学

学校学生成绩登分表(模版).xls

学校学生成绩登分表(模版)_其它课程_小学教育_教育专区。中小学生成绩登分表

一年级登分表.doc

一年级登分表 - 登分表(2017 年春季) 一 年级 编号 姓名 1 班 数学

登分表_图文.xls

登分表 - 考场 考号 19 1 20 36 22 23 22 1 20 23

期末考试登分表(终极版)_图文.xls

期末考试登分表(终极版) - 三(1)班 学生 姓名 刘俊 胡新宇 王新跃 戴波

登分表.doc

登分表 - 黄鹏整 刘鹏亮 余小平 毛慧祺 章佳俊 舒刘文 邱在利 付欣 郑海萍

自主学习登分表20180117.xls

自主学习登分表20180117 - 班级 1 1 1 1 1 1 1 1 1 1

登分表.doc

登分表_其它课程_小学教育_教育专区。黑塔镇第二小学登分表班级___ 科目___ 总分___ 平均分___ 姓名 分数 姓名 分数 黑塔镇第二小学登分表班级___ 科目...

登分表.xls

登分表 - 1 冯梓杰 2 黄浩 3 刘梓珊 4 黄文俊 5 李宇萱 6 卢文欣

登分表.xls

登分表 - 班级 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

登分表.xls

登分表 - 金称市镇中学 姓名 班姓名 登分表... 登分表_其它课程_小学教育_教育专区。金称市镇中学姓 名 班姓 名 登分表 金称市镇中学姓 名 班姓 名 ...

登分表.xls

登分表 - 学号 1 2 3 4 5 6 7 8 9 10 11 12 13 1

登分表_图文.xls

登分表 - 九年级第一次联考登分表... 登分表_中考_初中教育_教育专区。九年级第一次联考登分表 编号A001 A008 A007 A003 A002 A009 A006 A013 A031 A015 A...