互联网 qkzz.net
全刊杂志网:首页 > 女性 > 文章正文
刊社推荐

Excel与成绩统计你问我答


□ 别云堂 向德海 江育奇

  1.问:如何方便地将excel里的学生成绩用电子邮件发给每一位学生呢?

  答:如有一个班成绩单如图1所示,以此为例为大家说明需要进行的操作。

  第一步,在工作表输入每个考生的邮箱地址,输入在h列,在i列输入邮件内容的问候语,为使邮件格式正确,在i1单元格输入文字时要使用“alt+enter”组合键实现段落分行。将文字格式设置好后,将i1单元格内容向下复制到相应数据区域(图1)。

  第二步,编写代码。执行“工具→宏→visulbasic编辑器”命令或按下alt+f11组合键,在visul basic编辑器中选择“插入→添加模块”命令,在代码窗口输入以下代码:

  sub发送邮件()

  dim x,icount as,nteger

  on error resume next

  icount=sheets(”sheetl”).[a1].current region.rows.count//把sheetl表中记录行数赋予icount

  set y=createobject(“outiook.app,ication”)//创建outlook应用程序对象

  for x=2 to icount

  set z=y.create,tem(oimaiiitem)//新建一个邮件对象

  with z//设置邮件属性

  to=ceiis(x,8)//在单元格中取收件人地址

  subject:”沙洋监狱管理局中学高一期中考试成绩”//加注邮件主题

  body=ceiis(x,1)&ceiis(x,9)&” 语文”&ceiis(x,2)-

  &数学“&ceiis(x,3)&”英语”&ceiis(x,4)&”综合”&ceiis(x,5)一

  &“总分”&ceiis(x,6)&”名次”&ceiis(x,7)//设置邮件内容

  .anachments.add”d:\图片\1022.jpg”

  .anachments.add”d:\xdh\1.doc",//添加2个邮件附件,文件名后缀不能省略

  .send//自动发送由p件

  end with

  set z:nothing//撤销邮件对象

  next

  set y:nothing//撤销肖outl00k应用程序对象

  msgbox icount-1&”个学生成绩发送成功! ”

  end sub

......
很抱歉,暂无全文,若需要阅读全文或喜欢本刊物请联系《中小学信息技术教育·技术与应用》杂志社购买。
欢迎作者提供全文,请点击编辑
分享:
 

了解更多资讯,请关注“木兰百花园”
分享:
 
精彩图文


关键字
支持中国杂志产业发展,请购买、订阅纸质杂志,欢迎杂志社提供过刊、样刊及电子版。
关于我们 | 网站声明 | 刊社管理 | 网站地图 | 联系方式 | 中图分类法 | RSS 2.0订阅 | IP查询
全刊杂志赏析网 2017