UC知道excel 自动替换
来源：百度知道 编辑：UC知道 时间：2024/06/05 08:57:49
在第一列中，某单元格如A6中输入01.则A6中立刻以“零售”替换。
在A6中输入02.则A6中立刻以“批发”替换。
但是其他列不能变化，因为其他列中你输入价格101元。他不能显示成“1零售"。
实现上面的前提下，最好存成文件后，把该Excel随便拷到其他电脑上，也能实现这个功能。如何做？
希望帮个忙。谢谢
方括号...如果我想弄成3个选项呢。比如。01为零售，02为批发，03为赠送
smallcolour...你原来VBA的方法也挺好的，但是。别学人家方括号嘛。你按照他改的答案不能用。
如果真像你想的那么简单，我就不用来提问了。
在A6中输入02.则A6中立刻以“批发”替换。
但是其他列不能变化，因为其他列中你输入价格101元。他不能显示成“1零售"。
实现上面的前提下，最好存成文件后，把该Excel随便拷到其他电脑上，也能实现这个功能。如何做？
希望帮个忙。谢谢
方括号...如果我想弄成3个选项呢。比如。01为零售，02为批发，03为赠送
smallcolour...你原来VBA的方法也挺好的，但是。别学人家方括号嘛。你按照他改的答案不能用。
如果真像你想的那么简单，我就不用来提问了。
和楼上的又学了一招.真的以前从来没发现过:)
对噢.为什么只能两种呢.期待高手出现啊.不行就用回我的VBA算了:)
***********
按ALT+F11,然后在左边的框中选SHEET1(视你功能要在哪张表中实现决定)
退出即可
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
X = Target.Value
Select Case X
Case "01"
Target.Value = "零售"
Case "02"
Target.Value = "批发"
Case "03"
Target.Value = "赠送"
End Select
End If
End Sub
自定义格式。
选中A列，格式－单元格－数字，分类里选择自定义，类型里输入
[=01]"零售";[=02]"批发"
自定义格式最多只能有三个区间（区间以分号分隔），条件只能设置2个。不满足条件的取第三个区间。这是EXCEL2003版的限制，没有办法。
如：[=01]"零售";[=02]"批发";"赠送"
这样，只要不是1和2，就显示赠送。显然不符合你的要求。所以，条件多的话就只好使用VBA了。
我也掺和一下:
1.用工具-自动更正选项
替换"01"为"批发",添加
替换"02"为"零售",添加
替换"03"为"赠送",添加
确定
单元内输入01后回车,就会自动替换为批发,而101则不会.02/03同理.还可以继续添