[已解决]如何用VBA自定义公式并在工作中得以使用？

cyb412204170 · 发表于 2012-7-27 14:01

想以VBA自定义公式的方式实现汇总求和，请大师帮忙实现下，谢谢！详见附件！

求助20120727.rar (38.67 KB, 下载次数: 2)

wlz1660 · 发表于 2012-7-27 14:11

我先看看我会不.我也是学习来的呀

wayy · 发表于 2012-7-27 14:25

求助20120727(wayy).rar (45.16 KB, 下载次数: 13)

cyb412204170 · 发表于 2012-7-27 14:34

wayy 发表于 2012-7-27 14:25

Function total(M)
Dim i&, arr, dic1, dic2
Dim SD As Date, ED As Date
SD = Range("c2")
ED = Range("e2")
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
arr = Sheet1.Range("A1").CurrentRegion.Offset(1)
For i = 2 To UBound(arr)
If arr(i, 1) >= SD And arr(i, 1) <= ED Then
dic1(arr(i, 2)) = dic1(arr(i, 2)) + arr(i, 5)
End If
If arr(i, 1) <= ED Then
dic2(arr(i, 2)) = dic2(arr(i, 2)) + arr(i, 5)
End If
Next i

total = dic1(M)

Set dic1 = Nothing
Set dic2 = Nothing
End Function
我这样写不成功，然后想定义两个要怎么办咯，

cyb412204170 · 发表于 2012-7-27 14:35

一个是期间累计，一个是前期累计

cyb412204170 · 发表于 2012-7-27 14:45

本帖最后由 cyb412204170 于 2012-7-27 14:51 编辑

wayy 发表于 2012-7-27 14:25

谢谢，我知道怎么改了，我是想用字典会不会快点，能不能指点下我的代码那错了吗？

cyb412204170 · 发表于 2012-7-27 14:57

wayy 发表于 2012-7-27 14:25

加了一句：dim M as range ,输入公式后出现“当前范围内的声明重复”并返回错误值

cyb412204170 · 发表于 2012-7-27 14:59

小女子愚昧，请版主大大指点，谢谢！

wayy · 发表于 2012-7-27 16:02

本帖最后由 wayy 于 2012-7-27 16:05 编辑

Function total(Rng As Range, fl As Long)
Dim i&, arr, Dic1, Dic2
Dim SD As Date, ED As Date
Dim Str As String
SD = Range("c2")
ED = Range("e2")
Set Dic1 = CreateObject("Scripting.Dictionary")
Set Dic2 = CreateObject("Scripting.Dictionary")
With Sheet1
arr = .Range("a2", .[e65536].End(xlUp))
End With
For i = 2 To UBound(arr)
If arr(i, 1) >= SD And arr(i, 1) <= ED Then
Dic1(arr(i, 2)) = Dic1(arr(i, 2)) + arr(i, 5)
End If
If arr(i, 1) <= ED Then
Dic2(arr(i, 2)) = Dic2(arr(i, 2)) + arr(i, 5)
End If
Next i
Str = Rng.Value
If fl = 1 Then
total = Dic1(Str)
ElseIf fl = 2 Then
total = Dic2(Str)
End If
End Function

复制代码

使用方法：=total(a4,1) 是取区间值 =total(a4,2)是取前期累计值。
原来的错误是出在数组了。CurrentRegion这里的原因。

cyb412204170 · 发表于 2012-7-27 17:16

wayy 发表于 2012-7-27 16:02
使用方法：=total(a4,1) 是取区间值 =total(a4,2)是取前期累计值。
原来的错误是出在数组了。CurrentRegio ...

谢谢，问题解决了

		自动登录	找回密码
密码			注册

[已解决]如何用VBA自定义公式并在工作中得以使用？

点评

点评

点评