找回密码
 立即注册
搜索
查看: 132|回复: 3

excel 宏求助于

[复制链接]

26

主题

143

回帖

220

积分

海星

积分
220
发表于 2007-3-7 20:29:22 | 显示全部楼层 |阅读模式
我想用宏在表中查找某个字符,语句为 cells.find("字符").activate
如果查找的字符在表中有的话,语句正常运行,但如果没有就出现错误提示.
请高手指点解决办法(能判断出现错误也行,但我实现不了),多谢

26

主题

143

回帖

220

积分

海星

积分
220
 楼主| 发表于 2007-3-8 17:55:25 | 显示全部楼层
问题已解决,谢谢大家
回复

使用道具 举报

47

主题

502

回帖

766

积分

高级会员

积分
766
发表于 2007-3-8 18:07:31 | 显示全部楼层
问题解决后请顺便说一下解决方法,以供大家参考。
回复

使用道具 举报

26

主题

143

回帖

220

积分

海星

积分
220
 楼主| 发表于 2007-3-8 18:11:20 | 显示全部楼层
Private Sub CommandButton1_Click()
Set a = Cells.Find(InputBox("请输入需要查找的项目"), lookat:=xlWhole)
If Not a Is Nothing Then
Range(a.Address).Activate
End If
End Sub
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|海浩社区

GMT+8, 2025-9-23 23:16 , Processed in 0.085765 second(s), 22 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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