如何修改代码

ntyyz

原代码是当“报表”表D1或者C1单元格变动时触发事件，D1和C1原来是下拉选择，代码能触发事件动作。
现在D1和C1改成根据“数据”表B3用公式提取日期数值，原代码已不能触发事件动作，要改成根据单元格数值变化触发事件动作才行，如何修改？
拷贝的是日期变更后的数据，原代码拷贝的是日期变更前的数据。
条件单元格输入更改数值，或者下拉选择更改单元格数值，事件触发就能运作，数据履盖粘贴上去，虽然数值更改了但就是不触发事件动作。

Mapleaf12138

多简单，Change事件卸载“数据”表里不就得了，简单有效

ntyyz

Mapleaf12138 发表于 2018-10-15 17:11
多简单，Change事件卸载“数据”表里不就得了，简单有效

没看懂，麻烦老师改一下。

Mapleaf12138

ntyyz 发表于 2018-10-15 18:11
没看懂，麻烦老师改一下。

就是把你的代码写到Sheet3的Change事件里面不就行了么

ntyyz

Mapleaf12138 发表于 2018-10-15 19:05
就是把你的代码写到Sheet3的Change事件里面不就行了么

试过，不行。

ntyyz

没人？老师在那儿呢

Mapleaf12138

ntyyz 发表于 2018-10-15 19:17
试过，不行。

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

复制代码

看到你的D1虽然是些的公式，但是值也是引用的$B$3这个绝对位置的值，所以把带代码换到Sheet3的Change事件里，B3变化是触发事件。上面是代码，可以通过，不知道是不是你要的，大概是这个意思

ntyyz

Mapleaf12138 发表于 2018-10-16 09:43
看到你的D1虽然是些的公式，但是值也是引用的$B$3这个绝对位置的值，所以把带代码换到Sheet3的Change事 ...

这方法好，确实可行，Worksheet_Change事件只有对单元格进行操作起作用，对公式计算无效，听别人讲可以用Worksheet_Calculate事件，数值变化就能触发动作。
现在还有个问题，B3单元格单独改时间和单独粘贴新数值时间时，触发动作正常，我粘贴数值是履盖B3:R98，这样粘贴后不会触发动作，是什么原因？

Mapleaf12138

ntyyz 发表于 2018-10-16 10:07
这方法好，确实可行，Worksheet_Change事件只有对单元格进行操作起作用，对公式计算无效，听别人讲可以用 ...

B3：R98变化时，判断条件就不成立了，target.address不再试B3
Calculate事件没用过，网上看了下，可以参考这个：
https://zhidao.baidu.com/question/45873980.html

ntyyz

Mapleaf12138 发表于 2018-10-16 10:30
B3：R98变化时，判断条件就不成立了，target.address不再试B3
Calculate事件没用过，网上看了下，可以参 ...

我把 If Target.Address(0, 0) = "B3" Then
改成 If Target.Address(0, 0) = "B3：R98" Then后，代码可以运行了，粘贴的区域只能是  "B3：R98" ，多了就不好运行了。
还有个问题请教一下，原代码拷贝的数据是老数据计算的结果，如何改成拷贝新日期的数据，就是粘贴数据后，报表当前计算结果拷贝到汇总对应表格里。