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

考试登分表自动生成 - XX镇X学校XX学期 检测登分表 XX校二年级132班

登分表模板.xls

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

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

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

单科登分表模版.xls

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

登分表多功能表格.xls

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

月考成绩登分表模板_图文.xls

603月考语文成绩登分表 2016.6.9 班级:603 任课教师: 登分教师:

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

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

登分表.xls

登分表 - 2016-2017学年第二学期( 编号 姓名 月考一 月考二 1 党

一年级登分表.doc

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

新登分表.xls

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

登分表_图文.xls

登分表 - 姓名 史鑫昌 李伟东 谷茜茜 赵保平 王伟 王园园 陈一帆 刘凡凡

登分表.doc

期末登分表 10页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题...使用一键分享,轻松赚取财富值, 了解详情 嵌入播放器: 普通尺寸(450*500pix) ...

登分表.xls

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

登分表.xls

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

成绩登分表.doc

(2013-2014)学年度下学期期末成绩登分表 年班:二年四班 学科: 品德与

登分表.doc

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

登分表.xls

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

登分表.xls

登分表_表格类模板_表格/模板_实用文档 暂无评价|0人阅读|0次下载|举报文档登分表_表格类模板_表格/模板_实用文档。地理序号 1 2 3 4 5 6 7 8 9 10...

登分表.xls

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