转发网上找到的VBA处理繁体字与简体字互转

ning84

EXCEL中使用VBA自定义函数搞定繁体字与简体字互转  http://www.360doc.com/content/20/1109/13/72339616_944869967.shtml

1. Option Explicit
   
2. 
   
3. '声明部分:
   
4. 
   
5. 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
   
6. 
   
7. Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
   
8. 
   
9. '函数部分:
   
10. 
    
11. '简转繁
    
12. 
    
13. Public Function JtoF(ByVal Str As String) As String
    
14. 
    
15. Dim STlen As Long
    
16. 
    
17. Dim STf As String
    
18. 
    
19. STlen = lstrlen(Str)
    
20. 
    
21. STf = Space(STlen)
    
22. 
    
23. LCMapString &H804, &H4000000, Str, STlen, STf, STlen
    
24. 
    
25. JtoF = STf
    
26. 
    
27. End Function
    
28. 
    
29. '繁转简
    
30. 
    
31. Public Function FtoJ(ByVal Str As String) As String
    
32. 
    
33. Dim STlen As Long
    
34. 
    
35. Dim STj As String
    
36. 
    
37. STlen = lstrlen(Str)
    
38. 
    
39. STj = Space(STlen)
    
40. 
    
41. LCMapString &H804, &H2000000, Str, STlen, STj, STlen
    
42. 
    
43. FtoJ = STj
    
44. 
    
45. End Function
    

复制代码