Function AC(rng As Range) As Integer '自定义函数AC值 =AC(B5:K5)
Dim rg As Range, n As Integer
Dim d As Object
Dim i, k
Set d = CreateObject("Scripting.Dictionary")
n = 1
For Each rg In rng
If n < rng.Count Then
For i = 1 To rng.Count - n
d(rg.Offset(0, i).Value - rg.Value) = d(rg.Offset(0, i).Value - rg.Value) + 1
Next
End If
n = n + 1
Next
n = 0
For Each k In d.keys
If d(k) > 1 Then n = n + 1
Next
If n > 0 Then n = 1
AC = d.Count - rng.Count + n
Set d = Nothing
End Function
福彩技巧-福彩3d最好用的杀号方法
1422025-06-11 09:00
福彩3D选号技巧之外夹号码定组三形态
1142025-06-11 08:05
求双胆下一的稳定方法
2762025-06-11 02:25
万四/万十一套核心数据
4462025-06-10 23:23
征文：福彩3D定胆技巧心得！精准胆码原来是这样选的？
2292025-06-10 21:26
征文《三招玩转3D累加图：小工具大用处！》
1832025-06-10 17:15
排列3选号秘笈——看走势图精选号码的科学方法
4032025-06-10 14:58
3D选号秘笈——通过走势图精选号码的高明方法
5142025-06-10 14:56
征文：乐彩网 3D 走势图工具使用心得
4442025-06-10 12:37
征文：《乐彩网3D首页图表工具使用心得：数据视角下的探索之旅》
3452025-06-10 10:27
如何结合太湖钓叟三字诀预测福彩3D选号
4142025-06-10 09:45
福彩3D首尾边距杀号法详解
3952025-06-10 09:37
福彩3D杀号技巧：期数分解杀号法详解
3972025-06-10 09:34
福彩3D选号技巧之看紧同路码出号法
9342025-06-09 08:10
绐大家介绍个，7+不计重，8+计算的4组四码出双飞
20282025-06-08 22:08
送给你们万四二十注700+玩
18482025-06-08 21:42
雪鹰小哥合差积数据源技巧分享
5812025-06-08 13:42
关于郭的公式整理后直接用余码对应
23902025-06-07 17:25