[已解决]求助大神们，十六进制转十进制的问题

只为你清城

爱疯 发表于 2016-5-2 10:53
Function UID2CARD(x As Range) As Long
    Dim s As String
    s = VBA.Replace(x.Te ...

我想点按钮实现怎么调用你的方法

爱疯

Sub UID2CARD()
    Dim A, i&, s$
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        s = A(i, 1)
        s = Mid(s, 7, 2) & Mid(s, 4, 2) & Mid(s, 1, 2)
        A(i, 2) = Application.WorksheetFunction.Hex2Dec(s)
    Next i
    [A1].Resize(i - 1, UBound(A, 2)) = A
End Sub

十六进制转十进制（宏）4.rar (19.67 KB, 下载次数: 3)

2016-5-2 11:10 上传

点击文件名下载附件