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


赞助商链接

一(5)班考试登分表1

一(5)班考试登分表1 - 龙川小学 学科 序号 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 姓名 李慕宸 何逸飞 ...

2015年元旦运动会体育活动登分表

2015年元旦运动会体育活动登分表_其它_工作范文_实用文档 暂无评价|0人阅读|0次下载|举报文档 2015年元旦运动会体育活动登分表_其它_工作范文_实用文档。2015 年...

302成绩登分表

302成绩登分表_其它_总结/汇报_实用文档。学生成绩登分表 302 班 时间 学号 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 ...

班别小学六年级登分表

班别小学六年级登分表 - 班别小学六年级登分表 姓名 黄会伦 乔满宏 李万林 杨亚美 李卓林 李晓凤 罗艳光 谭礼萍 肖晶泽 雷选乐 刘峻佚 尹斌艳 起佳勇 赵...

期末考试登分表

期末考试登分表 - 合众中心校 2010 至 2011 学年度第二学期期末考试登分表 相山区张楼小学 相山区张楼小学 (公章) 张楼 考 考号 场 22 22 22 22 22 ...

篮球比赛登分表_

篮球比赛登分表_ - S 本篮球比赛登分表 对阵: 班级: S 本: ~~~ 总得分 姓名 号码 犯规 得分 S 本: 姓名 号码 犯规 得分 记录员: 裁判员 ...

体育测试成绩登分表

体育测试成绩登分表_中考_初中教育_教育专区。体育测试成绩登分表九 年级 项目 姓名 1000 800 米米 (男) (女) 立定跳远 1 班 50 米前掷实心球米 6.9 70...

西营小学一年级登分表

西营小学一年级登分表_表格类模板_表格/模板_应用文书 暂无评价|0人阅读|0次下载|举报文档 西营小学一年级登分表_表格类模板_表格/模板_应用文书。西营小学一...

三年级数学实践活动登分表

三年级数学实践活动登分表 - 三年级数学综合实践活动获奖名单 姓名 班级 三年级( )班 三年级( )班 三年级( )班 三年级( )班 三年级( )班 三年级( )班...

舞蹈成绩登分表

舞蹈成绩登分表_表格类模板_表格/模板_实用文档。成绩表 1502 舞蹈成绩登分表(一年级上册)指导教师:夏毓曼 40% 学号 1 2 3 4 5 6 7 8 9 10 11 12 ...