Office中国论坛/Access中国论坛

标题: 初学VBA,有个问题想请教一下 [打印本页]

作者: hexl0325 时间: 2006-6-21 21:49
标题: 初学VBA,有个问题想请教一下
请问一下,我想在sheet1表中,做一个查找框,点击按钮自动查找A列的内容,如果查找内容匹配,单元格自动定位到B列.例如找到的内是在A10,单元格要自动定位到B10,请问代码怎么写,谢谢

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

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

作者: 方漠 时间: 2006-6-22 01:37
楼主好懒,自己应当做个有控件的XLS文件放上来,别人才会帮你写代码,这样谁会帮你?

作者: 飘零红叶 时间: 2006-6-24 01:24
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 时间: 2006-6-24 02:47
TO:方漠不好意思,我以前这样描述就可以了.请继续关注,谢谢!

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

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

作者: 飘零红叶 时间: 2006-6-24 17:54
因为商品名称的行数可能是不确定的，所以在做循环的时候，应当给一个参数即“行数”，这是我的土方法，不知道是否还有更好的方法

作者: Threaten 时间: 2006-6-28 01:25
[attach]18759[/attach]

你看看这样可以了吗?

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