自定义数字格式的问题

guofang88 · 发表于 2019-11-8 15:59

我要在A列输入1、2、3、4数字，然后，要求显示数字对应的为早上，中午，下午，晚上
用VBA怎么实现

看到相似的帖子
http://club.excelhome.net/thread-930034-1-1.html

但是不会修改，求大神赐教

guofang88 · 发表于 2019-11-8 17:54

没有人吗？顶一下

microyip · 发表于 2019-11-8 18:30

直接把哪些字符串改成你想要的内容就完了，其余不用改

guofang88 · 发表于 2019-11-8 18:47

microyip 发表于 2019-11-8 18:30
直接把哪些字符串改成你想要的内容就完了，其余不用改

不行啊，只能在a1输入，a2就不行了

microyip · 发表于 2019-11-8 18:50

guofang88 发表于 2019-11-8 18:47
不行啊，只能在a1输入，a2就不行了

你也看看人家代码里那个判断语句啊，限定在A1的呀，有什么问题？你改成你想限定的地方就可以啦

guofang88 · 发表于 2019-11-8 19:09

microyip 发表于 2019-11-8 18:50
你也看看人家代码里那个判断语句啊，限定在A1的呀，有什么问题？你改成你想限定的地方就可以啦

我要改成A列，不会改啊

YZC51 · 发表于 2019-11-8 19:53

自定义格式
[=1]"上午";[=2]"下午";"晚上";"天天"

请参考

YZC51 · 发表于 2019-11-8 20:10

guofang88 发表于 2019-11-8 19:09
我要改成A列，不会改啊

请参考
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
      If Target = 1 Then Target = "早上"
      If Target = 2 Then Target = "中午"
      If Target = 3 Then Target = "下午"
      If Target = 4 Then Target = "晚上"
End If
End Sub

renkangjizhen · 发表于 2019-11-8 20:36

也可以用case语句完成

guofang88 · 发表于 2019-11-8 20:39

YZC51 发表于 2019-11-8 20:10
请参考
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then

谢谢

，我修改了一下，解决了我的问题，我想使用数字格式
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
      If Target = 1 Then Target.NumberFormatLocal = "早上"
      If Target = 2 Then Target.NumberFormatLocal = "中午"
      If Target = 3 Then Target.NumberFormatLocal = "下午"
      If Target = 4 Then Target.NumberFormatLocal = "晚上"
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 自定义数字格式的问题