设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12
返回列表 发新帖
楼主: huangwl
打印 上一主题 下一主题

[基础应用] EXCEL是否可以实现自动录入替换

[复制链接]
11#
 楼主| 发表于 2005-5-26 02:05:00 | 只看该作者
如果要让整列或整张表格都实现自动替换该怎么写代码!初学者请勿见笑
12#
发表于 2005-5-26 03:08:00 | 只看该作者
那就参见6、7楼的意见
13#
 楼主| 发表于 2005-5-26 15:50:00 | 只看该作者
如何设置有效使用区域如:A1:b15这个区域使用自动替换。修改如下:If Range("a1:b15") = "ac" Then activecells.value = "ACCESS中国"提示错误!我真地很莱!麻烦帮忙修改一下。

14#
发表于 2005-7-30 23:55:00 | 只看该作者
偶也没学过这些语句,还望把这个程序写下来,thank you啦~~~~[em02]
15#
发表于 2005-7-31 17:14:00 | 只看该作者
以下是引用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
16#
发表于 2011-7-3 22:23:27 | 只看该作者
不太明白含义,能否举个例子说明一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-29 19:54 , Processed in 0.114753 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表