代码修改求助！

ntyyz

代码修改求助！

liulang0808

楼主结合附件举例说明下，拷贝后数据格式什么样子的

ntyyz

liulang0808 发表于 2018-9-27 15:03
楼主结合附件举例说明下，拷贝后数据格式什么样子的

谢谢，只拷贝数值，您帮忙看看

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "D1" Then
   
3.         arr = [b3:f6]
   
4.         With Sheets("全月报表汇总")
   
5.             For j = 3 To .Cells(Rows.Count, 1).End(3).Row
   
6.                 If Val([d1]) = Val(.Cells(j, 1)) Then
   
7.                     For i = 1 To UBound(arr)
   
8.                         c = (i - 1) * 6 + 1
   
9.                         For k = 1 To UBound(arr, 2)
   
10.                             .Cells(j, c + k) = arr(i, k)
    
11.                         Next k
    
12.                     Next i
    
13.                     Exit For
    
14.                 End If
    
15.             Next j
    
16.         End With
    
17.     End If
    
18. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

alstar

统计表.rar (81.58 KB, 下载次数: 5)

2018-9-27 19:51 上传

点击文件名下载附件

思路是这样的，自己修改一下

ntyyz

liulang0808 发表于 2018-9-27 19:22

谢谢，您的代码完成了更改日期后的复制，但是复制后的清除功能没有了，还要把我原来 的代码再加上去就行了。谢谢您的帮助。

ntyyz

alstar 发表于 2018-9-27 19:52
思路是这样的，自己修改一下

这个结果很好，和设想的一样，谢谢您的帮助。

ntyyz

liulang0808 发表于 2018-9-27 19:22
附件内容供参考。。。。。。

老师您好，现在更改日期后复制过来的数值统计在更改后的日期行单元格中，应该要复制在前一天日期行单元格，比如我更改后的日期是28日，那么复制过来 的数值应该统计在27日行里面，请教怎么修改，谢谢。

liulang0808

ntyyz 发表于 2018-9-28 13:56
老师您好，现在更改日期后复制过来的数值统计在更改后的日期行单元格中，应该要复制在前一天日期行单元格 ...

If Val([d1]) = Val(.Cells(j, 1))-1 Then
看看这里修改是否可以的