VBA代码在Excel工作表中快捷输入的应用

最新推荐文章于 2024-07-15 21:31:41 发布

Excel潘谆白说VBA

最新推荐文章于 2024-07-15 21:31:41 发布

阅读量432

点赞数 14

分类专栏： VBA Excel 文章标签： excel 职场和发展程序人生

本文链接：https://blog.csdn.net/beijixingvba/article/details/139639259

版权

VBA 同时被 2 个专栏收录

43 篇文章 0 订阅

订阅专栏

Excel

43 篇文章 0 订阅

订阅专栏

视频效果请点击

文章目录

前言
- 1.代码如下：

前言

使用Excel工作表工作时，经常需要手动输入数据，对于简单、重复性的数据，如性别、学历、在职状态等，如果手动输入可能会费时费力，用下拉菜单会相对省点时间，有没有更快捷的方法？
试试用VBA代码，输入数字，便可快速转换成想要的结果。如在“性别”列，输入“1”显示“男”，输入其他数字显示“女”；在“学历”列，输入“1”显示“专科及以下”，输入“2”显示“本科”，输入其他数字显示“硕士及以上”；在“状态”列，输入“1”显示“在职”，输入“2”显示“离职”，输入其他数字显示“退休”。

1.代码如下：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 If Target.Column = 2 Then
   Selection.NumberFormatLocal = "[=1]男;女"
 ElseIf Target.Column = 3 Then
   Selection.NumberFormatLocal = "[=1]专科及以下;[=2]本科;硕士及以上"
 ElseIf Target.Column = 4 Then
   Selection.NumberFormatLocal = "[=1]在职;[=2]离职;退休"
 End If
End Sub