• ベストアンサー

VBで、String型のデータが、全角か、半角かを判断する関数は・・・

maruru01の回答

  • ベストアンサー
  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。maruru01です。 Asc関数で文字のコードを取得して判断すればいいと思います。 半角はコードが0~255だったと思うので、次のようになります。 文字変数をsとして If 0 <= Asc(s) And Asc(s) <= 255 Then   MsgBox "半角です" Else   MsgBox "全角です" End If ちなみに私の環境はVB6.0なので5.0では試してません。(問題ないと思いますが。) では。

kukkychan
質問者

お礼

ありがとうございました(^^)v できました!

関連するQ&A

  • VB2008で全角半角の判定

    VB2008で全角半角の判定 VB6 では下記のようにして判定していましたが、VB2008では どのようにすればよいのかお教えください。  dim moji as string dim zhN as integer  zhN = LenB(StrConv(moji, vbFromUnicode)) mojiには1文字格納されており、  半角なら zhN = 1 全角なら zhN = 2 となる。  これをVB2008で実現する方法がわかりません。  よろしくお願いします。

  • VB6.0のString関数に代わるVB2008のそれは?

    2009年1月27日にVB 2008Expressをダウンロードしたばかりの初学者です。 ですから、色々とわからないことだらけです。 で、今回は VB6.0のString関数に代わるVB2008のそれ。 ? String(12, "*") ************ Function Strings(ByVal C As Char, ByVal L As Integer) As String   Return Space(L).Replace(" ", C) End Function 少しは探しましたが、適当なのがなくてStrings関数を作成してしまいました。 2週間程度の初学者。 しかも、文字列関連のヘルプは昨日に初めて紐解いたばかり。 ですから、「適当なのがない」との判断はかなり怪しいものです。 そこで、「VB6.0のString関数に代わるVB2008のそれは、これですよ!」という回答をお願いします。

  • 全角と半角を統一する関数

    エクセルの関数で、半角英数文字・全角英数文字や、半角カタカナと全角カタカナが混じっている表で、全角に変換して統一できるような関数や方法があれば教えてください。

  • strConv関数を使わないで半角から全角に変換したい(VB.NET)

    こんにちは。 知っている方いらっしゃいましたら教えてください。 現在、VB.NET 2005を使ってプログラム製造をしていますが、半角の文字列を全角に変換したいです。 でも、strConv関数は使いたくないので、それ以外で変換する方法はありませんか。 よろしくお願いします。

  • EXCELのデーターで全角を半角に変換したいのですが・・・

    全角・半角が混ざった英数字を全て半角に変換したいのですが、関数やVBAでできますか? データー量が多いので出来るだけ簡単に出来る方法を教えていただきたいです。 よろしくお願いします

  • エクセル 関数で全角カタカナを半角にしたい

    エクセル初心者です。人からもらったデータなのですが、住所の記載でカタカナの部分に半角と全角が混ざってしまっています。漢字・ひらがなはすべて全角、カタカナ・数字は半角に統一したいのですが、関数でできますか? 良い方法を教えてください。

  • 全角と半角を確認するには

    受け取ったデータ表の中で全角と半角が入り混じっている場合、セルによっては半角「A」とか全角「A」に入力モードが切り替わって判別できるものもありますが、全角なのにそのセルをポインタすると半角モードのままというセルもあります。(半角だとカウントせず、全角だとカウントされるので全角だと判断できます) どうしてなのか実験してみたところ、全角で入力後に半角での入力規則を設定しているみたいです。 この判別を簡便にする方法はありますか。 全角か半角か判別して回答をしてくれるような数式はありますか? (例えば、作業列に「全」「半」などと表示されるような) データの種類が多いため意図的に全角、半角の使い分けを入れている箇所もあるようなのですが。

  • 関数を使わずに一括で全角を半角にする方法

    エクセル2010を使っている者です。 関数を使わずに、半角を全角に一括で変換できることは知っていますが、 その逆は可能でしょうか。 全角英数字を半角英数字に、関数を使わずに、一括で変換できる方法が あれば、ご教授願います。 よろしくお願いいたします。

  • 全角半角?

    ACCESS97を使用しています。 次のような文字があります。 4-22 これを4バイトのデータに追加したところ "‐"と"-"によって "4‐2"となります。 "‐"…全角 "-"…半角という意味でしょうか? またStrConv関数で全角⇔半角、大文字⇔小文字をしたのですが 変換できません。 目的は 4‐22 のデータを 4-22 というように変換して 4バイトのところに全て追加できるようにしたいのです。  (数字ではなく "-"横棒を変換) ACCESSで可能でしょうか?

  • 全角と半角

    エクセルのシートに全角と半角のカタカナと数字が混ざっています。 全角でも半角でもどちらでもかまわないのですが、シート全体を一度に統一したいのですが、どうしたらいいのでしょうか。ASCとかUPPERとか関数を試みたのですが、この方法だとセルひとつずつ処理しなくてはならないのですよね?またコピーするとか、マクロを使う方法とかも調べたりしたのですが、もっと簡単な方法はないのでしょうか?