[已解决]求助，根据双击单元格，用VBA查找并复制数据到新工作表！！

sch1979

如何双击综合日报表工作簿sheet1工作表CK列第7行开始以下任一单元格，然后按照与此单元同一行第3列单元格的产品代码，在“消耗模式统计”文件夹下的“物料消耗”工作簿中的“消耗”工作表第1列的产品代码中查找，并将查找到的所有记录复制到“物料消耗”工作簿的一个新建工作表中。
非常感谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-19 12:39

………………

跳转到最佳答案楼层

youfang

小二，上附件并说明要求，模拟结果

sch1979

youfang 发表于 2014-5-18 20:33
小二，上附件并说明要求，模拟结果

好的，这就模拟一下！

sch1979

youfang 发表于 2014-5-18 20:33
小二，上附件并说明要求，模拟结果

数据模拟效果做完了，麻烦老师看一下，怎样用vba编写代码。谢谢！！

sch1979

youfang 发表于 2014-5-18 20:33
小二，上附件并说明要求，模拟结果

老师您在吗？

dsmch

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 5 And Target.Row > 7 Then
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim arr, n%, i&, s&
   
6.     x = Target.Offset(0, -2)
   
7.     Workbooks.Open (ThisWorkbook.Path & "\消耗模式统计\物料消耗.xls")
   
8.     arr = Sheets("消耗").Range("a2").CurrentRegion
   
9.     Sheets(2).UsedRange.Clear
   
10.     n = UBound(arr, 2)
    
11.     For i = 2 To UBound(arr)
    
12.         If arr(i, 1) = x Then s = s + 1: Sheets("消耗").Cells(i + 1, 1).Resize(1, n).Copy Sheets(2).Cells(s + 4, 1)
    
13.     Next
    
14.     Workbooks("物料消耗.xls").Close 1
    
15.     Application.DisplayAlerts = True
    
16.     Application.ScreenUpdating = True
    
17. End If
    
18. End Sub
    

复制代码

dsmch

选中e列单元格即触发事件

sch1979

dsmch 发表于 2014-5-18 22:12
选中e列单元格即触发事件

谢谢您！就是这种效果！非常感谢！

sch1979

dsmch 发表于 2014-5-18 22:12
选中e列单元格即触发事件

老师您好！我还有点小改动。
  1.能不能由单击事件改为双击事件。
  2.复制数据时，能不能将“消耗”工作表的表头也复制过来。
谢谢！！！

dsmch

………………