Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでワークシートとＬｅｎ関数が異なる

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、ＶＢＡでワークシートとＬｅｎ関数の挙動が異なるので、注意が必要です。使用したパソコンは、下記の
ソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン21H1（ＯＳビルド 19043.1055）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.14026.20294）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでワークシートとＬｅｎ関数が異なるを記載して行きます。

（項目１）
　・ＶＢＡでワークシートとＬｅｎ関数の挙動が異なるので、注意が必要です。
　・何れも文字列の文字数を調べる関数ですが、１文字を半角や全角により１バイトまたは２バイトで数えます。

（項目２）
　・ワークシート関数とＶＢＡ関数で、Ｌｅｎ関数は以下の様になります。

　　ワークシート関数：　LEN()、　LENB()

　　ＶＢＡ関数　　　：　Len()、　LenB()

（項目３）
　・上記の違いを表で纏めました。
　　

（項目４）
　・ＶＢＡコードは、以下の通りです。
　　Sub Test02()

　　　　Range("C7:F9").Select
　　　　Selection.ClearContents

　　　　'ワークシート関数 LEN() ←半角：１バイト、　全角：１バイト
　　　　Range("C7") = Application.Evaluate("LEN(B7)")
　　　　Range("C8") = Application.Evaluate("LEN(B8)")
　　　　Range("C9") = Application.Evaluate("LEN(B9)")

　　　　'ワークシート関数 LENB() ←半角：１バイト、　全角：２バイト
　　　　Range("D7") = Application.Evaluate("LENB(B7)")
　　　　Range("D8") = Application.Evaluate("LENB(B8)")
　　　　Range("D9") = Application.Evaluate("LENB(B9)")

　　　　'ＶＢＡ関数 Len() ←半角：１バイト、　全角：１バイト
　　　　Range("E7") = Len(Range("B7"))
　　　　Range("E8") = Len(Range("B8"))
　　　　Range("E9") = Len(Range("B9"))

　　　　'ＶＢＡ関数 LenB() ←半角：２バイト、　全角：２バイト
　　　　Range("F7") = LenB(Range("B7"))
　　　　Range("F8") = LenB(Range("B8"))
　　　　Range("F9") = LenB(Range("B9"))

　　　　Range("G2").Select

　　End Sub

（項目５）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡでワークシートとＬｅｎ関数が異なるは終了です。