转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件使用 >> 办公软件 >> 正文
Excel按一个键就会在当前行规定的位置自动输入数据         ★★★★

Excel按一个键就会在当前行规定的位置自动输入数据

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1139 更新时间:2010/6/21 21:36:09

  在Excel中,如何才能做到,按下键盘上的某些键,就会在规定的单元格内自动输入固定的数据呢?

  首先我们来看下表!

  上表中,是学生收费的记录表,其中,应交学费,每个学生的都是同样的,这些数据,不需要我们输入。我们所需要输入的是学生的住宿费。

  一、问题需求

  住宿费用,分为两种,一种是200元,另外一种是300元。

  针对这张表,我们得这样来做,先找到学生姓名在哪一行,然后,找到对应的D列单元格,输入学生的住宿费,完成学生的收费情况。

  现在,有个严峻的问题摆在我们面前,找到了学生姓名在哪行之后,每次都得在D列输入要么是200要么是300的数据,并且,学生人数如果达几千人,这样输入是不效益的!

  二、要实现的功能

  对准上面的表格来看,现在,我们要做的就是:通过查找的方法,找到学生姓名所在的位置之后,按下F2会在当前行的D列相应的单元格输入200,按下F3就输入300,以此实现快速输入。

  比如,当我们找到“冰山”这个学生姓名之后,选中的是A6单元格,现在,只要按下F3,就会自动在D6这个单元格,自动输入这个学生的住宿费300。

  三、理论知识指导

  要想实现这种功能,必须使用Excel监听按键的功能。此外,还要判断出当前所选择的单元格所在的行。这样,就完全可以通过按下功能键,在当前行的规定位置,自动输入数据了。

  四、所需要的代码

  要想实现此功能,非VBA不可,并且,没有一点基础的,是很难学习该技术的。因此,本站力求简单,不再阐述更多的与此相关性不大的话题。

  首先,在ThisWordbook中的代码有两个事件代码。

  照着输入就行了。

  再次,在“模块1”中的代码如下。

  照着输入即可。

  代码说明:

  Public MyRow As Integer首先定义一个公有变量,用来检测所选中的单元格所在的行,以此为参照对象,在当前行实现自动输入数据的功能。

  为了能及时的获取当前行,必须使用MyRow = Target.Row代码获取行号,另外,此代码必须放在Workbook_SheetSelectionChange事件内。

  上述的所有代码,可以说没有几行代码。但是,逻辑性稍微强点,希望您能搞清楚在什么地方使用什么代码,在此基础之上,您方可修改并加以利用。


[Web开发]上篇—水晶报表导出为word/excel文件的代码  [Web开发]下篇—水晶报表导出为word/excel文件的代码
[Web开发]关于虚拟空间的System.Web.HttpUnhandledExceptio…  [Web开发]在C#中如何对Excel单元格设置背景色以及对Range设…
[网页制作]js将表格导出为word/excel文件的代码  [办公软件]Excel宏与函数的本质区别
[办公软件]excel菜单栏和右键菜单被屏蔽的解决办法  [办公软件]如何打印Excel的批注
[办公软件]Excel数据分列与合并的经验总结  [办公软件]总结Excel自动填充功能的高级技巧
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · 办公软件  · 系统软件
    · 常用软件  · 聊天工具
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台