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

只为你清城

十六进制转十进制（宏）.rar (16.85 KB, 下载次数: 7)

2016-5-2 08:58 上传

点击文件名下载附件
1、UID是需要转的十六进制，转换的规则是
取前六位然后倒序如：ca  a3  cb变成cba3ca然后转成十进制
2、需要有个按钮点击操作，将选定的A列的转换结果放到B列对应的位置。
小弟没做过啊，谢谢大神们

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-2 11:10

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

(, 下载次数: 3)

上传

点击文件名下载附件

跳转到最佳答案楼层

蝶·舞

不应该传个表格附件的吗？

只为你清城

不好意思，刚忘传了，现在已经传上去了，大神给看看

只为你清城

老师你好，能给看下吗？我对这个不懂查了好多资料还没搞定，麻烦老师给指点下，谢谢了。

爱疯

写1个结果，以便参考要达到什么效果。

比如B2应该是啥？

爱疯

十六进制转十进制（宏）2.rar (20.59 KB, 下载次数: 2)

2016-5-2 09:54 上传

点击文件名下载附件



因为A列数据格式是固定的，这样用函数可以吗？
B2=HEX2DEC(MID(A2,1,2))&" "&HEX2DEC(MID(A2,4,2))&" "&HEX2DEC(MID(A2,7,2))&" "&HEX2DEC(MID(A2,10,2))

baksy

请参考函数；

只为你清城

补充一下，是取前六位然后倒序比如
ca a3 cb 1a         转成13345738
十六进制的后两位是1a不需要转，十六进制ca a3 cb 1a转换cba3ca转十进制变成13345738

爱疯

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

2016-5-2 10:52 上传

点击文件名下载附件





Function UID2CARD(x As Range) As Long
    Dim s As String
    s = VBA.Replace(x.Text, Chr(32), "")
    s = Mid(s, 5, 2) & Mid(s, 3, 2) & Mid(s, 1, 2)
    UID2CARD = Application.WorksheetFunction.Hex2Dec(s)
End Function




这样吗

爱疯

做完才发现，还是都是工作表函数{:031:}



B2=HEX2DEC(MID(A2,7,2)&MID(A2,4,2)&MID(A2,1,2))