VBA：全角半角チェック関数 | とある保谷市民の電子雑記帳

'文字列の全角半角含有をチェックする関数。 '全て全角=9 全角半角混在=1 全て半角=0 Function chkZen(wkStr) As Integer Dim Leng01 As Integer Dim Leng02 As Integer 'バイト数格納 Leng01 = Len(wkStr) Leng02 = LenB(StrConv(wkStr, vbFromUnicode)) '全て全角の場合 If Leng01 * 2 = Leng02 Then chkZen = 9 '全角半角が混在する場合 ElseIf Leng01 <> Leng02 Then chkZen = 1 '全て半角の場合 Else chkZen = 0 End If End Function