按指定间隔值反向查询与其对应的数据的自定义函数

WYS67 · 发表于 2018-12-5 14:56

yjh_27 发表于 2018-12-5 11:55

老师真是名副其实的EH侠圣！这么复杂的问题都能写出代码，不胜佩服之至！再次感谢您的帮忙！

WYS67 · 发表于 2019-4-7 16:05

本帖最后由 WYS67 于 2019-4-8 14:18 编辑

yjh_27 发表于 2018-12-5 11:55

老师：您10楼写的按指定间隔值反向查询与其对应的数据的自定义函数用起来非常方便快捷！
恳请您编写一个按指定双间隔值【就是按十位和个位分别查询对应数据】反向查询与其对应的数据的自定义函数。

根据B列双间隔反向查询A列对应的数据 - 副本.zip (381.46 KB, 下载次数: 2)

提示：B列，无论十位上还是个位上，0--代表与之同一行的A列对应位置的数据；1--代表从同一行的A列对应位置向上，第一个不重复数据；1--代表从同一行的A列对应位置向上，第二个不重复数据。
如B10的21，代表以A10为基点【00】向上，查询十位上的第二个不重复数据和个位上的第一个不重复数据。
1.因为A9十位上的2不同于A10十位上的1，为第一个不重复数据；则A8十位上的0【第二个不重复数据】，就是C10十位上的计算结果；2.同理，因为A9个位上的2不同于A10个位上的1，为第一个不重复数据；则A9十位上的2【第二个不重复数据】，就是C10个位上的计算结果。
最后，把它们并列连接起来，那么，02就是C10的计算结果

larer · 发表于 2019-4-7 16:39

玩彩票的很多啊,不如直接用VBA进行计算,做个函数使用起来没有按钮方便

WYS67 · 发表于 2019-4-7 17:49

larer 发表于 2019-4-7 16:39
玩彩票的很多啊,不如直接用VBA进行计算,做个函数使用起来没有按钮方便

老师：那就请您帮忙写个VBA代码，好吗？

larer · 发表于 2019-4-7 17:52

看我头像......

WYS67 · 发表于 2019-4-7 18:01

larer 发表于 2019-4-7 17:52
看我头像......

那算了。我只是一个久卧病床，无法坐立，不能赚钱的病人，没有能力支付报酬。

WYS67 · 发表于 2019-4-8 10:48

yjh_27 发表于 2018-12-5 11:55

老师：恳请按10楼【单间隔--自然数序】的运算规则，给12楼的附件【双间隔--区分十、个位】编写个自定义函数。

yjh_27 · 发表于 2019-4-8 16:24

WYS67 发表于 2019-4-8 10:48
老师：恳请按10楼【单间隔--自然数序】的运算规则，给12楼的附件【双间隔--区分十、个位】编写个自定义函 ...

Function AJIANGES(条件区域, 查询区域)
arr = 查询区域
brr = 条件区域
'brr = JIANGE2(查询区域)
Dim crr(2, 1 To 2)
ReDim drr(1 To UBound(arr), 1 To 1)
crr(0, 1) = Mid(arr(1, 1), 1, 1)
crr(0, 2) = Mid(arr(1, 1), 2, 1)
For i = 1 To UBound(arr)
For j = 1 To 2
If crr(0, j) <> Mid(arr(i, 1), j, 1) Then
crr(2, j) = crr(1, j)
crr(1, j) = crr(0, j)
crr(0, j) = Mid(arr(i, 1), j, 1)
End If
Next
If arr(i, 1) = "" Or brr(i, 1) = "" Then
drr(i, 1) = ""
Else
drr(i, 1) = crr(Mid(brr(i, 1), 1, 1), 1) & crr(Mid(brr(i, 1), 2, 1), 2)
End If
Next
AJIANGES = drr
End Function

复制代码

WYS67 · 发表于 2019-4-8 16:29

yjh_27 发表于 2019-4-8 16:24

谢谢老师：就是这样的！得出的结果完全正确！

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

[求助] 按指定间隔值反向查询与其对应的数据的自定义函数

评分

评分