单元格中设置条件格式

一只狗三只眼

各位周末好
在A列单元区格区域中输入1，显示北京；输入2，显示上海；输入3，显示天津；输入4，显示重庆。
请查阅附件！！！
0811.rar (6.87 KB, 下载次数: 10)

2018-8-11 05:46 上传

点击文件名下载附件

一剑惊心

还不如用数据有效性呢

准提部林

改變自我, 用VBA吧!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range
With Target
　　If .Count > 1 Or .Column <> 1 Or .Item(1) = "" Then Exit Sub
　　Set xF = [F:F].Find(.Value, Lookat:=xlWhole)
　　If xF Is Nothing Then Exit Sub
　　Application.EnableEvents = False
　　.Value = xF(1, 0)
　　Application.EnableEvents = True
End With
End Sub
　
　
　

slwily321

3楼膜拜啊，javascript:;

nikey5106

加辅助列用LOOKUP

一只狗三只眼

准提部林 发表于 2018-8-11 10:34
改變自我, 用VBA吧!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range

怎么用不起来？

准提部林

一只狗三只眼 发表于 2018-8-11 21:55
怎么用不起来？

要會使用VBA及啟用宏,
不過你的需求, 是否輸入數字後,
自動顯示成指定文本, 但並不改變數值本身???

准提部林

怎么用不起来？


參考附件, 自行去套宏碼:
Xl0000005.rar (8.71 KB, 下载次数: 1)

2018-8-11 22:29 上传

点击文件名下载附件

样式(1): 輸入數字後, 替換為指定文本
样式(2):輸入數字後, 單元格格式自訂為指定文本, 原值不變(看起來是文本, 實為數字, 可運算)

sucx007

1，2，3，a可以用自定义单元格格式