ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4502|回复: 8

[推荐] Excel录入中实现单元格多选项自动下拉

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-5-28 01:21 | 显示全部楼层 |阅读模式
当我们在Excel表格中需要输入大量的重复数据时,往往利用数据的有效性来制作一个下拉菜单以提高重复数据的输入速度。但在实际的操作过程中,必须选中需要输入重复数据的单元格并单击该单元格右边的下拉箭头,才可以看到自己事先定制的数据有效性的下拉菜单。那么,能否实现在选中Excel单元格时自动展开数据有效性的下拉菜单以使得重复数据的输入更快一步呢?答案当然是肯定的。接下来。给大家介绍一下如何来实现。

[img][/img]


先启动Excel 2003并打开某个已设置好数据有效性下拉菜单的工作簿(如“工资表.xls”),然后单击菜单“工具→宏→Visual Basic 编辑器”命令,调出“Visual Basic 编辑器”;接着在“Visual Basic 编辑器”窗口中,双击“工程 - VBAPRoject”面板中的“Sheet1(*)”选项(*为当前需要快速输入重复数据的工作表),在弹出的代码窗口中输入以下代码:
  Option Explicit
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 3 Then application.SendKeys “%{down}”
  If Target.Column = 4 Then Application.SendKeys “%{down}”
  End Sub
  上述代码输入完毕后,关闭“Visual Basic 编辑器”窗口,此时我们输入的代码就会自动保存。
  小提示:代码的含义是当我们选中第3列、第4列(即C列和D列)的任意一个单元格时,都会自动展开数据有效性的下拉菜单。在实际的操作过程中,大家可灵活地修改这两个自然数以满足自己的需要。
  完成上述操作后,关闭“工资表.xls”并保存对其所做的修改,然后重新打开它,接着选中C列或D列的任意一个单元格(如图中的D11单元格),此时就可以看到该列单元格自动展开的数据有效性的下拉菜单了,如图A处。这样一来我们输入那些重复的数据就可以比原来更快一步了。有此需求的朋友不妨一试。

TA的精华主题

TA的得分主题

发表于 2011-5-28 16:55 | 显示全部楼层
了解          

TA的精华主题

TA的得分主题

发表于 2011-5-29 11:41 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-5-29 21:02 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-5-30 13:38 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2011-5-30 16:46 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-3-1 08:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 rztjkjs 于 2013-3-1 08:38 编辑

我试了试,出现
编译错误:语法错误   
怎么回事?很想学习学习

TA的精华主题

TA的得分主题

发表于 2013-3-20 10:33 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2013-7-1 21:30 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-27 20:11 , Processed in 0.036815 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表