VBA 的全角半角转换解决方案(中文系统有效)

最新推荐文章于 2023-01-15 09:10:16 发布

YSL88881111

最新推荐文章于 2023-01-15 09:10:16 发布

阅读量4.5k

点赞数 3

分类专栏： VBA 文章标签： vba string function

本文链接：https://blog.csdn.net/YSL88881111/article/details/7532839

版权

VBA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

‘全角转半角

Function toBanJiao(str As String) As String

Dim chA As String
Dim i1 As Long
Dim iAsc As Long

For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = CLng(Asc(chA)) + 23680
If iAsc < 127 And iAsc > 31 Then
toBanJiao = toBanJiao & Chr(iAsc)
Else
toBanJiao = toBanJiao & chA
End If
Next

End Function

’半角转全角
Function toQuanJiao(str As String) As String
Dim chA As String
Dim i1 As Long
Dim iAsc As Long

For i1 = 1 To Len(str)
chA = Mid(str, i1, 1)
iAsc = Asc(chA)
If iAsc < 127 And iAsc > 31 Then
toQuanJiao = toQuanJiao & Chr(iAsc - 23680)
Else
toQuanJiao = toQuanJiao & chA
End If
Next

End Function