07/08/23 00:30:25
とりあえず、半角・全角の判定のやり方だけど、
VBAには文字列の長さを調べる関数が3つある。
Len()、LenB()、LenMbcs()
の3つ。
Len()とLenMbcs()の結果が同じ→全部半角
Len()とLenMbcs()の結果が違う→全角を含む
と判定できる。
ただし、LenMbcs()はVBAには実装されてなくて、自分で書かないといけない。
書き方はMSDNに紹介されてる。
URLリンク(office.microsoft.com)
Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
LenMbcs()は、半角で1、全角で2を返す関数。