很简单实用的繁体与简体互相转换的代码

龙之传人188

长见识呀！~~~~~~~~~~~~~

fusheng1107

不错，收藏备用！

goldowl2011

Thanks a lot.Mark it.

TOO-布丁

十分感谢,学习学习

追溯傳説

新手学习了，谢谢

sxed

怎么用呀？？？？？？？？？？？？？？？？？？？？

bokeli

看不太懂，慢慢学习下

huiyi6802

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _
ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Dim STf As String    '繁体字符串
Dim STj As String    ' 简体字符串
Dim STlen As Long    ' 待转换字串长度

Sub Test1()    'Gb码简体转繁体
Dim i As Range
For Each i In Selection '根据所选区域依次转换
    STj = i
    STlen = lstrlen(STj)
    STf = Space(STlen)
    LCMapString &H804, &H4000000, STj, STlen, STf, STlen
i = STf
Next i

End Sub

Sub Test2()    'Gb码繁体转简体
Dim i As Range
For Each i In Selection '根据所选区域依次转换
    STf = i
    STlen = lstrlen(STf)
    STj = Space(STlen)
    LCMapString &H804, &H2000000, STf, STlen, STj, STlen
i = STj
Next i
End Sub

用法：创建两个按钮“繁转简”和“简转繁”，调用相应的代码。使用时先选择要转换的区域，再点击按钮。

xgy0214dxy

能力有限，楼主的代码看不懂哟

binghe2360

请问怎么使用啊？