如果提高VBA计算速度？

ghq200101

我作了一个sql+excel的应用，其中:
1、sql服务器端我自定义了一个函数KMFS（）
     use [...]
     go
     ...
    end
2、excel客户端我用VBA作了一个自定义函数KMFS(  )
     Function KMFS(Optional 科目代码 As String, Optional 方向 As String, Optional 年 As String, Optional 月 As Integer) '科目本期发生金额的函数
     Dim sql As String
     Dim dn As Object
     Set dn = CreateObject("ADODB.Recordset")
     ...
     sql = "select dbo.KMFS( '" & 科目代码 & "','" & 方向 & "','" & 年 & "'," & 月 & ")"
     Set dn = QuShu.数据库接口.Execute(sql)
     KMFS = dn.Fields(0)
     End Function
3、excel工作表里单元格公式引用KMFS(  )
4、excel vba 作了一个区域公式重新计算
     Sub CalculationSpecialRange()  '指定的区域进行重新计算
     Dim OldCalculation As XlCalculation
     On Error Resume Next
    aut自动计算 = 1
    OldCalculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    Selection.Calculate
    Application.Calculation = OldCalculation
     ...
    End Sub
请教大师，我在重新计算步骤（红颜色）时很慢，如何提高计算速度？

Renco

你都用自定义函数了，
为什么一定要用函数，
你不直接做个按钮，用VBA计算所有相关项目的结果就行了？

roych

1、不要后期绑定。 Dim dn As Object这种跟  Dim dn As New ADODB.Recordset的效率相差不是一个数量级的。
2、如果是sql server，请尽量使用存储过程。
3、返回值之后最好关闭数据库连接。
4、Excel的自动计算好呢还是直接赋值到单元格呢？我不知道。