Question

EXCELL中字母数字中文如何转换GB2312编码

请教达人，A1=YG6硬质合金棒 如何编译函数 使 B1=

%59%47%36%D3%B2%D6%CA%BA%CF%BD%F0%B0%F4 谢谢

Answer 1

字符编码转换权

1个字符和GB2312（GBK的子集）：。

公共职能GBKEncode（BYVAL sInput作为字符串）作为字符串

昏暗ret_GBKEncode作为字符串=“”

昏暗我作为整数

昏暗的startIndex为整数= 0 暗淡endIndex的作为整数

暗淡×（）作为字节= System.Text.Encoding。 Default.GetBytes（sInput）'在字符和字符串VB2008都以Unicode编码存储

endIndex的那么x.Length = - 1

对于i =在startIndex到endIndex

ret_GBKEncode＆=“ ％“＆六角（X（i）条）

结束功能

'GBK解码

公共职能GBKDecode（BYVAL sInput作为字符串）作为字符串

sInput = sInput.Replace（“％”，“”）

昏暗ret_GBKDecode作为字符串=“”

sLen的暗淡为整数= sInput.Length
>昏暗5.3，=整数sLen的\ 2

暗淡sBytes（0到n - 1）字节

'成字节码

对于我作为整数= 1到n

sBytes（我 - 1）= CByte（“＆H”＆sInput.Substring（2 * I - 2，2））

'将字节码转换成字符串

ret_GBKDecode = System.Text.Encoding 。Default.GetString（sBytes）

返回ret_GBKDecode

结束功能

2.Unicode字符串为UTF-8

进口System.Text
>公共职能StringAsUtf8Bytes（BYVAL strData为作为字符串）作为字节（）

暗淡字节（）作为字节

字节=编码。 UTF8.GetBytes（strData为）

返回字节

结束功能
“在那里你可以启动多个类别。

Answer 2

将我以前的自定义函数修改一下：

Public Function toHex(ran As Range) As String
chinese = ran.Value
a = ""
For i = 1 To Len(chinese)
Ch = Mid(chinese, i, 1)
If Ch <= "~" Then
a = a & "%" & Left(Hex(Asc(Ch)), 2)
Else
a = a & "%" & Left(Hex(Asc(Ch)), 2) & "%" & Right(Hex(Asc(Ch)), 2)
End If
Next
toHex = a
End Function

 

祝你成功！