【excel怎么设成繁体】在EXCEL中，使用VBA自定义函数来交互旋转繁体字和简体字

我在做VBA服务的时候经常见到香港或台湾的朋友。所以对简体和繁体有需求。还有在大陆和港台2旋转的样式。写文章的人如果一时简体字，表格会被繁体字复杂化，后期找计算的时候会出现很多不便。在这里，我们可以使用系统API函数，用VBA编写两个用户定义的函数，从而轻松解决简洁。(大卫亚设)。

效果示例如下

打开EXCEL表，按ALT F11键，打开EXCEL的VBA编辑器，在左侧工程管理器区域中的模块上单击鼠标右键，在模块中粘贴句子下面的代码，如果需要切换到简体，请使用公式=FtoJ(A1)；如果需要转换为繁体，请使用公式=JtoF(A1)。

声明部分：

private declare function lcmapstring lib ' kernel 32 ' alias ' lcmapstringa '(Byval locale as long，byval dwmapflags as long)

private declare function lstrlen lib ' kernel 32 ' alias ' lstrlena '(byval LP string as string)as long

函数部分：

简约繁杂

public function jtof(byval str as string)as string

Dim STlen As Long

Dim STf As String

STlen=lstrlen(Str)

Stf=空间(stlen)

Lcmapstring h804、h400000、str、stlen、STF、stlen

JtoF=STf

End Function

轮流简化

public function ftoj(byvalstr as string)as string

Dim STlen As Long

Dim STj As String

STlen=lstrlen(Str)

Stj=空间(stlen)

Lcmapstring h804、h200000、str、stlen、stj、stlen

FtoJ=STj

End Function