查汉字的区位码

发布时间：2020-12-16 22:55:48 所属栏目：大数据来源：网络整理

导读：Attribute VB_Name = "查汉字的区位码"Public Function QuWeiMa(mRange As Range) As String Dim bCode() As Byte,s As String bCode = StrConv(mRange.Value,vbFromUnicode) For ii = 0 To UBound(bCode) Step 2 s = s bCode(ii) - 160 bCode(ii + 1) - 160

Attribute VB_Name = "查汉字的区位码"Public Function QuWeiMa(mRange As Range) As String Dim bCode() As Byte,s As String bCode = StrConv(mRange.Value,vbFromUnicode) For ii = 0 To UBound(bCode) Step 2 s = s & bCode(ii) - 160 & bCode(ii + 1) - 160 & " " Next ii QuWeiMa = sEnd Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!