初学VBA,有个问题想请教一下

hexl0325

请问一下,我想在sheet1表中,做一个查找框,点击按钮自动查找A列的内容,如果查找内容匹配,单元格自动定位到B列.例如找到的内是在A10,单元格要自动定位到B10,请问代码怎么写,谢谢

=====================================================================================

[此贴子已经被作者于2006-6-23 18:49:11编辑过]

方漠

楼主好懒,自己应当做个有控件的XLS文件放上来,别人才会帮你写代码,这样谁会帮你?

飘零红叶

Private Sub ddd_Click()
Dim hy As Integer
hy = InputBox("表的行数")
hk = InputBox("查询内容")
For hk1 = 1 To hy

If Cells(hk1, 2) = hk Then
Rows(hk1).Select
End If
Next hk1
End Sub

能基本满足要求吧，我只能定位到rows，如何定位到range还不晓得

hexl0325

TO:方漠  不好意思,我以前这样描述就可以了.请继续关注,谢谢!

TO:飘零红叶   你这段语句怎么还要求输入行数,我发了附件上来,再帮我看看好吗？

[此贴子已经被作者于2006-6-23 18:52:46编辑过]

飘零红叶

因为商品名称的行数可能是不确定的，所以在做循环的时候，应当给一个参数即“行数”，这是我的土方法，不知道是否还有更好的方法

Threaten

你看看这样可以了吗?