VBA有没有对域求积的函数

未经测试，你试试看：

Function Dprt(fld As String, tb As String, wh As String) As Single
'功能：计算域的积
'示例：Dprt("测算值","测算表","ID>=100 and ID<=200")
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
ssql = "select " & fld & " from " & tb & " where " & wh
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dprt = 1
For i = 1 To rs.RecordCount
    Dprt = Dprt * rs(fld).Value
    rs.MoveNext
Next
End Function