怎么样弄个按钮让人输内容就跳转到所要的位置

t19890203 · 发表于 2011-1-10 09:10

跟原代的查找功能一样，我的同事不懂的用，我想要弄个按扭放在上面，请大家帮帮我

五彩缤纷 · 发表于 2011-1-10 09:22

Sub myfind()
Dim X
X = InputBox("请输入要查找的内容：")
Cells(Cells.Find(X).Row, Cells.Find(X).Column).Select
End Sub

gufengaoyue · 发表于 2011-1-10 09:26

表达有点儿模糊，所在的位置是哪个位置？

zhongnansha · 发表于 2011-1-10 09:28

用二楼的就行了

dsmch · 发表于 2011-1-10 09:32

建议楼主上传excel附件，查找的结果有多个应该怎样？

t19890203 · 发表于 2011-1-10 17:29

谢谢大家的热心帮忙太感谢二楼了能不能加个查找不到的代码呀比如查找不到的时候提示未找到所需内容

lalsword · 发表于 2011-1-10 17:45

用的VBA啊这是。。。

hilarypaul · 发表于 2011-1-10 17:52

2楼的方法很不错...其实简单点的用格式-条件格式也可以完成，只是没有VBA用起来简单...学习了...

		自动登录	找回密码
密码			免费注册

[求助] 怎么样弄个按钮 让人输内容就跳转到所要的位置