Office中国论坛/Access中国论坛

标题: 急/EXCEL 中如何用VBA 实现查询功能请看附件 [打印本页]

作者: 在回忆中的记忆 时间: 2006-9-11 19:29
标题: 急/EXCEL 中如何用VBA 实现查询功能请看附件
[attach]20267[/attach]
关于SELECT 命令

急

作者: 方漠 时间: 2006-9-11 20:16
VIN字段是否唯一?如果是,用VLOOKUP即可.

作者: 在回忆中的记忆 时间: 2006-9-11 20:56
标题: 回楼上
VLOOKup 不是只能返回指定的一列吗?

如果我的很多行数据如何实现.用VIN或车牌号调出相应的所有数据.

作者: xyg0214 时间: 2006-11-8 17:25
[em01]dddddddddddd

作者: ninar 时间: 2006-11-9 07:22
Sub searchVIN()
Set mysheet = Workbooks("book.xls").Sheets(1)
Set searchsheet = Workbooks("book.xls").Sheets(2)
' find last Range in sheet1
mysheet.Select
lastrange = 7
      Do While Not (IsEmpty(mysheet.Cells(lastrange, 1).Value))
      lastrange = lastrange + 1
      Loop
'find last Range in sheet2
searchsheet.Select
lastcell = Range("a1").End(xlDown).Row
'search beginn
For i = 2 To lastcell
      If mysheet.Range("D25").Value = searchsheet.Range("k" & i).Value Then
      Range(Cells(i, 1), Cells(i, 9)).Select
      Selection.Copy
      mysheet.Select
      Cells(lastrange, 1).Select
      ActiveSheet.Paste
      lastrange = lastrange + 1
      searchsheet.Select
      Application.CutCopyMode = False
End If
Next

作者: ninar 时间: 2006-11-9 07:27
LZ to test

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