我在做VBA服務(wù)的時(shí)候經(jīng)常見到香港或臺(tái)灣的朋友。所以對簡體和繁體有需求。還有在大陸和港臺(tái)2旋轉(zhuǎn)的樣式。寫文章的人如果一時(shí)簡體字，表格會(huì)被繁體字復(fù)雜化，后期找計(jì)算的時(shí)候會(huì)出現(xiàn)很多不便。在這里，我們可以使用系統(tǒng)API函數(shù)，用VBA編寫兩個(gè)用戶定義的函數(shù)，從而輕松解決簡潔。(大衛(wèi)亞設(shè))。

效果示例如下

打開EXCEL表，按ALT F11鍵，打開EXCEL的VBA編輯器，在左側(cè)工程管理器區(qū)域中的模塊上單擊鼠標(biāo)右鍵，在模塊中粘貼句子下面的代碼，如果需要切換到簡體，請使用公式=FtoJ(A1)；如果需要轉(zhuǎn)換為繁體，請使用公式=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

函數(shù)部分：

簡約繁雜

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