Sub Macro1()
'
' Macro1 Macro
ActiveCell.FormulaR1C1 = "女"
End Sub
Sub Macro2()
'
' Macro2 Macro
ActiveCell.FormulaR1C1 = "男"
End Sub
把以上宏复制粘贴至你文件里。
1:可右键点击工作表名称处---查看代码---粘贴以上宏---关闭编辑窗口。
2:工具---宏---宏---选择一个宏---选项---选择一个快捷键---确定。
以后输入时就可按快捷键输入了。
右键:设置单元格格式→自定义:在类型里输入:
[=1]"男";[=2]"女";G/通用格式
方法一:VBA
方法二:自动更正选项
如果你只要求显示效果,用单元格格式比较方便;
如果要完全更改单元格的值,则要用VBA,
用change来击活,select case来实现
三楼正解