逆に、ANSI形式では、1バイトで表される文字と、漢字のように2バイトで表される文字が混在しています。

VBAはUnicode形式

VBAでANSI文字形式を利用したい場合、Unicode形式からANSI形式の文字列変換を行います。これには、StrCov関数を用います。

サンプルプロシージャ

例えば、Accessの文字をANSI形式に変換し、LenB関数でバイト数をもとめ、次にUnicode形式に戻して同じくLenB関数でバイト数を求めるプロシージャを作成すると、下記のようになります。

Function SamplePro()

    Dim strMoji As String
    Dim strChg As String
    
    strMoji = "Access"
    
    strChg = StrConv(strMoji, vbFromUnicode) '----A
    MsgBox strMoji & "は、ANSI形式で" & LenB(strChg) & " バイトの文字です"
    
    strChg = StrConv(strChg, vbUnicode) '----B
    MsgBox strMoji & "は、Unicode形式で" & LenB(strChg) & " バイトの文字です"
    
End Function

解説

1. Accessという文字をStrConv関数でANSI文字列に変換しています。

2. Accessという文字をStrConv関数でANSI文字列に変換しています。

留意点

このように、半角と全角を区分する（半角は1バイト、全角は2バイト）時などは、Unicodeのままでは正しく求めることはできませんので、一時的にANSI形式に変換し計算します。

関連ページ

• Len関数 と LenB関数 ： 一日一見