怎么用VBA解决录入自动分类和查询

木子伟

公司做一个简易的银行流水记录，找了很多资料，还是不懂怎么把录入的信息，按SHEEt的名称自动分类填充，另外就是一个条件查询的，用公式数据多了可能会卡，看能用VBA来更效率的操作不咯。

请教家里的各位大大，帮忙解决！！！！

在此拜谢了！！

木子伟

有大大能帮忙下么

iwangyi

Sub 分类填充()
N = [B65536].End(3).Row
For Each Rng In Range("B2:B" & N)
  For Each SH In Sheets
  If Rng = SH.Name Then
  LASTROW = SH.[A65536].End(3).Row + 1
  With SH
  Stop
  .Cells(LASTROW, 1) = Rng.Offset(, -1).Value
  .Cells(LASTROW, 2).Resize(, 3) = Rng.Offset(, 2).Resize(, 3).Value
  .Cells(LASTROW, 5).Resize(, 4) = Rng.Offset(, 5).Resize(, 4).Value
  End With
  End If
  Next
Next
End Sub

iwangyi

Sub 查询()
Set cn = CreateObject("ADODB.CONNECTION")
cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTEND PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "SELECT * FROM [查询$] BETWEEN #" & Cells(2, 14) & "# and  #" & Cells(2, "o") & "# and 账户 ='" & Cells(3, 14) & "' and  类别='" & Cells(4, 14) & "'and 摘要='" & Cells(5, 14) & "'and 收入金额='" & Cells(6, 14) & "' and 支出金额='" & Cells(7, 14) & "' and 经办人='" & Cells(8, 14) & "'and 期末余额='" & Cells(9, 14) & "'and 备注='" & Cells(10, 14) & "'"
Range("a2").CopyFromRecordset cn.Execute(Sql)
End Sub

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1414544&extra=&mobile=2