请教高手关于Excel VBA 的问题，

显示全部楼层 · 2011-9-16 01:44:46

一个Excel工作表中一表格中有序号列、名称列、时间列、数据列等，想在VBA中设计查询功能，按时间查询，并复制到另外一个工作表中。我该怎么编制呢？

千问 · 2011-9-16 01:44:46

留个邮箱地址，我发一个模板给你，多功能的

<h4class=\"ask\">追问

[email protected]
谢谢！

千问 · 2011-9-16 01:44:46

已发出

千问 · 2011-9-16 01:44:46

具体的代码比较繁琐，我就不弄了。
1.你可以这样解决，利用Excel的筛选功能，用VBA操纵表单，找出你要的数据，然后copy复制到另一张表中。
2.或者利用Vlookup之类的函数自己来处理，然后合并多个Range，这种方法麻烦一点。

千问 · 2011-9-16 01:44:46

假设表Sheet1中的A列为序号，B列为名称，C列为时间，D列为数据（第一行为标题行，第二行开始为数据行），查询结果放在表Sheet2中，简单的程序如下：
SubFindItem()
DimsFind_1AsString,sFind_2AsString,sColumnAsString,firstAddressAsString
DimrFindAsRange
DimiRowAsLong
DimiRowMinAsLong,iRowMaxAsLong
iRowMin=2:iRowMax=100\'定义查询的最小行及最大行
iRow=1\'定义写入数据的起始行
sFind_1=InputBox(\"请输入查询项目：\"firstAddress
Else
MsgBox\"无此查询数据！\",vbExclamation,\"查询\"
ExitSub
EndIf
EndWith
Return
EndSub
本程序采用穷举法，把符合条件的都能找出来列在第2个表中。
当然，更高级的查询可以采用窗口来做，就不在此发表了。