前言
使用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