[已解决]求公式

hunry001

我想在a列中录入数字，自动显示文本文字。
  比如：在a列中录入1，显示白菜，录入2 显示萝卜。。。。等

最佳答案

月排行榜 / 总排行榜

lisachen

2012-9-1 22:55

hunry001 发表于 2012-9-1 20:11
这只是比方。录入3显示香蕉。录入4显示可乐。录入5显示水。。。

Book1.rar (5.73 KB, 下载次数: 10)

2012-9-1 22:55 上传

点击文件名下载附件

跳转到最佳答案楼层

hunry001

这只是比方。录入3显示香蕉。录入4显示可乐。录入5显示水。。。

hunry001

显示的文字仍然在a列
当前录入的单元格

286779240

上个附件看看。                                    

chen_pinghui

要显示的文字还在a列，在当前单元格，这个比较麻烦丫。
自定义单元格格式：[=1]"白菜";[=2]"萝卜";
如果省略号后面还有怎么办？

hunry001

需要用vba来写。我以前见过。只不过我不会写。

chin15

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
   
3. Application.EnableEvents = False
   
4. Target = Choose(Target, "aaa", "bbb", "ccc", "ddd", "eee")
   
5. Application.EnableEvents = True
   
6. End Sub
   

复制代码

lisachen

hunry001 发表于 2012-9-1 20:11
这只是比方。录入3显示香蕉。录入4显示可乐。录入5显示水。。。

Book1.rar (5.73 KB, 下载次数: 10)

2012-9-1 22:55 上传

点击文件名下载附件

hunry001

麻烦加个列。比如只想在a列是这样。其他列不是

lisachen

Book1.rar (7.62 KB, 下载次数: 5)

2012-9-2 23:25 上传

点击文件名下载附件