Excel高手_还有_怪才,麻烦进来...

来源：百度知道编辑：UC知道时间：2024/06/08 08:06:54

如何自定单元格数值格式:
当输入1时,显示"甲"
当输入2时,显示"乙"
当输入3时,显示"丙"
当输入4时,显示"丁"

我是这样设的,但是无效:
1:甲,2:乙,3:丙,4:丁

alt+F11打开VBA窗口，双击左边窗口中的工作表名，假设是Sheet1的话就是Sheet1(Sheet1),在右边打开的代码窗口粘贴下面的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err
With Target
Select Case CInt(.Value)
Case 1: .Value = "甲"
Case 2: .Value = "乙"
Case 3: .Value = "丙"
Case 4: .Value = "丁"
End Select
End With
err:
End Sub

这样可以实现自动替换，建议最好能确定需要自动替换的具体范围，这样避免其他不需要自动替换的单元格也受影响而输入不了1，2，3，4

甲;1 乙;3 丙;6 丁;10
或者依1:甲,2:乙,3:丙,4:丁互相交换试过来.!

不明白...

如果你只是为了想方便的输入甲乙丙丁汉字，那可以用另类的方法：在菜单栏“工具”---自动更正选项---“替换”填写栏里填写“--1”即2个减号和1，“替换为”填写栏里填写“甲”，其他依此类推，确定就可，单元格输入的时候输入“--1”，ok！达到目的！两个减号用别的符号代替也可，但两个减号很方便。

=IF(A2=1,"甲",IF(A2=2,"乙",IF(A2=3,"丙",IF(A2=4,"丁"))))
但不是同一单元格！

讲个体点,没觉得有实战意义.....

Excel高手_还有_怪才,麻烦进来... ^_^ASP高手请进！^_^ !@#$%^&*()_+$% ???????^_^??????????????? 爱!_!还有机会吗?_? 求助日语高手m(_ _)m 请教日语高手m(_ _)m ????_--_ ^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^_^ 奇迹高手请进@_@!