单元格数组对应文本求助

zhouz1986

在单元个选择 0，1，3， 相同单元格对应出来 D,F,U  （范围H9:N129）尝试了自定义...

opel-wong

自定义单元格格式是只能设置两个这样的条件
   
用VBA可以，提示：工作表Worksheet_Change事件
   

zhouz1986

opel-wong 发表于 2019-9-9 11:37
自定义单元格格式是只能设置两个这样的条件
   
用VBA可以，提示：工作表Worksheet_Change事件

VBA 不熟悉，大神能帮忙做个示例么，谢谢

Jason_WangSS

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If 9 < Target.Row And Target.Row < 130 And 7 < Target.Column And Target.Column < 15 Then '这里用交集一直报错只好这样了
   
4.         Select Case Target.Text
   
5.         Case 0
   
6.             Target = "D"
   
7.         Case 1
   
8.             Target = "F"
   
9.         Case 2
   
10.             Target = "U"
    
11.         Case Else
    
12.             Target = Empty
    
13.         MsgBox ("输入有误,请输入0,1,2之中的数字")
    
14.         End Select
    
15. End If
    
16. Application.EnableEvents = True
    
17. End Sub
    
18. 
    

复制代码

刚有个小问题,以这个为准

zhouz1986

Jason_WangSS 发表于 2019-9-9 12:23
刚有个小问题,以这个为准

有个小问题，范围H9:N129 以外得区域也不能输入其他得值，

zhouz1986

Jason_WangSS 发表于 2019-9-9 12:23
刚有个小问题,以这个为准

有个小问题，范围H9:N129 以外得区域也不能输入其他得值，

大灰狼1976

如果你设置数据有效性只能输入0,1,2，不会出现其他可能，那么用自定义格式还是可以实现的，因为自定义格式可以有三个选择，条件1、条件2、其他，正好对应你的三个需求。
但是“D”是保留字不会直接显示出来，前面需要加个感叹号。
供参考： [=1]F;[=2]U;!D