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

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

考试成绩智能登分表.xls

考试成绩智能登分表 - 之前了一个,视觉有偏差,现修改后重新上传。... 考试成绩智能登分表_其它课程_小学教育_教育专区。之前了一个,视觉有偏差,现修改后重...

同步登分表.doc

同步登分表 - 班级: 姓名: 学号: 班级: 姓名: 学号: 班级: 姓名:

登分表.xls

单元登分表 2页 免费 综合登分表 1页 免费 比赛登分表 4页 1财富值 登分...使用一键分享,轻松赚取财富值, 了解详情 嵌入播放器: 普通尺寸(450*500pix) ...

新登分表.xls

登分表 - 三( 4)班 编号 3401 3402 3403 3404 340

登分表.xls

登分表 - 上饶市扬帆中学考试成绩表 班级: 学号 9401 9402 9403

登分表.xls

登分表 - 三 年级 英语 考试成绩表 学校 序号 1 2 3 4 5 6 7

一年级 登分表.xls

一年级 登分表 - 2013-14年第二学期东朗小学一(1)班统一检测成绩登记表

登分表.doc

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

登分表.xls

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

登分表.xls

登分表_其它课程_小学教育_教育专区。高一()班学生登分表学科___ 任课老师_

登分表.xls

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

专业课登分表.xls

专业课登分表 - 专业课段、期考成绩登分表 班级: 序号 1 2 3 4 5 6

登分表_图文.xls

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

登分表.doc

登分表 - 考号 5170101 5170102 5170103 5170104

继续教育登分表.xls

继续教育登分表 - 武穴市中小学教师继续教育情况一览表 姓名 单位 填报单位:

单元登分表 -_图文.xls

单元登分表 - - 鹤洲学校20132014学年第 科目:数学 班级:一(2)

登分表(1).xls

登分表(1) - 姓名 王凯 张海宁 王潇 何文江 王文涛 王银飞 白姣姣 丁志

登分表.xls

登分表 - 学期期末测试登分表 序号 姓名 语文 教师 数学 教师 序号 姓名