VBA代码实现Excel中数据快速录入
发布时间：2022-07-13 15:15:52
在Excel中录入数据有很多的技巧，合理地运用它们可以提高我们的工作效率。本文另辟蹊径，向大家介绍一下如何利用VBA代码实现数据的快速录入。请看下面的例子。
假设在填写的某列数据中，员工所属的部门有“一车间”、“二车间”、“销售部”等等，如果我们能用数字代替这些文字内容输入的话，必将大大提高我们录入的效率。
根据这个思路，我们在该工作表的Change事件中输入了如下的代码：
Private Sub Workheet_Change(ByVal Target As Range)
If Target.Column = 2 Then ’只在第二列实现该功能
If Target.Value = 1 Then
Target.Value = "一车间"
Else
If Target.Value = 2 Then
Target.Value = "二车间"
Else
If Target.Value = 3 Then
Target.Value = "销售部"
End If
End If
End If
End If
End Sub
返回到Excel窗口，这时输入相应的数字就可以被替换成指定的文本内容了。可能有的朋友会想，先输入这些数据，然后用查找替换的方法不也行吗。然而我们会发现，用查找替换操作容易将其他列中的这些数据错误地替换掉，如果每个数字经确认后再替换就显得比较烦琐了，而用代码就不会出现这些问题，加载之后就可以一劳永逸了。
提示：代码中“Target．Column ＝ 2”用于指定只能在第二列输入这些数据时才有效(如果不指定对整个工作表都有效)，这样才能保证在其他列输入这些数据时不会受到影响。类似地，我们还可以用代码来控制在其他列中快速地录入文本。该技巧适合事先加载到表格中或编制成程序让不熟悉Excel的人员使用，这样我们将员工填写的表格(在相应的编号内容中打勾或直接填写指定内容的编号)收上来之后就可以快速地采集数据了。
0
投稿猜你喜欢
在电脑上，宽带连接是出问题比较多的地方，问题也多种多样，最近有很多人在连接宽带时，出现这样的提示“错误711，无法加载远程访问连接管理器服务- 在Excel中除了需要进行数据的录入，有时候需要把某类的数据进行独立的统计。下面是小编带来的关于如何用excel统计分类数据的方法，欢迎阅读
- 微软日前表示，今年4月13日将结束对WindowsVista的支持。微软称，从今年4月13日起，将结束对WindowsVista支持，这意味
- 很多使用艺龙酒店订房间的小伙伴不知道怎么添加信用卡付款，接下来小编就带大家一起往下看看在艺龙酒店app中添加信用卡的方法吧。方法步骤1、打开
- 我们在使用电脑的时候，有的小伙伴的外设用的是无线的因为比较方便。但是如果我们的而无线鼠标出现了鼠标指针无法控制，动不了了的情况应该怎么做呢。
- PPT2019怎么复制幻灯片？这篇文章主要介绍了PPT2019复制幻灯片方法,需要的朋友可以参考下ppt2019演示文稿，如果某些幻灯片需要
- win10透明效果不明显不会设置是两个郁闷的问题，其实解决方法非常简单，只要打开了透明效果模式，选择深色模式就可以了，很多小伙伴不知道这个方
- win11卡在登录界面无法登陆？win11是全新的操作系统，很多用户都在升级更新，Win11是全新的操作系统，很多用户都在升级更新。但是有些
- 使用DBeaver ce连接数据库怎么操作？DBeaver Mac是OS平台上实用的数据库管理工具，易用性是DBeaverEE的主要目标，支
- 最近很多用户的Win10桌面图标都发生了异常，变成了PDF图标。这使用因为PDF阅读器错误地关联了快捷方式的.Ink文件。需要用注册表来清除
- 很多朋友都知道WP8/WP8.1手机用户将可以免费升级至win10系统，那么到底有哪些wp手机可以升级至win10手机版呢很多朋友都知道WP
- 每次进入Windows XP桌面前，总会出现一个用户登录的画面，要求输入用户名和密码，由于是一个人使用所以不想输入，其实要取消这个登录步骤，
- Win10系统在创建家庭组的时候，提示家庭组无法创建，家庭组末准备就绪，出现这样的情况怎么办呢？下面我们就一起来看看解决办法吧。1、在Win
- 当我们需要统计excel中某一数据出现次数的时候怎么办?具体该怎么去进行操作的呢?今天，小编就教大家在Excel中进行统计出现次数的操作方法
- wps文档里面经常会出现大量的文本，这时我们需要对文本段落的格式进行设置，那么，我们应该如何设置文本段落的格式呢?下面就让小编告诉你wps设
- 在Win7系统开机进入桌面时，不少用户遇到桌面弹出“Windows驱动器未就绪”的提示窗口，遇到这种问题该怎么办？下面告诉大家Win7开机弹
- 如何解决Win7鼠标拖尾的问题?最近，有Win7系统的用户在使用鼠标的时候，发现鼠标有拖尾的现象，让人看了都头晕，那么该如何解决鼠标拖尾的问
- 在使用傲游浏览器的过程中遇到问题时，除了可以通过网络查找解决问题的方法外，用户还可以将之反馈给官方，以便其在后续的更新中进行修复！那么，在傲
- 关于windows系统出现黑屏、蓝屏的故障是不在少数的，但是升级到win10系统之后，似乎这些故障也升级了，win10电脑在使用IE11浏览
- office2016是微软发布的全新办公软件套件，很多用户更新到office2016后，发现office2016打开会卡顿，运行非常缓慢，这
