Office中国论坛/Access中国论坛

标题: EXCEL是否可以实现自动录入替换 [打印本页]

作者: huangwl 时间: 2005-5-1 18:20
标题: EXCEL是否可以实现自动录入替换
如，输入 ab ，回车后自动替换为 ACCESS中国论坛

望高手指点

作者: accexl 时间: 2005-5-2 05:08
用VLOOKUP（）可以

作者: huangwl 时间: 2005-5-3 00:54
可以做个实例吗？我做了没弄出来[em03]

作者: 情比金坚 时间: 2005-5-7 05:26
标题: 回复
[attach]10282[/attach]

作者: 红池坝 时间: 2005-5-18 17:52
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = "ac" Then Range("a1") = "ACCESS中国"
End Sub

建议更改为：

1、改单元格表述为：Activecells.value 这样可以避免只针对某一个单元格进行更改

2、改If判断为select case 判断，这样可以根据情况进行多种输入的自动替换

作者: shanui 时间: 2005-5-18 22:40
我不是高手，但可不可以使用简单一点的方法：

使用“自动更正”功能。

作者: 红池坝 时间: 2005-5-18 23:41
当然可以使用自动更正，但“自动更正”有个问题，那就是表格中所有的单元格的输入都自动更正了，而使用VBA，则可以只对某一列（字段）进行更正，显得更灵活适用

作者: shanui 时间: 2005-5-19 00:39
说得对，谢了！

作者: huangwl 时间: 2005-5-22 23:38
to 红池坝ACTIVECELLS的语法是什么！不懂！请赐教

作者: 红池坝 时间: 2005-5-23 22:44
activecells是一个单元格对象，指当前活动单元格，后面可以跟相应的属性，比如值（value）、字体（font）、颜色（color）……

作者: huangwl 时间: 2005-5-26 02:05
如果要让整列或整张表格都实现自动替换该怎么写代码！初学者请勿见笑

作者: 红池坝 时间: 2005-5-26 03:08
那就参见6、7楼的意见

作者: huangwl 时间: 2005-5-26 15:50
如何设置有效使用区域如：A1:b15这个区域使用自动替换。修改如下：If Range("a1:b15") = "ac" Then activecells.value = "ACCESS中国"提示错误！我真地很莱！麻烦帮忙修改一下。

作者: jackbang 时间: 2005-7-30 23:55
偶也没学过这些语句,还望把这个程序写下来,thank you啦~~~~[em02]

作者: 晓月清风 时间: 2005-7-31 17:14

以下是引用huangwl在2005-5-26 7:50:00的发言：

如何设置有效使用区域

如：A1:b15这个区域使用自动替换

Sub myReplace()

Range("a1:b15").Select '先选取区域

For Each x In Selection '对区域中所有单元格进行操作

If x.Value = "ac" Then x.Value = "ACCESS中国" '当某一单元格的值为“ac”时替换

Next x

End Sub

作者: joyark 时间: 2011-7-3 22:23
不太明白含义,能否举个例子说明一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)