[已解决]请大师指点怎么自动出号

zyc5233

怎么做自动的表格呢，比如887  在上面找到8就是6 8就是6 7就是4 合起来就是664      ，
                                         438                 找4就是8 3就是6 8就是6 合起来就是866

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-29 10:33

Sub Click()
    Dim A, B, i, j
    A = Range("b2:f" & [b65536].End(3).Row)
    B = Array(0, 2, 4, 6, 8, 0, 2, 4, 6, 8)

    For i = 1 To UBound(A)
        For j = 1 To 3
            A(i, j + 1) = Mid(A(i, 1), j, 1)
        Next j
        A(i, 5) = B(A(i, 2)) & B(A(i, 3)) & B(A(i, 4))
    Next i
    [b2].Resize(UBound(A), UBound(A, 2)) = A
End Sub

1.rar (15.82 KB, 下载次数: 11)

2015-11-29 10:33 上传

点击文件名下载附件

跳转到最佳答案楼层

yeminqiang

彩票，看得莫名其妙！

zyc5233

yeminqiang 发表于 2015-11-28 17:04
彩票，看得莫名其妙！

爱疯

看不懂要做什么

zyc5233

爱疯 发表于 2015-11-28 17:30
看不懂要做什么

怎么做自动的表格呢，
比如887分解对应上面的 8=38=6   8=38=6   7=27=4  合起来就是664      ，
       438分解对应上面的 4=49=8   3=38=6   3=38=6 合起来就是866  ，
       936分解对应上面的 9=49=8   3=38=6   6=16=2 合起来就是862


对应这个来做0=05   
                     2=16
                    4=27
                    6=38
                    8=49

爱疯

Sub Click()
    Dim A, B, i, j
    A = Range("b2:f" & [b65536].End(3).Row)
    B = Array(0, 2, 4, 6, 8, 0, 2, 4, 6, 8)

    For i = 1 To UBound(A)
        For j = 1 To 3
            A(i, j + 1) = Mid(A(i, 1), j, 1)
        Next j
        A(i, 5) = B(A(i, 2)) & B(A(i, 3)) & B(A(i, 4))
    Next i
    [b2].Resize(UBound(A), UBound(A, 2)) = A
End Sub

1.rar (15.82 KB, 下载次数: 11)

2015-11-29 10:33 上传

点击文件名下载附件