为C列自定义函数的代码运算提速

13782671637

代码
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function
的运算规则是：B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数。（即=3-第1行数-第2行数）；



请教各位大神老师：怎样修改代码，才能把运算规则修改成：B列数据源十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白；当十、个位同时出齐两个不同数时，则C列相应位置显示为3的补数（即=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数）

13782671637

代码
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function
的运算规则是：B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数。（即=3-第1行数-第2行数）；



请教各位大神老师：怎样修改代码，才能把运算规则修改成：B列数据源十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白；当十、个位同时出齐两个不同数时，则C列相应位置显示为3的补数（即=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数）

玉阳山人

代码
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function
的运算规则是：B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数。（即=3-第1行数-第2行数）；



请教各位大神老师：怎样修改代码，才能把运算规则修改成：B列数据源十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白；当十、个位同时出齐两个不同数时，则C列相应位置显示为3的补数（即=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数）

13782671637

代码
Function f(r1, r2, s)
    t11 = Left(r1, 1): t12 = Right(r1, 1)
    t21 = Left(r2, 1): t22 = Right(r2, 1)
    If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - t11 - t21
    If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - t12 - t22
    f = s1 & s2
End Function
的运算规则是：B列相邻2行的数据，个位或十位上数字相同时，继承上一行计算结果。
否则，计算更新为3的补数。（即=3-第1行数-第2行数）；



请教各位大神老师：怎样修改代码，才能把运算规则修改成：B列数据源十位与个位上分别出现的不同数据不足两个时，C列相应位置显示空白；当十、个位同时出齐两个不同数时，则C列相应位置显示为3的补数（即=3-十位第一个数-十位第二个数&3-个位第一个数-个位第二个数）

玉阳山人

恳请老师们帮忙解决！

zopey

冷码的 “012”周期  不好理解，请解释。

13782671637

zopey 发表于 2018-6-15 15:29
冷码的 “012”周期  不好理解，请解释。

老师：“012”代表3个不同的数，如B18=02,
                                                B19=12,
                                                B20=01,则：B18:B20的十位上缺"012"的2，个位数缺缺"012"的0，20就是冷码。

13782671637

zopey 发表于 2018-6-15 15:29
冷码的 “012”周期  不好理解，请解释。

也就是：十、个位分别出齐两个不同数【“012”里的任意两个】的情况下，各自在“012”中所缺少的那个数就是冷码。

13782671637

恳请老师们帮忙解决！

zopey

Sub 按钮1_Click()
Columns("d:d").ClearContents
Dim arr, k0, brr(), crr(), drr(), frr()
k0 = [b5].End(4).Row - 4
ReDim brr(1 To k0, 1 To 4)
ReDim crr(0 To 2), drr(0 To 2)
ReDim frr(1 To k0, 1 To 1)

arr = [b5].Resize(k0, 1)
For i = 1 To k0
    k1 = 0: crr(0) = 0: crr(1) = 0: crr(2) = 0
    For j = i To 1 Step -1
        t1 = Left(arr(j, 1), 1): crr(t1) = crr(t1) + 1: If crr(t1) = 1 Then k1 = k1 + 1
        If k1 = 2 Then brr(i, 1) = j: Exit For
    Next

    k2 = 0: drr(0) = 0: drr(1) = 0: drr(2) = 0
    For j = i To 1 Step -1
        t2 = Right(arr(j, 1), 1): drr(t2) = drr(t2) + 1: If drr(t2) = 1 Then k2 = k2 + 1
        If k2 = 2 Then brr(i, 2) = j: Exit For
    Next
    If brr(i, 1) <> "" Or brr(i, 2) <> "" Then
       brr(i, 3) = 3 - Left(arr(i, 1), 1) - Left(arr(brr(i, 1), 1), 1)
       brr(i, 4) = 3 - Right(arr(i, 1), 1) - Right(arr(brr(i, 2), 1), 1)
    End If
    frr(i, 1) = "'" & brr(i, 3) & brr(i, 4)
Next

[d5].Resize(k0, 1) = frr
End Sub




冷码分析.zip (725.69 KB, 下载次数: 4)

2018-6-15 17:15 上传

点击文件名下载附件