请教个问题！

在A1输入1时让本身的值变成a?不知道为什么要这样^_^

我的感觉是方便，用数据有效性的话给用鼠标按，输入1就不用了，一直都是在用键盘输入，能提高输入效率，不知道吧主能否帮忙！！！^_^

公式:

大写字母
=CHAR(A1+64)

小写字母
=CHAR(A1+96)

看不明白呀！！！能否详细说明一下！！！谢谢啦！

CHAR
请参阅

返回对应于数字代码的字符。函数 CHAR 可将其他类型计算机文件中的代码转换为字符。

操作环境 字符集 
Macintosh Macintosh 字符集 
Windows ANSI 

语法 
CHAR(number)

Number 是用于转换的字符代码，介于 1 到 255 之间。使用的是当前计算机字符集中的字符。 

示例

如果您将示例复制到空白工作表中，可能会更易于理解该示例。

操作方法

创建空白工作簿或工作表。 
请在“帮助”主题中选取示例。不要选取行或列标题。
 

从帮助中选取示例。 

按 Ctrl+C。 
在工作表中，选中单元格 A1，再按 Ctrl+V。 
若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“工具”菜单上，指向“公式审核”，再单击“公式审核模式”。 
 
1 
2 
3 
 A B 
公式 说明（结果） 
=CHAR(65) 显示字符集中的第 65 个字符 (A) 
=CHAR(33) 显示字符集中的第 33 个字符 (!)

也太高深了吧，我是一个初学者，现在每个月都要应复报表，输入不是很方便，所以我想用excel改一下输入的方法，可能是我举的例子不好吧，其实我想满足下列结果，不知能做道不？在A：A例中，A1输入1，A1返回"工",A1输入2，A1返回"槽",A1输入3，A1返回"角";

如果是这样，那我见议你采用“宏”的方法好些。制作宏应该懂吧�

不好意思！在下初学者，能否说明一下，请问还有别的方法没有�

我提供代码,方法就得你在吧里学了.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target
Case 1
 Target = "工"
Case 2
 Target = "槽"
Case 3
 Target = "角"
End Select
End Sub

学习宏基础,请看吧主的贴.

http://post.baidu.com/f?kz=40549412

上面的方法可以，先谢谢zsh_000啦！！！不知道能否把上例就用在A：A列中，请帮忙�

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Select Case Target
Case 1
 Target.Offset(0, 1) = "工"
Case 2
 Target.Offset(0, 1) = "槽"
Case 3
 Target.Offset(0, 1) = "角"
End Select
End Sub

谢谢，可能是我表达的不清楚吧，10楼的方法是我想要的，只不过限止于在A1的单元格中，我想要求同样的结果放在A：A例中，比如在A4,A7,A9中输入1返回"工",A2,A6返回"槽"，类似的结果！但13楼不是我想要的结果，不好意思！先谢啦！

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Column <> 1 Then Exit Sub 
Select Case Target 
Case 1 
 Target = "工" 
Case 2 
 Target = "槽" 
Case 3 
 Target = "角" 
End Select 
End Sub