Office中国论坛/Access中国论坛

标题: 查询内容复制保存到新表，请高手指教，谢谢！ [打印本页]

作者: 4809172 时间: 2016-3-15 13:48
标题: 查询内容复制保存到新表，请高手指教，谢谢！
[attach]58397[/attach][attach]58398[/attach]

现在“查询”里已经有代码在同表中显示查询结果
该如何该代码实现要把“周六户外活动日记账” 相同活动时间的条目通过窗体查询出并复制到“费用记录查询”中
------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

With Sheets("周六户外活动日记账")
ActiveWindow.DisplayGridlines = False    '▼▼工作表隐藏网格线
Set frng = .Range("c:c").Find(TextBox1.Text, , , xlWhole)       '集frng =。范围（“：”），发现（textbox1.text文本，，xlwhole实例）  此4行不能重复保存
If frng Is Nothing Then                            '如果不frng是没有然后
         MsgBox "以保存"                               '本以保存”
         Exit Sub
End If
End With

ends = Columns(1).Find("*", , , , , searchdirection:=xlPrevious).Row '动态找到A列的最后一个单元格
Range("k5:s65536").Clear '清除之前所有的筛选结果

For Each Rng In Range("c5:c" & ends) '对("a5:a" & ends到最后一个有内容的单元格)做一个循环
   M = M + 1
   If Rng Like TextBox1.Value Then '如果条件成立，那么
      Range("a" & M + 4 & ":i" & M + 4).Copy Range("k" & K + 4) '将记录复制到另一个区域
End If

Next
End Sub

[attach]58399[/attach]

作者: roych 时间: 2016-3-15 17:23
给几个建议吧：
1、尽量加上工作表名。否则会因为打开不同的工作表而导致不同的区域被操作，如下：
Range("k5:s65536").Clear
如果打开的是A工作表，那么删除的就是A表的数据；如果打开的是B表，则B表数据被删除。
2、如果没记错的话，copy之后，应该还有一个paste的。写法大概是：
selection.Copy
range("A1").active'建议加上这个，先激活单元格再粘贴。不激活是否能够粘贴则不太清楚。
range("A1").paste
3、如果表格规整写，可以用ADO来完成筛选的工作。但你的表头有合并单元格（最右边那两列）……

作者: glloin 时间: 2016-5-7 18:34
粗略看了下，个人感觉没必要用find 来搜索用for +数组 like 对比文本 textbox1.text 里面的值可以写模糊值

作者: glloin 时间: 2016-5-7 18:35
第二部分不因该循环单元格对象因该先讲单元格对象的值给数组只用读取一次对象

作者: glloin 时间: 2016-5-7 18:37
可将条件成立的数据写在入字典或者另一数组中最后在一次将这些值赋值给“另一个区域”

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