[已解决]根据单元格录入内容显示指定文本

lidayu

请老师赐教，如题。 工作簿1.rar (11.06 KB, 下载次数: 12)

2016-12-15 12:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-15 13:14

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     arr = Array("你", "很", "好")
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Not IsNumeric(Target) Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     If Target = 1 Or Target = 2 Or Target = 3 Then Target = arr(Target - 1)
   
7.     Application.EnableEvents = True
   
8. End Sub

复制代码

跳转到最佳答案楼层

砂海

自定义 单元格 格式
[=1]"你";[=2]"很"

望帝春心

看具体用途吧，还是4、5、6、7...这些吗？

lidayu

望帝春心 发表于 2016-12-15 12:55
看具体用途吧，还是4、5、6、7...这些吗？

你好，感谢你的关注，是的可以此类推。

望帝春心

lidayu 发表于 2016-12-15 13:08
你好，感谢你的关注，是的可以此类推。

会从1改到100甚至1000、10000吗？怎么对照改呢？再三种可以用前面老师回复的自定义格式，不过那样并不改变实际值，再多就要根据对照情况写VBA代码了

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     arr = Array("你", "很", "好")
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Not IsNumeric(Target) Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     If Target = 1 Or Target = 2 Or Target = 3 Then Target = arr(Target - 1)
   
7.     Application.EnableEvents = True
   
8. End Sub

复制代码

lidayu

grf1973 发表于 2016-12-15 13:14

您好，如果If Target = 1 Or Target = 2 Or Target = 3 Then Target = arr(Target - 1) ，Target不是=1而是2008、Target不是=2而是08、Target不是=3而是11，arr = Array("你", "很", "好")也不是固定一个文本的。
那代码要如何修改，请您赐教，谢谢！

grf1973

用对照表，两个数组，A数组为数字，B数组为数字对应的内容。用字典把数字和对应内容串起来。

lidayu

grf1973 发表于 2016-12-15 14:39
用对照表，两个数组，A数组为数字，B数组为数字对应的内容。用字典把数字和对应内容串起来。

您好，请您帮修改下好吗，我不会弄，谢谢！

grf1973

只要修改arr，brr的对应关系即可。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     arr = Array(2008, 8, 11)
   
4.     brr = Array("你", "很", "好")
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 0 To UBound(arr)
   
7.         d(arr(i)) = brr(i)
   
8.     Next
   
9.     x = Target
   
10.     Application.EnableEvents = False
    
11.     If d.exists(x) Then Target = d(x)
    
12.     Application.EnableEvents = True
    
13. End Sub

复制代码