Ｐａｇｅ 643 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼文字列のバイト数について mika 03/1/29(水) 17:29 ┗Re:文字列のバイト数について ichinose 03/1/29(水) 18:08 ┣Re:文字列のバイト数について（おまけ） りん 03/1/29(水) 19:30 ┗Re:文字列のバイト数について mika 03/1/30(木) 9:00 ─────────────────────────────────────── ■題名 ： 文字列のバイト数について ■名前 ： mika ■日付 ： 03/1/29(水) 17:29 -------------------------------------------------------------------------
| 文字列のバイト数を調べたいのですが、 半角英数1文字 = 1バイト 全角1文字 = 2バイト で数えたいと思っています。 LenB関数を使ってみました。ですが、 ＜LenB関数＞ AA = LenB(Worksheets("sheet1").Range("A1").Value) での結果が、半角英数、全角共に2でしたので Len関数も使ってみましたが、 ＜Len関数＞ BB = Len(Worksheets("sheet1").Range("A1").Value) での結果は、半角英数、全角共に1でした。 半角は1バイト、全角は2バイトとバイト数を計算するには、どのようにしたら よいでしょうか？ どなたか教えて下さい。 よろしくお願い致します。 |
| ▼mika さん： こんばんは。 >文字列のバイト数を調べたいのですが、 >半角英数1文字 = 1バイト 全角1文字 = 2バイト で数えたいと思っています。 >LenB関数を使ってみました。ですが、 > >＜LenB関数＞ > AA = LenB(Worksheets("sheet1").Range("A1").Value) > での結果が、半角英数、全角共に2でしたので > > Len関数も使ってみましたが、 > >＜Len関数＞ > BB = Len(Worksheets("sheet1").Range("A1").Value) > での結果は、半角英数、全角共に1でした。 > >半角は1バイト、全角は2バイトとバイト数を計算するには、どのようにしたら >よいでしょうか？ > >どなたか教えて下さい。 よろしくお願い致します。 これで試してみて下さい。 aa = LenB(StrConv(Worksheets("sheet1").Range("A1").Value, vbFromUnicode)) |
| ichinose さん、mika さん、こんばんわ。 >> AA = LenB(Worksheets("sheet1").Range("A1").Value) >> での結果が、半角英数、全角共に2でしたので >> BB = Len(Worksheets("sheet1").Range("A1").Value) >> での結果は、半角英数、全角共に1でした。 >aa = LenB(StrConv(Worksheets("sheet1").Range("A1").Value, vbFromUnicode)) ↓理由 http://support.microsoft.com/default.aspx?scid=kb;ja;408879 |
| ichinoseさん、ありがとうございました！ >aa = LenB(StrConv(Worksheets("sheet1").Range("A1").Value, vbFromUnicode)) ↑このやり方で出来ました！！ ホントに助かりました！ りんさん、希望通りの結果にならない理由も教えていただき、ありがとうございました！ いろいろお勉強になりました。 まだまだわからないことばかりですが、頑張ろうと思います。 ありがとうございました！！ |