[急]请教一个EXCEL的问题，如何实现自动往下复制公式？

huanghai

我这里面有一段代码，我一直在用的：
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim row1, con1 As Integer

    row1 = Target.Row
    con1 = Target.Column
   
    If con1 = 3 And Cells(row1, 3) <> "" Then
        Cells(row1, 2) = row1 - 2
    End If
   
    If con1 = 5 Or con1 = 6 Then
        Cells(row1, 7).Formula = "=SUM($E$3:E" & row1 & ")-SUM($F$3:F" & row1 & ")"
    End If
   
    Application.EnableEvents = True
End Sub

huanghai

文件下载

huanghai

序号和余额可以自动填写，就是使用代码了自动复制公式的功能。

Roadbeg

方法应该只有这样了,但我觉得,把 已定参数l 的公式写在代码中应该更好.
至于 n天移动平均的 n 如果是固定的,也就不用设置为可变的了.

竹笛

n是变动的。

Roadbeg

竹笛今天帖数到 9.11 了,有没有什么事要发生啊?  :-)

yorkjun

以下是引用Roadbeg在2003-2-22 10:38:28的发言：
精益求精,竹笛兄的精神令人佩服.
这使我想起了以前看到的一个经典例子:
如何不用第三个变量,交换两个变量的值?
解法非常精彩,不知各位高手可有兴趣解一解此题?

简单，我想了2分钟：
      a=3
      b=4
   
      a=a+b     'a=7

      b=a-b     'b=3

      a=a-b     'a=4

Roadbeg

这个问题其实是很简单,不过很多少没这样去想,
因为现在根本没机会使用!!!

但这个问题是在 8088,8086 时代以前出现的(8088 早于 8086 早于 80286)
那时内存太紧张了,以至于一个变量的存储空间也不能多用.!!!