文字バイト数カウント  次の文書

Sub 文字数カウント()
'Excel 2002,2003は
'VBAでの文字コードは【UNICODE】というのを使用しています。
'この文字コードは半角文字も2バイトで取っていますので、
'「エクセルエクセル」の場合は 8文字×2バイト でLenB関数の返す値は「16」になります。
'ワークシート関数のLenB関数のように”半角文字=1バイト”とする場合は
'Strconv関数を使用して、文字コードを【UNICODE】から【ASCIIコード】に変換してください。
Sheets("Sheet1").Select

ScreenUpdating = False
文 = Cells(1, 1)
文字数 = Len(文)
i = 1
Do Until i > 文字数
文字 = Mid(文, i, 1)
文字列のByte数 = LenB(StrConv(文字, vbFromUnicode))
Cells(i + 1, 1) = 文字列のByte数
i = i + 1
Loop
End Sub
'*Excel 2007 と結果は異なります。

 



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)