如何在Exce中l录入时开启单元格自动下拉菜单
时间:2022-01-17 19:23:37
当我们在Excel表格中需要输入大量的重复数据时,往往利用数据的有效性来制作一个下拉菜单以提高重复数据的输入速度。但在实际的操作过程中,必须选中需要输入重复数据的单元格并单击该单元格右边的下拉箭头,才可以看到自己事先定制的数据有效性的下拉菜单。当我们在Excel表格中需要输入大量的重复数据时,往往利用数据的有效性来制作一个下拉菜单以提高重复数据的输入速度。但在实际的操作过程中,必须选中需要输入重复数据的单元格并单击该单元格右边的下拉箭头,才可以看到自己事先定制的数据有效性的下拉菜单。那么,能否实现在选中Excel单元格时自动展开数据有效性的下拉菜单以使得重复数据的输入更快一步呢?答案当然是肯定的。接下来。笔者就给大家介绍一下如何来实现。
实现下拉菜单步骤:
先启动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处。这样一来我们输入那些重复的数据就可以比原来更快一步了。有此需求的朋友不妨一试。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Excel函数实现列数较少表格分栏打印
![](https://img.aspxhome.com/file/2023/4/39414_0s.jpg)
Excel2010怎么设置密码
![](https://img.aspxhome.com/file/2023/8/37328_0s.jpg)
AOC一体机预装win10怎么改成win7系统?
![](https://img.aspxhome.com/file/2023/6/51486_0s.png)
如何解决word文件不能编辑鼠标无法定位只能阅读不能改
word空白的下划线怎么打?word打下划线介绍
![](https://img.aspxhome.com/file/2023/3/24973_0s.jpg)
Win10 Computer Browser服务启动后又停止怎么解决?
![](https://img.aspxhome.com/file/2023/7/48697_0s.jpg)
Win10电脑怎么修改鼠标指针?
![](https://img.aspxhome.com/file/2023/3/49933_0s.jpg)
Word怎么制作立体文字穿插文本框的效果?
![](https://img.aspxhome.com/file/2023/3/30183_0s.png)
Excel制作单元格下拉选择数据
Excel 2010数据已筛选项怎么汇总?
![](https://img.aspxhome.com/file/2023/6/41496_0s.jpg)
word 制作公章的方法图解教程及技巧
![](https://img.aspxhome.com/file/2023/9/35799_0s.jpg)
怎样将Excel中的工作表移出表格
word怎样增加段前间距?
![](https://img.aspxhome.com/file/2023/4/35684_0s.png)
Excel2016打印文件怎么给页眉页脚添加文件路径?
![](https://img.aspxhome.com/file/2023/0/40440_0s.jpg)
word文档怎么设置页码到页脚中
excel表格中的数据怎么创建为曲面图?
![](https://img.aspxhome.com/file/2023/1/41351_0s.jpg)
word设置字体快捷键的方法步骤
Excel拖动单元格到新位置后覆盖原内容
![](https://img.aspxhome.com/file/2023/0/37230_0s.jpg)
word删除页眉页脚的横线几种方法
![](https://img.aspxhome.com/file/2023/9/23559_0s.png)