操作方法
用设置自定义单元格格式的方法 例如要在F4:F50区域中只输入“男”或“女”。选择该区域,鼠标右击,在右键菜单中选择“设置单元格格式”,弹出“设置单元格格式”对话框,依次选择“设置→自定义”,在右侧“类型”下方的文本框中输入: [=1]"男";[=2]"女";
如果有三个选择,如“优秀、合格、不合格”,上述代码改为: [=1]"优秀";[=2]"合格";"不合格"; 这样,在上述区域中输入“1”时自动显示为“优秀”,输入“2”时显示为“合格”,而输入其他数值时显示为“不合格”。需要注意的是,这时单元格中的内容仍然为数字,只是通过自定义单元格格式将其显示为文字而已。
法2 用VBA 例如要在G4:G50区域中将输入的数字“1、2、3、4”分别转换为“优秀、良好、及格、不及格”。按Alt+F11打开VBA编辑器,在代码窗口中粘贴下列代码:
Private Sub Worksheet_Change(ByVal Target As Range) Dim rRng As Range Set rRng = Application.Intersect(Target, Range(" G4:G50")) If rRng Is Nothing Then End Dim rCell As Range For Each rCell In rRng Select Case rCell.Value Case 1 rCell.Value = "优秀" Case 2 rCell.Value = "良好" Case 3 rCell.Value = "及格" Case 4 rCell.Value = "不及格" End Select Next End Sub 关闭VBA编辑器,在G4:G50区域中输入相应的数字时即可自动转换为对应的文字。