- ベストアンサー
Excelで22バイトの文字を数えたい
fumufumu_2006の回答
- fumufumu_2006
- ベストアンサー率66% (163/245)
後処理でJISに変換するためのようにも思えるんですが、JISの漢字IN/OUTは3文字づつだから・・・ とりあえず、文字列をJISとSJISに変換して、JISの漢字IN/OUTが1文字づつだった場合の文字数を出す方法です。 [ツール] [参照設定] で、[Microsoft ActiveX Data Objects *.* Object Library] への参照を設定してください。 シフトJISに変換するのはstrconvでもできるんですが、同じ処理系で変換した方が安全だと思うので、両方ADODB.Streamに任せます。 Function checkLength(str As String) As Integer Dim lenJIS As Integer Dim lenSJIS As Integer Dim stm As New ADODB.Stream With stm 'jis文字長 .Open .Type = adTypeText .Charset = "ISO-2022-JP" .WriteText str .Position = 0 .Type = adTypeBinary lenJIS = UBound(.Read()) + 1 .Close 'sjis文字長 .Open .Position = 0 .Type = adTypeText .Charset = "Shift_JIS" .WriteText str .Position = 0 .Type = adTypeBinary lenSJIS = UBound(.Read()) + 1 .Close End With Set stm = Nothing checkLength = lenSJIS + (lenJIS - lenSJIS) / 3 '漢字IN/OUTが1文字づつとして計算 End Function Sub test() MsgBox checkLength("亜AA亜亜AA") & "文字" End Sub p.s. JIS中のESCの数から出す方が早いか・・・
関連するQ&A
- エクセル：文字列のバイト数が欲しい
セルB1に、 半角スペース、全角２文字、半角スペース、 と入力しました。 このシートの別のセルに、 =Len(B1)と入力すると４と表示され、 =LenB(B1)と入力すると６と表示されますので、 間違いなく「半角スペース・全角２文字・半角スペース」がB1に入っているはずです。 このシートのコードに、 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$1" Then MsgBox LenB(Cells(1, 2).Value) End If End Sub と打ちました。 ここでシート上のセルL1に何か入力するとメッセージボックスが出るのですが、 メッセージボックスに出る値は８です。 何が原因でしょうか。 ６が表示されて欲しいのですが（文字列のバイト数が欲しい）、 どのようにコードを書けばよいでしょうか。 実際にB1に入れていた文字は、 １Ｂ です。 （半角スペース・全角数字１・全角英字Ｂ・半角スペース）
- 締切済み
- オフィス系ソフト
- EXCELのVBAでLenB関数について
VBA初心者の質問です。 EXCELのVBAでセルの文字数バイト数を取得したくてLenB関数を使用しました。 しかし半角で入力してある文字(数字)でも1文字2バイトになってしまいます。 具体的に言うと以下の通りです。 ---コード-------------- Dim test As Integer test = Len(Activecell.Value) ----------------------- Activecellのセル内容「東京1234」 TEST→「8」と取得したいのに「12」になってしまう。 -------------------- EXCEL上ではキチンと「12」になるのですがVBAでは違うのでしょうか。 どなたかご存じでしたら、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Accessの文字数を調べたい
住所項目で半角と全角の混ざった状態になっており、半角１文字は１として全角は１文字は２として合計文字数を算出したいのですが、良い方法を教え下さい。 例 ○○県☐☐市1-2-3 Len １１ LenB ２２ 求めたい値は、全角６文字×2 + 半角５文字×1 ＝ １７
- 締切済み
- その他(データベース)
- エクセルの半角、全角
エクセルで、半角文字、全角文字が混在するセルを関数等で全て全角にする（半角文字を全角文字に）方法はあるでしょうか？また、文字が１バイト文字か２バイト文字かを簡単に見分ける方法はありますか？
- ベストアンサー
- その他（インターネット・Webサービス）
- 半角／全角文字混在データの分割方法
ＶＢ６．０にて、あるデータ項目の内容を、画面上の２つの表示領域に分割して セットする方法を教えて下さい。 あるファイルの項目として、「住所」という項目があるとします。 このデータを取得し、画面に表示する際に、「住所１」「住所２」とに分割して、 セットします。 この場合、ファイル上の「住所」は、キャラクタタイプで４０バイトと定義されており、 ”半角／全角文字混在”でデータが格納されています。 画面上の、「住所１」「住所２」はそれぞれ、２０バイトとします。 この様な条件で、単純に取得したデータを２分割すると、 取得したデータが、全て半角か全角なら問題はないのですが、 例えば、１文字目が半角で、以降が全て全角文字だった場合に、 最後の全角文字がぴったり収まらなくなり、うまく表示できないように思います。 また、文字を取得する際に、使用している、Mid(MidB)関数やLen(LenB)関数も、 うまく利用できていないようです。（コード体系の違いでしょうか？） どなたかご教授下さい。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルで、DBCSをSBCSに変換
セルに書き込まれた文字列に漢字が含まれるかを調べようとした時に、If Len(Range("c" & i).Value) <> LenB(Range("c" & i).Value) Thenとしてみました。 セルに書き込まれた文字列は、事前に、StrConvのvbNarrow処理していたのですが、２バイトの半角文字になったようです。 lenを使わない方法でもいいのですが、文字列に漢字(漢数字、２バイト半角数字を含む)の有無を識別する方法はありますか？ 詳しいかた教えて頂けないでしょうか？ 別の言い方をすれば、大文字小文字を含む英数字と"-"のみで成り立つ文字列を抽出したいのです。(今書いているVBAでは、"-"が含まれている文字列の抽出を行っているので、結果的に、大文字小文字を含む英数字となります) 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- バイト数
こんにちわ。 ＶＢ６でのすごく初歩的な質問なんですが、テキストボックスの中の文字のバイト数をＬｅｎＢ関数で取得して表示させようとしたのですが、半角も全角も１文字２バイトとでてしまいますがなぜでしょうか？ お暇なときで結構ですのでどなたか回答をおねがいします。
- ベストアンサー
- Visual Basic
- エクセル2003で、1つのセルに全角文字、半角文字
エクセルで文字数制限のあるセルに 全角、半角文字が混在している場合 A1 上下ABCDひだりみぎ ←対象となるセル B1全角文字数 ７ C1半角文字数 4 というように対象のセルの全角文字数、半角文字数を別々のセルに表示できる方法があれば おしえてください。
- 締切済み
- オフィス系ソフト
- セル内の文字で半角2文字で1文字とカウントしたい
openofficeを利用しています。 セル内の全角と半角が混じった文章から半角2文字で1文字とカウント 全角はそのまま1文字とカウント して文字数を数えることはできますでしょうか？ LENBが利用できないので困っています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで文字の長さを揃えるには
excel95とExcel2000を使っています。 漢字やひらがな全角カタカナ全角英数字は2バイト、 半角カタカナ英数字は1バイト、 2バイトと1バイトの混在入力して20バイトの長さの文字列を比べると見た目の長さが違う。 同じ20バイトの文字列を見た目を揃える方法を教えてください。
- ベストアンサー
- その他(業務ソフトウェア)