Question

向大神请教一个excel问题

我想在A1里输入1回车就显示单位1，输入2回车显示单位2~~~省略N多，虽然自动更正可以做到，但是我想特定在A1里有效，在其他单元格不需要这样的效果，请问如何才能做到，先谢谢了，50分送上，如果确实很难的，或者要用到宏要写代码的，追加100

Answer 1

1 可以自定义格式，输入1，显示“单位1”（实际还是1）
2 如果确实就是要“单位1”，可以用宏来做

追问

问题是自定义里只能定义一个啊，我不单要输入1然后显示单位名称1，还要输入2，3，4.。。。。

追答

不会啊，自定义格式为："单位"##， 你输1，显示为“单位1”，输2，显示为“单位2”。。。。。。

追问

好吧，我说明白点，我输入1，然后变成农业银行，输入2变成工商银行，输入3变成中国银行。。。请问怎么才可以做到呢，那你帮我写个宏吧，我是需要用到单位的名称

追答

原来是这样，不说明白别人是没法帮你的
在同一单元用函数是没法做到的。有对照表的话，可以用vba完成

追问

你帮我写一个吧，我不会，我要用到单位名称的

追答

没有表格，没有对照表，不知道你到底有多少
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
If Target = 1 Then
Target = "农业银行"
ElseIf Target = 2 Then
Target = "工商银行"
Else
Target = "中国银行"
End If
Application.EnableEvents = True
End If
End Sub

追问

还有就是，怎么用呢，追你200，谢谢了，今晚要用

追答

发表格至422714303@qq.com

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Then
Application.EnableEvents = False
ActiveSheet.Range("A1") = "单位" & ActiveSheet.Range("A1")
Application.EnableEvents = True
End If
End Sub

Answer 3

右击A1单元格，设置单元格格式--数字--自定义--在类型中输入"单位"0---确定

Answer 4

你看看这个是你要的嘛

Answer 5

在单元格中输入1，右击单元格，选择设置单元格格式，数字选项卡——分类——自定义——